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

File42. Даны два файла произвольного типа. Поменять местами их содержимое.

Решение:

program File42;
var
 Name1,Name2:String;
 F_1,F_2: File;

begin
  Write('File1: ');
  Readln(Name1);
  Assign(F_1,Name1);

  Write('File2: ');
  Readln(Name2);
  Assign(F_2,Name2);

  Rename(F_1,'~'+Name1);
  Rename(F_2,Name1);
  Rename(F_1,Name2);
end.

program File42;

var

Name1,Name2:String;

F_1,F_2: File;

begin

Write('File1: ');

Readln(Name1);

Assign(F_1,Name1);

Write('File2: ');

Readln(Name2);

Assign(F_2,Name2);

Rename(F_1,'~'+Name1);

Rename(F_2,Name1);

Rename(F_1,Name2);

end.

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

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

asdfg

27.07.2021 в 00:19

Гениальное решение черт возьми! 😀 а я там считывать из нетипизированных файлов блоками пытаюсь,записывать в массивы потом перезаписывать эти массивы в файлы… Еще в паскаль АБЦ конечно же нет турбопаскалевских функций blockread и blockwrite, а есть какие-то мутные методы которые нигде хорошо с примерами не описаны…

Ответить

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

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

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

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