По введенным значениям аргумента х вычислить значение функции, заданной графически - Turbo Pascal

Формулировка задачи:

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

Код к задаче: «По введенным значениям аргумента х вычислить значение функции, заданной графически - Turbo Pascal»

textual
var x, y: real;
begin
  write('x = ');
  readln(x);
  if (x < -10) or (x > 4)
    then write('Function undefined')
    else begin
      if x < -6
        then y := 2 - sqrt(4 - sqr(x + 8))
        else if x < - 4
          then y := 4
          else if x < 2
            then y := -x / 2
            else y := x - 3;
      write('y = ', y:0:12)
    end;
  readln
end.

12   голосов, оценка 4.083 из 5


СОХРАНИТЬ ССЫЛКУ