Найти значение выражения при помощи процедуры максимум из трех - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д