Найти среднее арифметическое трех чисел - Turbo Pascal
Формулировка задачи:
Решение задачи: «Найти среднее арифметическое трех чисел»
procedure Sred(a,b,c:real; var s:real);
begin
s:=(a+b+c)/3;
end;
var x,y,z,sr:real;
begin
writeln('Введите 3 числа:');
readln(x,y,z);
Sred(x,y,z,sr);
write('Среднее арифметическое=',sr:0:2);
readln
end.
Объяснение кода листинга программы
Код начинается с объявления процедуры Sred, которая принимает три аргумента типа real и один выходной аргумент типа real. Процедура вычисляет среднее арифметическое трех чисел и присваивает результат выходному аргументу. Затем объявляются четыре переменные типа real: x, y, z и sr. Переменная sr используется для хранения результата вычисления среднего арифметического. Далее идет блок чтения введенных пользователем чисел с помощью функции readln. Введенные числа присваиваются переменным x, y и z соответственно. Затем вызывается процедура Sred, передавая в нее введенные числа и переменную sr в качестве выходного аргумента. Результат вычисления присваивается переменной sr. Наконец, выводится сообщение с результатом вычисления среднего арифметического с помощью функции write. Функция readln используется для завершения ввода данных.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д