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

Question

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

---

Comments

Чтобы такое НЕ суметь написать, нужен большой талант к нежеланию учить предмет.

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.

Объяснение:

Comments

Тем более, что это можно делать прямо из оболочки.

---

PascalABC.NET 3.5.1 - давно пора обновить.

---

Спасибо большое