Delphi-Составление программ с помощью функции.

Оксана в категроии Информатика, вопрос открыт 14.03.2018 в 02:15

Задание 1) Функцию Sign оформить в виде отдельной подпрограммы. Вычислить S:=(Sign(x)+Sign(y))*Sign(x+y), Sign(a)= если a<0, то выводим -1; если а=0, то 0; если а>0, то 1.

Задание 2) Функцию Max оформить в виде отдельной подпрограммы. Даны действительные числа a,b,c. Получить: (max(a,a+b)+max(a.b+c))/(1+max(a,b*c, 1.15)).