Нужно протабулировать функцию на интервале 1,5<=x<=12,5 с шагом. h=0,75 - Pascal

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

Нужно протабулировать функцию на интервале 1,5<=x<=12,5 с шагом. h=0,75

Решение задачи: «Нужно протабулировать функцию на интервале 1,5<=x<=12,5 с шагом. h=0,75»

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

const a=1.5;
      b=12.5;
      h=0.75;
var x,y:real;
begin
x:=a;
while x<=b do
 begin
  y:=abs(sqrt(x)-exp(-x)/(0.01+x*x/4));
  writeln('x=',x:5:2,' y=',y:6:3);
  x:=x+h;
 end;
end.

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

Константа a со значением 1.5
Константа b со значением 12.5
Константа h со значением 0.75
Переменная x типа real
Переменная y типа real
Присваивание переменной x значения константы a
Цикл while, выполняемый до тех пор, пока x меньше или равно b
Внутри цикла:
- Рассчитывается значение функции: y = abs(sqrt(x) - exp(-x) / (0.01 + x * x / 4))
- Выводится значение x и y с указанной точностью
- Переменной x присваивается значение x плюс h (шаг)