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

@v1rtex · Регистрация: 10.05.2015

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

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

@Puporev · 22.06.2015, 07:41

Файлы текстовые или типизированные?

Добавлено через 9 минут
Для текстовых файлов

Pascal

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.

@v1rtex 0 / 0 / 0 Регистрация: 10.05.2015 Сообщений: 8
		1
	Получить файл, компоненты которого есть среднее арифметическое соответствующих компонентов заданных файлов 22.06.2015, 06:58. Показов 1504. Ответов 1 Метки нет (Все метки) Помогите решить, пожалуйста. Даны два файла с числами. Получить новый файл, каждый компонент которого равен среднему арифметическому значению соответствующих компонентов заданных файлов(количество компонентов в исходных файлах одинаковое). 0

	22.06.2015, 07:41

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

Решение