Табулирование функции - Turbo Pascal (29408)
Формулировка задачи:
Протабулировать функцию f(x)=cos(x)-|x| на интервале [1;5] с шагом h=0.5, используя цикл repeat…until.
Решение задачи: «Табулирование функции»
textual
Листинг программы
{$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) |. - Конец программы.