Question

Составьте пожалуйста программу для вычисления значения функции. пожалуйста очень срочно.(Паскаль)
​

Answer 1

uses Math;

var z, y : real;

begin

readln(y);

if (y > -1) and (y < 5) then

   z := sqrt(power(y, 3)) - 3.5

else if y >= 5 then

   z := cos(2*y) + 3

else if y <= -1 then

   z := 5*power(y, 2) + 4;

writeln(z:5:2);

end.