program lab8_10 uses crt label type obed record stud string rez byte k

  • Anonymous
  • Pascal/Delphi
  • 17 Jun 2019 
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
program lab8_10;

uses crt;

label

m;

type obed=record

  stud:string;

  rez:byte;

  kol:integer;

  end;

  stud123=array [1..20] of obed;

var

  rez1:array [1..20] of obed;

  f12:stud123;

  i,k:byte;

  q5:real;

  l:integer;

  q1,q2,q3,q4:byte;

  c:char;

procedure vvod(var kol:byte; var fk1234:stud123; var grup:integer;

 var kolvo:byte);

var

  i:byte;

begin

  clrscr;

   window(2,1,79,25);

  textbackground(7);

  textcolor(5);

  clrscr;

  write('введите номер группы: ');

  readln(grup);

  write('Введите количество студентов :');

  readln(kolvo);

  for i:=1 to kolvo do

  begin

    write('Введите Ф.И.О. : ');

    readln(rez1[i].stud);

    write('Введите время : ');

    readln(rez1[i].rez);

  end;

end;



procedure vivod(var kol:byte; var  fk1234:stud123;  var grup:integer;

 var kolvo,y,x,z:byte; var a:real);

var

  i:byte;

begin

  clrscr;

  window(1,1,79,25);

  textbackground(3);

  textcolor(0);

  clrscr;

  gotoxy(20,1);

  write('результаты бега на 100м группы ',grup,'.');

  window(3,3,78,23);

  textbackground(7);

  textcolor(0);

  clrscr;

  gotoxy(2,1);

  write('#');

  gotoxy(5,1);

  write('Ф.И.О. участника');

  gotoxy(47,1);

  write('время, сек. ');

  for i := 1 to kolvo do

  begin

     gotoxy(2,2+y);

     write(i,'.');

     gotoxy(5,2+y);

     write(rez1[i].stud);

     gotoxy(50,2+y);

     write(rez1[i].rez);

     y := y+1;

  end;

  gotoxy(20,4+y);

  textcolor(0+128);

  z:=0;

  for i := 1 to kolvo do

  begin

    z:=z+rez1[i].rez;

    a:=z/i;

  end;

  writeln('среднее время срудентов: ',a:4:2,' сек.');

  repeat

    window(24,20,56,20);

    textbackground(9);

    clrscr;

    x:=random(10)+1;

    textcolor(x);

    write('   УДАЧИ НА СОРЕВНОВАНИЯХ  !!!  ');

    delay(50);

  until keypressed;

  end;

begin

  clrscr;

  textbackground(7);

  clrscr;

  window(1,1,80,1);

  textbackground(3);

  clrscr;

  textcolor(0);

  clrscr;

  gotoxy(3,1);

  write('i - ввод информации');

m:gotoxy(34,1);

  write('u - вывод информации');

  gotoxy(66,1);

  write('ESC - выход');

  c := readkey;

  if c=#105 then begin vvod(k,f12,l,q1);clrscr; goto m; end;

  if c=#117 then begin vivod(k,f12,l,q1,q2,q3,q4,q5); readkey; end;

  if c=#27 then end.

  clrscr;

end.
← newer dump
older dump →