Описать процедуру prisv (t1,t2)переписывающую содержимое текстового файла t2 в текстовый файл t1 (с сохранением деления на строки)
Описать процедуру prisv (t1,t2)переписывающую содержимое текстового файла t2 в текстовый файл t1 (с сохранением деления на строки)
Ответ(ы) на вопрос:
procedure prisv(t1,t2:string);
var
f1,f2:text;
s:string;
begin
assign(f2,t2);
reset(f2);
assign(f1,t1);
rewrite(f1);
while not eof(f2) do
begin
readln(f2,s);
writeln(f1,s);
end;
close(f1);
close(f2);
end;
procedure Prisv(t1, t2: Text);
var
s: string;
begin
Reset(t2);
Rewrite(t1);
while not eof(t2) do
begin
readln(t2, s);
writeln(t1, s)
end;
Close(t1);
Close(t2)
end;
Пример вызова процедуры для перезаписи файла:
var
f1, f2: Text;
begin
Assign(f1, 'input.txt');
Assign(f2, 'output.txt');
Prisv(f2, f1);
end.
Не нашли ответ?
Похожие вопросы