Правильно ли работает программа? Среднее арифметическое - Free Pascal
Формулировка задачи:
Здравствуйте!
Написал программу для определения среднего арифметического. Ниже её код:
Ввел три раза число 5, но ответ 11.66666666667. Это правильно или где-то допущена ошибка?
program n_34; uses crt; var a, b, c, otvet: real; begin ClrScr; write ('Введите число a: '); readln (a); write ('Введите число b: '); readln (b); write ('Введите число c: '); readln (c); otvet:= a+b+c/3; write ('Среднее арифметическое= ',otvet:10:11); while not keypressed do; end.
Решение задачи: «Правильно ли работает программа? Среднее арифметическое»
textual
Листинг программы
var a, b, c: Real; begin Read(a,b,c); a:=a*b*c; if a<0 then a:=-Exp(Ln(-a)/3) else a:=Exp(Ln(x)/3); WriteLn(a); end.
Объяснение кода листинга программы
- В первой строке объявляются три переменные типа Real: a, b и c.
- Во второй строке происходит чтение значений переменных a, b и c с помощью функции Read.
- В третьей строке происходит вычисление значения переменной a как произведения значений переменных a, b и c.
- В четвертой строке выполняется проверка: если значение переменной a отрицательное, то оно изменяется на значение -Exp(Ln(-a)/3). В противном случае значение переменной a изменяется на значение Exp(Ln(x)/3).
- В пятой строке происходит вывод значения переменной a на экран с помощью функции WriteLn.
- Код завершается в шестой строке.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д