Табулирование функции - Free Pascal (217)

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

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

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

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

program pr;
var
  a, b, h, x: real;
  y: real;
begin
  writeln('Введите отрезок [a,b]');
  readln(a, b);
  writeln('Введите шаг');
  readln(h);
  writeln('|  x  |  y    |');
  writeln('|-------------|');
  x := a;
  repeat 
    y := 2 * tan(x / 2) + 1;
    writeln('|', x:5:2, ' | ', y:5:2, '|');
    x := x + h;
  until x > b;
end.

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

Программа на языке Free Pascal с постановкой задачи - табулирование функции.
Введены четыре переменные: a, b, h, x (тип real).
Переменная y инициализируется значением 0.
Выводится запрос на ввод отрезка [a,b].
Введенный отрезок сохраняется в переменных a и b.
Выводится запрос на ввод шага.
Введенный шаг сохраняется в переменной h.
Выводится шапка таблицы (| x | y |).
Переменная x инициализируется значением a.
Запускается цикл, который выполняется до тех пор, пока x меньше или равно b.
Внутри цикла вычисляется значение функции y = 2 * tan(x / 2) + 1.
Выводится значение x и y в формате |x:5:2| |y:5:2|.
Значение x увеличивается на шаг h.
Цикл повторяется до тех пор, пока x меньше или равно b.
Программа завершается.
Код был написан для вычисления функции y = 2 * tan(x / 2) + 1 на отрезке [a,b] с шагом h.
Программа считывает значения a и b с помощью функции readln().
Программа считывает значение шага h с помощью функции readln().
Программа выводит значения x и y в формате |x:5:2| |y:5:2| с помощью функции writeln().
Программа использует функцию tan() для вычисления тангенса.