Question

Запишите программу на языке Паскаль (в программе PascalABC.net ) для вычисления функции f, используя операторы ветвления.

Выведите на экран подробную запись полученного значения, например :

writeln(‘Значение функции f= ', f:5:2);

Текст Вашей программы сохраните в файл PascalABC.net. Прикрепить файл программы к этому заданию (нажать кнопку «Загрузить» и найти необходимый файл).
[Ссылка]
Система программирования PascalABC.NET
http://PascalABC.net
ПРОШУ РЕШИТЕ, БУДУ ОЧЕНЬ БЛАГОДАРЕН, ОТДАМ ВАМ БАЛЛЫ​

Answer 1

Ответ:

PascalABC.NET 3.5.1

begin

 var f1 : (real, real) -> real := (x, y) -> (x**3) - (3*y)/2;

 var f2 : (real, real) -> real := (x, y) -> sqrt(x**2 + y**2);

 var (a, b) := ReadReal2();

 if abs(a)+ abs(b) < 100 then f1(a, b).println else f2(a, b).println;

end.

Объяснение: