Вычислить значение выражения - Free Pascal (903)

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

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

Даны вещественны числа x,y,z. Вычислить U=(max(x,y)+max(x+y,x*y))/(max(0.5*x,z*z), используя в качестве вспомогательного алгоритм поиска максимума из двух чисел.

Решение задачи: «Вычислить значение выражения»

textual
Листинг программы
function max(a, b : real) : real;
begin
  if a > b then max := a
  else max := b;
end;
 
var x,y,z:real;
begin
write('Введите x:'); readln(x);
write('Введите y:'); readln(y);
write('Введите x:'); readln(z);
writeln('u=',(max(x,y) + max(x+y,x*y))/max(0.5*x,z*z));
readln;
end.

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

  1. Объявлены три переменные типа real: x, y, z.
  2. Введен ввод данных с помощью функций readln().
  3. Вычислено значение выражения (max(x,y) + max(x+y,xy))/max(0.5x,z*z).
  4. Выведено значение выражения на экран.
  5. Программа ожидает ввода с помощью функции readln() для завершения работы.

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


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

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

14   голосов , оценка 3.929 из 5