Question

Написать программу на паскале, где необходимо реализовать расчет значения Y в зависимости от полученного X.

Answer 1

Составим уравнение это кусочной функции.
По непонятной мне причине, местный редактор формул внутри себя корректно отображает формулу, а при попытке сохранения её в ответ все рушится. Посему формула отправлена во вложение.

var
  x, y: real;

begin
  Write('Введите х: ');Readln(x);
  if x <= -9 then y := 0
  else if x < -6 then y := -sqrt(9 - sqr(x + 6))
  else if x <= -3 then y := x + 3
  else if x < 0 then y := sqrt(9 - sqr(x))
  else if x <= 3 then y := 3 - x
  else if x < 9 then y := (x - 3) / 2
  else y := 3;
  Writeln('y=', y)
end.