Решаем задачи Абрамян на Паскале. File43

File43. Дан файл произвольного типа. Создать его копию с новым именем.

Решение:

program File43;
var
 Name:String;
 F,F_C: File;
 Buf : Char;

begin
  Write('File: ');
  Readln(Name);
  Assign(F,Name);

  Reset(F, 1);
  Assign(F_C,Name+'-Copy');
  Rewrite(F_C,1);
  while not Eof(f) do
   begin
    BlockRead(F, Buf, SizeOf(char));
    BlockWrite(F_C, Buf, sizeof(char));
   end;

  Close(F);
  Close(F_C);
end.

program File43;

var

Name:String;

F,F_C: File;

Buf : Char;

begin

Write('File: ');

Readln(Name);

Assign(F,Name);

Reset(F, 1);

Assign(F_C,Name+'-Copy');

Rewrite(F_C,1);

while not Eof(f) do

begin

BlockRead(F, Buf, SizeOf(char));

BlockWrite(F_C, Buf, sizeof(char));

end;

Close(F);

Close(F_C);

end.

Другие задачи из раздела File можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. File43

Комментарии:

Добавить комментарий Отменить ответ