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

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


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.

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

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



Похожие ответы
  1. Помогите пожалуйста не могу написать прогу в паскале: дан файл f компоненты которого являются символами получить файл g образованный из файла f с исключением повторных вхождений одного и того же символа в паскале

  1. Дано натуральное число n. Получить последовательность b1, b2,…,bn, где при i=1,2,…,n значение bi равно: i2Добавлено через 22 часа 48 минут Помогите...так и не разобрался с задачей

  1. Дана действительная матрица размера n × m . Получить последовательность b1 ,..., bn , где bk – это наибольшее из значений k-ой строки

  1. Напишите программу, чтобы получить перевертыш целого четырехзначного числа n, введенного пользователем (вспомните, как разбить число на разряды с помощью операций div и mod)?

  1. Здравствуйте! Помогите, пожалуйста с задачей. Получить одномерный массив, состоящий из номеров максимальных элементов соответствующих строк матрицы. В полученном векторе решить задачу поиска 'количества четных элементов; Отсортировать в матрице строки по убыванию значений элементов в столбце с номером, заданным пользователем.

  1. Дана действительная матрица [aij] i,j = 1, ..., n. Получить действительную матрицу [bij] i,j = 1, ..., n, элемент bij который равен сумме элементов данной матрицы, расположенных в области, определяемой индексами i,j так, как показано на рис. (область заштрихована). Сходным образом можно рассмотреть вместо суммы элементов их произведение, набольшее значение наименьшее значение.

  1. Даны натуральное число n, целые числа a1, x1, ... , xn. Если в последовательности x1, ... , xn есть хотя бы один член, равный a, то получить сумму всех членов, следующих за первым таким членом; в противном случае ответом должно быть число -10.

  1. Даны действительные числа a1,...,a64. Получить действительную квадратную матрицу порядка 8, элементами которой являются числа a1,..., a64, расположенные в ней по схеме Под б

  1. Даны действительные числа x1,..., x8. Получить действительную квадратную матрицу порядка 8:

  1. Дана последовательность строк, заканчивающаяся строкой ‘END’. Получить все различные слова из этих строк, которые начинаются с ‘a’. с последовательностью я разобрался, а вот с нахождением 'a' не полчается