ПОМОГИТЕ СОСТАВИТЬ ВЫЧИСЛЕНИЕ В PASCAL: РАЗВЕТВЛЯЮЩИЙСЯ ВЫЧИСЛИТЕЛЬНЫЙ...

Question

ПОМОГИТЕ СОСТАВИТЬ ВЫЧИСЛЕНИЕ В PASCAL: РАЗВЕТВЛЯЮЩИЙСЯ ВЫЧИСЛИТЕЛЬНЫЙ ПРОЦЕСС Составить программу вычисления функции на языке PASCAL:

Answer 1

Ответ:

Вот такая получилась программа. Вводим х, проверяем его по трем условиям и выводим у.

Answer 2

PascalABC.NET

Ответ:

• begin
• var f:real->real:=x->x>=2?1-x**4:x>0?x**5:x**3+7;
• f(ReadReal).Print
• end.

Пример работы: