Имеются два типизированных файла одинакового размера, элементами которых являются числа. Получить третий файл: каждый элемент которого равен меньшему из соответствующих элементов заданных файлов.

@7896325 · Регистрация: 29.09.2011

Author24 — интернет-сервис помощи студентам

помогите решить задачу

@Mawrat · 29.09.2011, 09:44

Без распечатки исходных данных и результатов:

Pascal

const
  Fn1 = 'File1.dat';
  Fn2 = 'File2.dat';
  Fn3 = 'FileRes.dat';
var
  F1, F2, F3 : file of Integer;
  Num1, Num2 : Integer;
begin
  Assign(F1, Fn1);
  Assign(F2, Fn2);
  Assign(F3, Fn3);
  Reset(F1);
  Reset(F2);
  Rewrite(F3);
  while not (Eof(F1) or Eof(F2)) do begin
    Read(F1, Num1);
    Read(F2, Num2);
    if Num1 <= Num2 then
      Write(F3, Num1)
    else
      Write(F3, Num2)
    ;
  end;
  Close(F1);
  Close(F2);
  Close(F3);
  
  Writeln('Обработка завершена.');
  Readln;
end.

@7896325 0 / 0 / 0 Регистрация: 29.09.2011 Сообщений: 6
		1
	Имеются два типизированных файла одинакового размера, элементами которых являются числа. Получить третий файл: каждый элемент которого равен меньшему из соответствующих элементов заданных файлов. 29.09.2011, 07:40. Показов 3015. Ответов 1 Метки нет (Все метки) помогите решить задачу 0

	29.09.2011, 09:44

Опции темы

Решение