Вычислить выражение через процедуры с параметрами, либо без параметров - PascalABC.NET
Формулировка задачи:
Даны действительные числа a,b,c. Получить (max(a,a+b)+max(a,b+c))/(1+max(a+bc,1,15))
Решение задачи: «Вычислить выражение через процедуры с параметрами, либо без параметров»
textual
Листинг программы
procedure max(a, b :real; var mx : real);
begin
if a > b then mx := a else mx := b
end;
var
a, b, c :real;
max_1, max_2, max_3 : real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
max(a,a+b,max_1);
max(a,b+c,max_2);
max(a+b*c,1.15,max_3);
writeln((max_1+max_2)/(1+max_3));
end.