Question

Написать текст программы на языке Паскаль. Вычислить значения следующих функций, используя условный оператор. Задание на фото!

Answer 1

Ответ:

Turbo/Free Pascal:

• var x,y: real;
• begin
• read(x);
• if x<3.2 then y := x*x*x*x + 9
• else y := (54 * x*x*x*x)/(-5 * x*x + 7);
• write(y);
• end.

PascalABC.NET:

• begin
• var f: real->real := x -> x<3.2 ? x**4+9 : 54*x**4/(-5*x**2+7);
• f(ReadReal).Print
• end.

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