@sasiev

Завтра нид объяснить вот эту базу данных
uses crt;
type pas=record type pas=record ?
fam:string;
name:string;
punkt:record
reis:string;
gorod:string;
port:string; end;
kol:integer;
ves:integer;
end;

var f,f1:file of pas; zap,zap1as; i,j:integer; f,f1:file of pas; zap,zap1as ?


procedure print;
begin
clrscr;
reset(f); i:=0;
while not eof(f) do begin read(f,zap); i:=i+1;
writeln(i,'. ',zap.fam,' ',zap.name);
writeln('reis: ',zap.punkt.reis,', punkt naznacheniya: ',zap.punkt.gorod,', aeroport:',zap.punkt.port);
writeln('kolichestvo veshey: ',zap.kol,', obshiy ves: ',zap.ves);
writeln('--------------------------------------------------------------');
end;
writeln;
writeln('1.Add 2.Delete 3.Edit 4.Erase DB 5.Action 6.Exit'); writeln;
write('>');
end;

procedure add; begin
write('>familiya: '); readln(zap.fam); zap.fam ?
write('>imya: '); readln(zap.name);
write('>nomer reisa: '); readln(zap.punkt.reis);
write('>gorod: '); readln(zap.punkt.gorod);
write('>aeroport: '); readln(zap.punkt.port);
write('>kolichestvo veshei: '); readln(zap.kol);
write('>obshiy ves: '); readln(zap.ves);
write(f,zap); end;

procedure delete; begin
write('vvedite nomer zapisi: '); readln(j);
rewrite(f1); reset(f);
for i:=0 to filesize(f)-1 do for i:=0 to filesize(f)-1 do
if i+1<>j then begin read(f,zap); write(f1,zap); end;
rewrite(f); reset(f1);
for i:=0 to filesize(f1)-1 do begin
read(f1,zap); write(f,zap); end;
end;

procedure edit; begin
write('vvedite nomer zapisi: '); readln(j);
write('>familiya: '); readln(zap.fam);
write('>imya: '); readln(zap.name);
write('>nomer reisa: '); readln(zap.punkt.reis);
write('>gorod: '); readln(zap.punkt.gorod);
write('>aeroport: '); readln(zap.punkt.port);
write('>kolichestvo veshei: '); readln(zap.kol);
write('>obshiy ves: '); readln(zap.ves);
seek(f,j-1); write(f,zap); end;

procedure z1; var sr:integer; begin и процедуры
writeln('passazhirov s kolichestvom veshey > srednego:');
reset(f); while not eof(f) do begin sr:=0;
read(f,zap); sr:=sr+zap.kol; end; sr:=sr div filesize(f);
reset(f); while not eof(f) do begin
read(f,zap); if zap.kol>sr then writeln(zap.fam,' ',zap.name); end;
readln; end;

procedure z2; var ves,kol:integer; begin
write('>kolichestvo veshey: '); readln(kol);
write('>maximalniy ves: '); readln(ves); writeln;
reset(f); while not eof(f) do begin read(f,zap);
if (zap.kol=kol) and (zap.ves<=ves) then writeln(zap.fam,' ',zap.name); end;
readln; end;

procedure z3; var ves,kol:integer; x:byte; begin
for i:=0 to filesize(f)-1 do begin ves:=0; kol:=0;
seek(f,i); read(f,zap); reset(f);
for j:=0 to i-1 do begin
read(f,zap1); if zap.punkt.reis=zap1.punkt.reis then x:=1; end;
if x=1 then continue;
reset(f); while not eof(f) do begin read(f,zap1);
if zap.punkt.reis=zap1.punkt.reis then begin ves:=ves+zap1.ves; kol:=kol+zap1.kol; end;
end; writeln('reis: ',zap.punkt.reis,' vsego veshey: ',kol,' obshiy ves: ',ves); end;
readln; end;

procedure z4; var reis:string; begin
write('vvedite reis: '); readln(reis); writeln('passazhiri: ');
reset(f); while not eof(f) do begin read(f,zap);
if zap.punkt.reis=reis then writeln(zap.fam,' ',zap.name); end;
readln; end;

begin и концовка
clrscr; assign(f,'database.dat'); assign(f1,'support.dat'); print;
while 1=1 do begin readln(i); case i of
1: add; 2: delete; 3: edit; 4: begin write('are you sure? (1-yes/2-no)');
readln(j); if j=1 then rewrite(f); end;
5: begin
writeln('1.passazhirov s kolichestvom veshey > srednego');
writeln('2.passazhiri s dannim kolichestvom veshey i ne bolee dannogo vesa');
writeln('3.kolichestvo veshey i obshiy ves kazhdogo reisa');
writeln('4.passazhiri letyashie odnim reisom'); readln(i); case i of
1:z1; 2:z2; 3:z3; 4:z4; end; end;
6:exit;
end; print; end;
close(f);
end.
где вопросы непонимаю

0