Вычислить и вывести на экран - PascalABC.NET

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

Вычислить и вывести на экран в виде таблицы значения функции, заданной графически, на интервале от xнач до xкон c шагом dx (не обязательно целое число). Интервал и шаг задать таким образом, чтобы проверить все ветви программы. Таблицу снабдить заголовком и шапкой. Массив не использовать!

Решение задачи: «Вычислить и вывести на экран»

Листинг программы

var x,y:real;
begin
x:=-9;
while x<=6 do
 begin
  if x<=-5 then y:=-sqrt(4-sqr(x+7))+2
  else if x<=-4 then y:=2
  else if x<=0 then y:=-0.5*x
  else if x<=pi then y:=sin(x)
  else y:=x-pi;
  writeln('x=',x:5:2,' y=',y:5:2);
  x:=x+0.25;
 end;
end.

Объяснение кода листинга программы

В данном коде происходит вычисление и вывод на экран значений функции для различных значений переменной x.

Объявляются две переменные типа real: x и y.
Переменной x присваивается значение -9.
Запускается цикл while, который выполняется до тех пор, пока значение x не станет больше или равным 6.
Внутри цикла проверяются различные условия и переменной y присваивается соответствующее значение:
- если x меньше или равно -5, то y вычисляется как квадратный корень из 4 минус квадрат (x + 7), умноженный на 2;
- если x меньше или равно -4, то y вычисляется как 2;
- если x меньше или равно 0, то y вычисляется как половина от x;
- если x меньше или равно pi, то y вычисляется как синус x;
- в противном случае y вычисляется как x минус pi.
Выводится на экран текущее значение переменных x и y.
Значение переменной x увеличивается на 0.25.
Цикл while повторяется до тех пор, пока не будут выполнены условия выхода из цикла.