Получить файл, компоненты которого есть среднее арифметическое соответствующих компонентов заданных файлов - Pascal ABC

Формулировка задачи:

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


textual

Код к задаче: «Получить файл, компоненты которого есть среднее арифметическое соответствующих компонентов заданных файлов - Pascal ABC»

var f,g,h:text;
    a,b,c:real;
begin
assign(f,'1.txt');//файл в папке с программой
reset(f);
assign(g,'2.txt');//файл в папке с программой
reset(g);
assign(h,'3.txt'); //файл будет в папке с программой
rewrite(h);
while not seekeof(f) do
 begin
  read(f,a);
  read(g,b);
  c:=(a+b)/2;
  write(h,' ',c:0:2);
 end;
close(f);
close(g);
close(h);
write('Файлы 1 и 2 прочитаны, результат записан в файл 3')
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 3.917 из 5

Источник