Вычислить значение функции F(x) на отрезке [a; b] с шагом h - Pascal ABC

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

Составить программу вычислении значений функции F(x) на отрезке [a; b] с шагом h. Результат представить в виде таблицы, первый столбец которой — значения аргумента, второй — соответствующие значения функции: F(x)=tgx, a=0, b=п/4, h=п/40.

Решение задачи: «Вычислить значение функции F(x) на отрезке [a; b] с шагом h»

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

program pr;
const
b= pi / 4;
h= pi / 40;
var
  a, y, x: real;
begin
  a := 0;
  x := a;
  writeln('|  x   |  y   |');
  writeln('---------------');
  repeat 
    y := tan(x);
    writeln('|', x:1:4, '|', y:1:4, '|');
    x := x + h;
  until x > b;
end.

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

В программе объявлены три переменные: a, y, x, которые имеют тип real (число с плавающей точкой).
Переменная a инициализируется значением 0.
Переменная x инициализируется значением a.
Выводится заголовок для таблицы с результатами вычислений функции F(x).
Выполняется цикл repeat, который будет выполняться до тех пор, пока значение переменной x не станет больше значения переменной b.
Внутри цикла переменная y инициализируется значением функции tan(x), которая возвращает тангенс числа x.
Выводятся результаты вычислений в таблицу с помощью функции writeln.
Значение переменной x увеличивается на шаг h.
Цикл повторяется до тех пор, пока значение переменной x не станет больше значения переменной b.