Составители:
Рубрика:
35
fam,im,ot:st;
d:data;
ad:adress;
end;
anketa=record
pas:pasp;
p,nat:st;
end;
A=array [1..20] of anketa;
{-------------конец описания типов---------------------}
var X:A;i,j,k,l,n:integer;
S,S1,S2:st;t,c,v,d:real;
{---------------процедура вывода-------------------}
procedure wywod(n:integer;h:A);
var i:integer;
begin
clrscr;
for i:=1 to 80 do write('-');
gotoxy (1,3);
for i:=1 to 80 do write('-');
gotoxy (1,2);write('| Фамилия И.О. | Дата рождения | Город |
Улица | Дом кв. |');
for i:=1 to n do
begin
gotoxy (1,i+3);write('|',h[i].pas.fam);
gotoxy(22,i+3);write('|');
gotoxy (23,i+3);write(h[i].pas.d.day,' ',h[i].pas.d.month,' ',h[i].pas.d.year);
gotoxy (43,i+3);write('|');
gotoxy (44,i+3);write(h[i].pas.ad.town);
gotoxy (54,i+3);write('|');
gotoxy (55,i+3);write(h[i].pas.ad.street);
gotoxy (70,i+3);write('|');
gotoxy (71,i+3);write(h[i].pas.ad.hause,'-',h[i].pas.ad.flat);
gotoxy(80,i+3);write('|');
end;
gotoxy(1,n+4);for i:=1 to 80 do write('-');
end;
{---------------------------------------------------------}
{------------------процедура присваивания--------------}
procedure priswaiwanie(var h:A);
begin n:=15;
h[1].pas.fam:='Засовина';
h[1].pas.im:='Анна';
h[1].pas.ot:='Игоревна';
h[1].pas.d.day:=29;
h[1].pas.d.month:='апреля';
h[1].pas.d.year:=1981;
h[1].pas.ad.index:='150012';
h[1].pas.ad.town:='Ярославль';
h[1].pas.ad.street:='Лермонтова';
h[1].pas.ad.hause:=30;
h[1].pas.ad.flat:=36;
h[1].p:='жен.';
h[1].nat:='рус.';
……………………………………………………………
h[15].pas.fam:='Попов';
h[15].pas.im:='Олег';
h[15].pas.ot:='Алексеевич';
h[15].pas.d.day:=29;
h[15].pas.d.month:='февраля';
h[15].pas.d.year:=1984;
h[15].pas.ad.index:='435191';
h[15].pas.ad.town:='Алма-Ата';
h[15].pas.ad.street:='Чавчавадзе';
h[15].pas.ad.hause:=76;
h[15].pas.ad.flat:=1;
h[15].p:='муж.';
h[15].nat:='рус';
end;
begin
priswaiwanie(X);
wywod(n,X);
end.
