Правильно ли работает программа? Среднее арифметическое - Free Pascal

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

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

Здравствуйте! Написал программу для определения среднего арифметического. Ниже её код:
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.
Ввел три раза число 5, но ответ 11.66666666667. Это правильно или где-то допущена ошибка?

Решение задачи: «Правильно ли работает программа? Среднее арифметическое»

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.

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

  1. В первой строке объявляются три переменные типа Real: a, b и c.
  2. Во второй строке происходит чтение значений переменных a, b и c с помощью функции Read.
  3. В третьей строке происходит вычисление значения переменной a как произведения значений переменных a, b и c.
  4. В четвертой строке выполняется проверка: если значение переменной a отрицательное, то оно изменяется на значение -Exp(Ln(-a)/3). В противном случае значение переменной a изменяется на значение Exp(Ln(x)/3).
  5. В пятой строке происходит вывод значения переменной a на экран с помощью функции WriteLn.
  6. Код завершается в шестой строке.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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