Табулирование функции с оператором цикла - Pascal ABC

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

Используя операторы Паскаль-"Пока" и "До" составить программы табулирования функции y=f(x) на отрезке [a, b] с шагом h=b-a/m , где m=15, a=

/8, b=

/2, функция sin(1/x)

Решение задачи: «Табулирование функции с оператором цикла»

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

var a,b,h,x,y:real;
    m:integer;
begin
a:=pi/8;
b:=pi/2;
m:=15;
h:=(b-a)/m;
x:=a;
while x<=b do
 begin
  y:=sin(1/x);
  writeln(' x=',x:5:2,' y=',y:6:3);
  x:=x+h;
 end;
end.

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

Создаются переменные a, b, h, x, y типа real.
Переменная m инициализируется значением 15.
Вычисляется значение переменной h как разность между значениями переменных b и a, делённая на значение переменной m.
Значение переменной x устанавливается равным a.
Запускается цикл while, условием которого является x <= b.
Внутри цикла вычисляется значение переменной y как результат sin(1/x).
Выводится строка ' x=', с пробелами, значение переменной x и значение переменной y.
Значение переменной x увеличивается на h.
Цикл while повторяется, пока значение x не станет больше или равно значению b.