Вычисление среднего значения элементов одномерного массива (подпрограмма) - Free Pascal

Узнай цену своей работы

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

Дано: массивы A(7), L(12), B(8). Вычислить среднее значение элементов массивов A, L, B. Вычисление среднего значения элементов массива оформить в виде подпрограммы.

Решение задачи: «Вычисление среднего значения элементов одномерного массива (подпрограмма)»

textual
Листинг программы
var
  a,l,b:array of real;
function sr(q:array of real):real;
var
  s:real;
  i:integer;
begin
  s:=0;
  for i:=low(q) to high(q) do s:=s+q[i];
  sr:=s/(1+high(q));
end;
procedure enterarr(var q:array of real;s:string);
var
  i:integer;
begin
  writeln(s);
  for i:=low(q) to high(q) do read(q[i]);
end;
begin
  setlength(a,7);
  setlength(l,12);
  setlength(b,8);
  enterarr(a,'Введите массив A (7 значений):');
  enterarr(l,'Введите массив L (12 значений):');
  enterarr(b,'Введите массив B (8 значений):');
  writeln('<Sa>=',sr(a):0:2);
  writeln('<Sl>=',sr(l):0:2);
  writeln('<Sb>=',sr(b):0:2);
end.

Объяснение кода листинга программы

  1. Объявлены три массива a, l и b типа array of real
  2. Задана функция sr(q:array of real):real, которая вычисляет среднее значение элементов массива q
  3. В функции sr объявлена переменная s типа real, которая инициализируется значением 0
  4. В функции sr используется цикл for, который выполняет суммирование всех элементов массива q и сохраняет результат в переменной s
  5. Значение переменной s делится на сумму высокого индекса массива q и 1, после чего результат присваивается переменной sr
  6. Объявлена процедура enterarr(var q:array of real; s:string), которая запрашивает у пользователя ввод элементов массива q и сохраняет их в соответствующих ячейках массива
  7. В процедуре enterarr используется цикл for, который выполняет запрос на ввод каждого элемента массива q
  8. Задана основная программа, которая устанавливает длину каждого из массивов a, l и b равной 7, 12 и 8 соответственно
  9. Вызывается процедура enterarr для ввода элементов массива a
  10. Вызывается процедура enterarr для ввода элементов массива l
  11. Вызывается процедура enterarr для ввода элементов массива b
  12. Выводится среднее значение элементов массива a с помощью функции sr и выводится на экран
  13. Выводится среднее значение элементов массива l с помощью функции sr и выводится на экран
  14. Выводится среднее значение элементов массива b с помощью функции sr и выводится на экран

Оцени полезность:

9   голосов , оценка 3.556 из 5
Похожие ответы