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

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

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

Но без использования консоли в программе!

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

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

const
    line = '----------------------------';
    EPS = 0.001;
var
    a, b, h: Single;
begin
    Write('a='); ReadLn(a);
    repeat
        Write('b='); ReadLn(b);
    until (b > a);
    Write('h='); ReadLn(h);
    WriteLn;
    WriteLn(line);
    WriteLn('|     x     |     F(x)     |');
    WriteLn(line);
    while ((a < b) Or (Abs(a - b) < EPS)) do
    begin
        Write('| ', a:9:2, ' | ');
        if (a < 0)
        then
            WriteLn('complex numb |')
        else
            WriteLn((Sqrt(a) * Sqr(Sin(a))):12:2, ' |');
        a := a + h;
    end;
    WriteLn(line);
end.

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

В первой строке заданы константы и переменные.
Затем происходит чтение значений переменных a, b и h с помощью функции ReadLn.
Далее идет проверка, что значение переменной b больше значения переменной a.
Затем происходит чтение значения переменной h.
Выводится строка с метками для отображения результатов.
Запускается цикл while, который выполняется до тех пор, пока либо a меньше b, либо расстояние между ними меньше EPS.
Внутри цикла выводится значение переменной a с меткой | a | и, если a меньше нуля, выводится complex numb |.
Значение переменной a увеличивается на h.
Выводится значение переменной a с меткой | a |, если оно изменилось.
Цикл while повторяется, пока выполняются условия.
Выводится строка с метками для отображения результатов.
Выводится строка с метками для отображения результатов.
Конец программы.