Вычислить среднее арифметическое членов с 5 по 10 и с 18 по 25 - Turbo Pascal
Формулировка задачи:
Решение задачи: «Вычислить среднее арифметическое членов с 5 по 10 и с 18 по 25»
function an(a1, n, d: double): double;
begin
an := a1 + (n - 1) * d
end;
var a1, d: double;
begin
write('a1, d = ');
readln(a1, d);
writeln('<S5-10> = ', (an(a1, 5, d) + an(a1, 10 ,d)) / 2:0:4);
writeln('<S18-25> = ', (an(a1, 18, d) + an(a1, 25, d)) / 2:0:4);
readln
end.
Объяснение кода листинга программы
В данном коде используется функция an, которая принимает три параметра: a1, n и d. Эта функция вычисляет среднее арифметическое чисел a1 и следующих n-1 чисел, каждое из которых умножается на d. Значение функции возвращается в виде числа с плавающей запятой (double). Далее, в переменной a1 хранится первое число, для которого вычисляется среднее арифметическое, а в переменной d - шаг, на который умножается каждое последующее число. Затем, происходит чтение значений переменных a1 и d с помощью функции readln. После этого, вычисляются средние арифметические для пяти и десяти чисел, используя функцию an. Значения этих средних выводятся на экран с помощью функции writeln. После этого, происходит чтение следующих 10 чисел с помощью функции readln. Затем, вычисляются средние арифметические для восемнадцати и двадцати пяти чисел, используя функцию an. Значения этих средних также выводятся на экран с помощью функции writeln. Наконец, происходит чтение последнего числа и значения d с помощью функции readln, после чего программа завершается.