Переписать с сохранением порядка следования компоненты файла f1 в файл f2

@kriss007 · Регистрация: 24.11.2015

Помогите! Даны файлы f1 и f2, содержащие целые числа. Переписать с сохранением порядка следования компоненты файла f1 в файл f2, а компоненты файла f2 в файл f1. Использовать вспомогательный файл h.

@JuriiMW · 26.04.2016, 05:43

Pascal

procedure CopyFile(name1, name2 : String);
var f1, f2 : File of Integer; v : Integer;
begin
  Assign(f1, name1); Assign(f2, name2);
  Reset(f1); Rewrite(f2);
  while Not EOF(f1) do
    begin
      Read(f1, v); Write(f2, v);
    end;
  Close(f1); Close(f2);
end;
 
var
  f1, f2, h : String;
begin
  Write('Имя файла f1: '); ReadLn(f1);
  Write('Имя файла f2: '); ReadLn(f2);
  Write('Имя файла  h: '); ReadLn(h );
  WriteLn('Копирование: ', f1, ' -> ', h ); CopyFile(f1, h );
  WriteLn('Копирование: ', f2, ' -> ', f1); CopyFile(f2, f1);
  WriteLn('Копирование: ', h , ' -> ', f2); CopyFile(h , f2);
  WriteLn('Готово!');
end.

@kriss007 0 / 0 / 0 Регистрация: 24.11.2015 Сообщений: 15
		1
	Переписать с сохранением порядка следования компоненты файла f1 в файл f2 25.04.2016, 20:06. Показов 2214. Ответов 1 Метки нет (Все метки) Помогите! Даны файлы f1 и f2, содержащие целые числа. Переписать с сохранением порядка следования компоненты файла f1 в файл f2, а компоненты файла f2 в файл f1. Использовать вспомогательный файл h. 0

Опции темы

Переписать с сохранением порядка следования компоненты файла f1 в файл f2

Решение