Паскаль(Файлы). Два типизированных файла одинакового размера. Получить третий файл как сумму элементов.

[Артемdgty]

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

[BDA]

Примерно:

assign(f1, 'f1.dat');
assign(f2, 'f2.dat');
assign(f3, 'f3.dat');
reset(f1);
reset(f2);
rewrite(f3);
while not eof(f1) do
begin
  read(f1, a);
  read(f2, b);
  write(f3, a + b);
end;
close(f1);
close(f2);
close(f3);

[Артемdgty]

Спасибо большое)

[Артемdgty]

а еще способы есть, например через функции или процедуры?

[BDA]

В смысле, через функции или процедуры? Даже не знаю, что тут можно обернуть в функцию.

[Poma][a]

Даже не знаю, что тут можно обернуть в функцию.

Всё что угодно

function InitF1 () : boolean;
begin
{$I-}
assign(f1, 'f1.dat');reset(f1));
{$I+}
 
InitF1 :=  ioresult = 0;

end;

if not InitF1 then
   WriteLn ('Ужасъ')

[BDA]

Сообщение от Poma][a

Всё что угодно

Да чего уж там

procedure af1();
begin
  assign(f1, 'f1.dat');
end;

procedure af2();
begin
  assign(f2, 'f2.dat');
end;

procedure af3();
begin
  assign(f3, 'f3.dat');
end;

procedure rf1();
begin
  reset(f1);
end;

procedure rf2();
begin
  reset(f2);
end;

procedure rf3();
begin
  rewrite(f3);
end;

procedure whilef();
begin
  while not eof(f1) do
  begin
    read(f1, a);
    read(f2, b);
    write(f3, a + b);
  end;
end;

procedure cf1();
begin
  close(f1);
end;

procedure cf2();
begin
  close(f2);
end;

procedure cf3();
begin
  close(f3);
end;



af1();
af2();
af3();
rf1();
rf2();
rf3();
whilef();
cf1();
cf2();
cf3();

Кстати, можно попробовать (на ideone проверил компилируемость):

type
  intfile = file of integer;
var
  f1, f2, f3: intfile;

function f(var b: intfile; path: string; for_read: boolean): boolean;
begin
  {$I-}
  assign(b, path);
  if for_read then
    reset(b)
  else
    rewrite(b);
  {$I+}
  f := ioresult = 0;
end;

begin
  f(f1, 'f1.dat', true);
  f(f2, 'f2.dat', true);
  f(f3, 'f3.dat', false);
end.

[Poma][a]

Кстати, можно попробовать (на ideone проверил компилируемость):

А в честь чего он не должен компилироваться?

af1();
af2();
af3();
rf1();
rf2();
rf3();
whilef();
cf1();
cf2();
cf3();

А еще так :

procedure af ();
begin
af2;
af3;
end;

procedure rf ();
begin
rf1; rf2; rf3
end;

Чую ТС будет доволен такими процедурками
Зато здесь явно показан принцип абстрактности

[BDA]

Сообщение от Poma][a

А в честь чего он не должен компилироваться?

По-моему, в "каноническом" (turbo pascal) так не получалось сделать - могу ошибаться.

Сообщение от Poma][a

А еще так...

Да-да. Еще пара вложенных, и нормально будет.
Вот как опасно спрашивать про другие способы решения