Program Telefon;

uses crt;

Type

abonent=record

fam,imya:string[20];

tel:string[7];

End;

Var

mas:array[1..20] of abonent;

i,j,kol,n,vid:byte;

bool:boolean;

f:file of abonent;

name:string[12];

Procedure Sozdanie;

begin

write('Vvedite imya faila:');

readln(name);

assign(f,name);

rewrite(f);

write('Vvedite kol-vo zapisey:');

readln(n);

writeln;

for i:=1 to n do

begin

writeln('Vvedite dannie ',i,' abonenta');

write('Familiya:'); readln(mas[i].fam);

write('Imya:');

readln(mas[i].imya);

write('Telephon:');

readln(mas[i].tel);

write(f,mas[i]);

writeln;

end;

close(f);

End;

Procedure Prosmotr;

begin

writeln;

write('Vvedite imya faila:');

readln(name);

writeln;

assign(f,name);

{$I-}

reset(f);

{$I+}

if IOresult<>0 then writeln('Faila na diske net!')

else

begin

i:=1;

while not eof(f) do

begin

read(f,mas[i]);

writeln('Familiya:',mas[i].fam,' Imya:',mas[i].imya,' Telefon:',mas[i].tel);

i:=i+1;

end;

writeln('__________________');

writeln('Itogo zapisey=',i-1);

close(f);

end;

End;

Procedure Dopolnenie;

begin

write('Vvedite imya faila:');

readln(name);

assign(f,name);

{$I-}

reset(f);

{$I+}

if IOresult<>0 then writeln('Faila na diske net!')

else

begin

seek(f,filesize(f));

write('Vve dite kol-vo zapisey:');

readln(n);

writeln;

for j:=1 to n do

begin

writeln('Vvedite dannie ',j+i-1,' abonenta');

with mas[j+i-1] do

begin

write('Familiya:');

readln(fam);

write('Imya:');

readln(imya);

write('Telephon:'); readln(tel);

end;

write(f,mas[j+i-1]);

writeln;

end;

close(f);

end;

End;

Дата добавления: 2015-08-17