Вычислить среднее арифметическое чисел - 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);
Объяснение кода листинга программы
- Переменная S инициализируется значением 0.
- Переменная i инициализируется значением 0.
- Запускается цикл Repeat, который будет выполняться до тех пор, пока значение переменной i не станет равным значению переменной N.
- Внутри цикла значение переменной i увеличивается на 1.
- Число, введенное пользователем, сохраняется в переменной A.
- Значение переменной S увеличивается на сумму числа A и значения переменной S.
- Цикл повторяется, пока значение переменной i не станет равным значению переменной N.
- После окончания цикла выводится среднее арифметическое чисел, используя функцию Writeln.
- Значение переменной S выводится с использованием формата 6:4, что означает, что число будет выведено в формате с 6 знаками после запятой и 4 знаками до запятой.