Question

Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. (Turbo Pascal) а так же блок-схему ( необязательно)
Буду очень благодарен!
Заранее спасибо.

Answer 1

function Foo(x: real): real;
begin
   if (-9 <= x) and (x <= -5) then
      result := 2 - Sqrt(4 - Sqr(x + 7))
   else if (-5 <= x) and (x <= -4) then
      result := 2
   else if (-4 <= x) and (x <= 0) then
      result := -(1 / 2) * x
   else if (0 <= x) and (x <= Pi) then
      result := Sin(x)
   else if x >= Pi then
      result := x - Pi;
end;

var
    x: real;

begin
   writeln('x =');
   readln(x);
   if x < -9 then
   begin
      writeln('функция не определена в этой области');
      exit
   end
   else Writeln('y = ',Foo(x));
end.