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

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

Протабулировать функцию f(x)=cos(x)-|x| на интервале [1;5] с шагом h=0.5, используя цикл repeat…until.

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

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

{$MODE TP}
const
    A = 1;
    B = 5;
    H = 0.5;
    LINE = '-----------------';
var
    x: Single;
begin
    WriteLn(LINE);
    WriteLn('|  x  |   f(x)  |');
    WriteLn(LINE);
    x := A;
    repeat
        WriteLn('| ', x:3:1, ' | ', (Cos(x) - Abs(x)):7:4, ' |');
        x := x + H;
    until (x > B);
    WriteLn(LINE);
end.

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

В первой строке кода объявляются константы и переменные.
Переменная x инициализируется значением A.
Выводится строка | x | f(x) | для настройки формата вывода.
Выводится строка | 1 | cos(1) - abs(1) | для демонстрации формулы табуляции.
Переменная x увеличивается на значение H, получаемое из константы H.
Цикл повторяется до тех пор, пока значение переменной x не станет больше значения B.
После достижения этого условия цикл прерывается.
Выводится последняя строка | 1 | cos(1) - abs(1) |.
Конец программы.