Geum.ru

Телефонный справочник

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

; phone.dat . Assign PhoneF. Reset . , : , , Writeln. Close, , .

procedure WritePhone;

begin

Assign(PhoneF,Phone\phone.dat);

Reset(PhoneF);

ClrScr;

writeln( :);

writeln;

while not Eof(PhoneF) do

begin

PhoneR.SurnameS:=;

PhoneR.NameS:=;

PhoneR.PhoneS:=;

PhoneR.AddressS:=;

read(PhoneF,PhoneR);

writeln;

write(PhoneR.SurnameS);

write( ,PhoneR.NameS);

write(,PhoneR.PhoneS);

write(,PhoneR.AddressS);

end;

Close(PhoneF);

writeln;

writeln;

write( ...);

ReadKey;

end;

AddPhone . Assign Reset phone.dat . Writeln Readln , , . .

procedure AddPhone;

begin

Assign(PhoneF,Phone\phone.dat);

Reset(PhoneF);

while not Eof(PhoneF) do Read(PhoneF,PhoneR);

PhoneR.SurnameS:=;

PhoneR.NameS:=;

PhoneR.PhoneS:=;

PhoneR.AddressS:=;

ClrScr;

writeln( :);

writeln;

Write( :);

readln(PhoneR.SurnameS);

write( :);

readln(PhoneR.NameS);

write( :);

readln(PhoneR.PhoneS);

write( :);

readln(PhoneR.AddressS);

write(PhoneF,PhoneR);

Close(PhoneF);

writeln;

writeln( !!!);

writeln;

write( ...);

ReadKey;

end;

DeletePhone . :

  • temp , ;
  • Nazv 15 , .

Assign Reset phone.dat . Assign Reset temp.dat . Writeln Readln ( ) , Nazv.