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

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

Составить программу табулирования функции на данном отрезке с данным шагом

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

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

                            const
    XA = -1;
    XB = 1;
    XD = 0.1;
    EPS = 0.001;
    HEADER = '-----------------';
function Y(const x: Real): Real;
begin
    Y := Sqr(x) * x + 4 * Sqr(x) + x - 2;
end;
var
    x: Real;
begin
    x := XA;
    WriteLn(HEADER);
    WriteLn('|   X  |  Y(X)  |');
    WriteLn(HEADER);
    {nearlyLessOrEqual}
    while ((Abs(x - XB) < EPS) Or (x < XB)) do
    begin
        WriteLn('| ', x:4:1, ' | ', Y(x):6:3, ' |');
        x := x + XD;
    end;
    WriteLn(HEADER);
end.
                        