Постройте таблицу значений функции y=f(x) для х принадлежащей [a, b] с шагом h - Pascal ABC

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

Постройте таблицу значений функции y=f(x) для х принадлежащей [a, b] с шагом h.

Решение задачи: «Постройте таблицу значений функции y=f(x) для х принадлежащей [a, b] с шагом h»

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

var a,b,h,x:real;
begin
repeat
write('Введите a<0 a=');
readln(a);
until a<0;
repeat
write('Введите b>0 b=');
readln(b);
until b>0;
repeat
write('Введите h<',b-a:0:2,' h=');
readln(h);
until h<b-a;
x:=a;
while x<b+h/2 do
 begin
  if x<0 then writeln('x=',x:5:2,' y=0')
  else if x=1 then writeln('x=',x:5:2,' y=1')
  else writeln('x=',x:5:2,' y=',x*x+1:5:2);
  x:=x+h;
 end;
end.

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

Создаются переменные a, b и h типа real.
В цикле repeat пользователю предлагается ввести значение a и b.
Затем пользователю предлагается ввести значение h.
Переменная x инициализируется значением a.
Затем в цикле while выполняется следующая логика:
- Если x меньше 0, то выводится сообщение x=, за которым следует значение x и y=0.
- Если x равно 1, то выводится сообщение x=, за которым следует значение x и y=1.
- В противном случае выводится сообщение x=, за которым следует значение x и y=, где y - это результат вычисления x*x+1.
После каждой итерации цикла x увеличивается на h.
Цикл while продолжается до тех пор, пока x не станет больше или равным b+h/2.