Найти значение выражения при помощи процедуры максимум из трех - Pascal

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

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

Для чисел a b c найти значение выражения max abc+1/max(ab,ac,bc) с использованием процедуры нахождения максимального из трех чисел

Решение задачи: «Найти значение выражения при помощи процедуры максимум из трех»

textual
Листинг программы
procedure max3(x,y,z:real;var mx:real);
begin
if x>y then mx:=x else mx:=y;
if z>mx then mx:=z;
end;
var a,b,c,x,y,z:real;
begin
readln(a,b,c);
max3(a,b,c,x);
max3(a*b,a*c,b*c,y);
if y=0 then write('Значение не определено')
else
 begin
  z:=(x+1)/y;
  write('z=',z:0:2);
 end;
end.

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


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

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

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