Нужен пример копирования файлов - Turbo Pascal

Формулировка задачи:

Pascal (dos,crt)!? Как копировать файлы в среде Turbo Pascal 7.1? Может использовать модуль dos или стандартный crt такое может?

Код к задаче: «Нужен пример копирования файлов - Turbo Pascal»

textual
const
  Fn1 = 'c:\uzbekova.txt';
  Fn2 = 'c:\uzbekova2.txt';
  Size = 10000;
var
  F1, F2 : File;
  Buff : array[1..Size] of Byte;
  Cnt : Integer;
begin
  Assign(F1, Fn1);
  Reset(F1, 1);
  Assign(F2, Fn2);
  Rewrite(F2, 1);
 
  while not Eof(F1) do begin
    BlockRead(F1, Buff, Size, Cnt);
    BlockWrite(F2, Buff, Cnt);
  end;
 
  Close(F1);
  Close(F2);
end;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

11   голосов, оценка 4.091 из 5


СДЕЛАЙТЕ РЕПОСТ