ПАСКАЛЬ: РОБОТА З ФАЙЛАМИ

end;

end;

close(Fi);

end;

begin

clrscr; writeln('Програма друкування даних про студентів');

openfile; outPutfile;

end.

Задачі

1.* Пояснити, що задає та як використовується пpогpама

program filcrout;

type Tel = record nam : string; num : integer end;

var f : file of Tel; x : Tel; s : string; eel : boolean;

procedure readel ( var x : Tel );

begin

x.num:=0; readln ( x.nam);

if x.nam <> '' then readln ( x.num )

end;

begin

writeln ( 'Введіть ім''я файла:' ); readln ( s );

assign ( f, s ); rewrite ( f );

repeat

readel ( x ); eel := (x.nam = '');

if not eel then write ( f, x );

until eel;