Вычисление значения функции F(x) на отрезке [a, b] с шагом h - Pascal ABC
Формулировка задачи:
Составить программу для вычисления значения функции F(x) на отрезке [a,b] с шагом h. Произвести проверку деления на ноль если это необходимо. Результат представить в виде таблицы, первый столбец которой — значения аргумента, второй — соответствующие значения функции.
для функции:
Но без использования консоли в программе!
Решение задачи: «Вычисление значения функции F(x) на отрезке [a, b] с шагом h»
textual
Листинг программы
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 повторяется, пока выполняются условия.
- Выводится строка с метками для отображения результатов.
- Выводится строка с метками для отображения результатов.
- Конец программы.