Вычислить значение выраженя
Даны действительные числа a,b,c получить значение выражения
max(a,a+b)+max(a,b,+c)/(1+max(a+b+c, 1.15).
Решение:
Program v1;
var a,b,c,d:real;
function max(x,y:real):real;
begin
if x>y then max:=x else max:=y;
end;
BEGIN
writeln('Ввести 3 числа');
readln(a,b,c);
d:=max(a,a+b)+max(a,b+c)/(1+max(a+b+c,1,15);
writeln('Значение выражения=',d);
readln;
END.
Объяснение:
Функция max находит наибольшее число из х и у (в программе a и b). Далее просто записываем выражение и все само посчитается.
|
| Категория: С подпрограммой | Добавил: deespe (29.01.2011)
|
| Просмотров: 2684
| Рейтинг: 5.0/1 |
|
