Вычислить среднее арифметическое чисел - Turbo Pascal

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

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

пусть дано n вещественных чисел, которые вводятся последовательно по одному. вычислить среднее арифметическое. результат вывести на экран через "repeat". если можно, распишите все с начала и до конца, вместе с описанием переменных) спасибо)

Решение задачи: «Вычислить среднее арифметическое чисел»

textual
Листинг программы
S:=0;
i:=0;
Repeat
  Inc(i);
  Readln(A);
  S:=S+A;
Until i=N;
Writeln(S/N:6:4);

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

  1. Переменная S инициализируется значением 0.
  2. Переменная i инициализируется значением 0.
  3. Запускается цикл Repeat, который будет выполняться до тех пор, пока значение переменной i не станет равным значению переменной N.
  4. Внутри цикла значение переменной i увеличивается на 1.
  5. Число, введенное пользователем, сохраняется в переменной A.
  6. Значение переменной S увеличивается на сумму числа A и значения переменной S.
  7. Цикл повторяется, пока значение переменной i не станет равным значению переменной N.
  8. После окончания цикла выводится среднее арифметическое чисел, используя функцию Writeln.
  9. Значение переменной S выводится с использованием формата 6:4, что означает, что число будет выведено в формате с 6 знаками после запятой и 4 знаками до запятой.

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

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