Question

Паскаль. Вычислить значение функции заданной в виде графика. Разветвляющийся алгоритм​

Answer 1

// PascalABC.NET

var

 x, y: real;

 

Begin

WriteLn('Введите значение X');

ReadLn(x);

if (abs(x) > 2) then

  y := 1

else if ((abs(x) <= 2) and (abs(x) > 1)) then

  y := abs(x)

else

  y := sqrt(1 - x*x);

WriteLn('f(x) = ', y);

End.