Описать процедуру 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы