Составители:
Рубрика:
34
for i:=1 to n do
begin
gotoxy (1,i+4);write('|',h[i].stud.fam);
gotoxy(22,i+4);write('|');
gotoxy (24,i+4);write(h[i].ocen.ekz[1],' ','|');
gotoxy (29,i+4);write(h[i].ocen.ekz[2],' ','|');
gotoxy (34,i+4);write(h[i].ocen.ekz[3],' ','|');
gotoxy (39,i+4);write(h[i].ocen.ekz[4],' ','|');
gotoxy (44,i+4);write(h[i].ocen.ekz[5],' ','|');
gotoxy (49,i+4);write(h[i].ocen.ekz[6],' ','|');
gotoxy (53,i+4);write(h[i].ocen.zach1,' ');
gotoxy (61,i+4);write('|');
gotoxy (62,i+4);write(h[i].ocen.zach2,' ');
gotoxy (70,i+4);write('|');
gotoxy (80,i+4);write('|');
end;
gotoxy(1,n+5);for i:=1 to 80 do write('-');
end;
{---------------------------------------------------------}
{------------------процедура присваивания--------------}
procedure priswaiwanie(var h:A);
begin n:=15;
h[1].stud.fam:='Амелина';
h[1].stud.im:='Юлия';
h[1].stud.ot:='Александровна';
h[1].ocen.ekz[1]:=3;
h[1].ocen.ekz[2]:=4;
h[1].ocen.ekz[3]:=2;
h[1].ocen.ekz[4]:=3;
h[1].ocen.ekz[5]:=3;
h[1].ocen.ekz[6]:=2;
h[1].ocen.zach1:='зачет';
h[1].ocen.zach2:='незачет';
………………………………………………………………………
h[15].stud.fam:='Россова';
h[15].stud.im:='Марианна';
h[15].stud.ot:='Викторовна';
h[15].ocen.ekz[1]:=4;
h[15].ocen.ekz[2]:=3;
h[15].ocen.ekz[3]:=3;
h[15].ocen.ekz[4]:=3;
h[15].ocen.ekz[5]:=3;
h[15].ocen.ekz[6]:=4;
h[15].ocen.zach1:='зачет';
h[15].ocen.zach2:='зачет';
end;
begin
end.
Файл LAB6.pas
program upr;
uses crt;
{-----------------описание типов-----------------------}
type st=string[20];
data=record
day:1..31;
month:st;
year:integer;
end;
adress=record
index,town,street:st;
hause,flat:integer;
end;
pasp=record
