Пример создания нового файла — Pascal(Паскаль)

program newf;
var
     f:text;    { текстовый файл }
     i:integer;
begin
     assign(f,'test.txt');
     rewrite(f);   { открыть в режиме перезаписи }
     for i:=1 to 5 do
          writeln(f,'Строка ',i);
     close(f);     { закрыть файл }
end.

Leave a Comment

− 2 = 2