Отделение корней заданного уравнения - QBasic

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

Задача:Составить программу на Бейсике для отделения корней заданного уравнения методом перебора и уточнения значений методом половинного деления

Решение задачи: «Отделение корней заданного уравнения»

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

DEFDBL X, P, A, B
INPUT "vvedite a: ", a
INPUT "vvedite b: ", b
p = 0.0001
x = (a + b) / 2
DO WHILE ABS(f(x)) > p
    IF f(x) > 0 THEN b = x ELSE a = x
    x = (a + b) / 2
LOOP
PRINT x
FUNCTION f (x)
f = х^3-9х+3 'ваша функция
END FUNCTION

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

В первой строке определяются константы a, p, b и x.
Далее, с помощью функции INPUT, вводятся значения для a и b.
Переменная p инициализируется значением 0.0001.
Переменная x инициализируется средним значением a и b.
Запускается цикл DO WHILE, который будет выполняться до тех пор, пока абсолютное значение функции f(x) больше p.
Внутри цикла, с помощью условного оператора IF, проверяется знак функции f(x).
Если функция f(x) положительна, то значение переменной b присваивается значение x.
Если функция f(x) отрицательна, то значение переменной a присваивается значение x.
Значение переменной x обновляется как среднее значение a и b.
Цикл продолжается до тех пор, пока условие не будет выполнено.
После завершения цикла, выводится значение переменной x.
Определяется функция f(x), которая представляет собой полином x^3 - 9x + 3.
Функция f(x) вызывается в строке с PRINT, чтобы вычислить значение функции для переменной x.
Код завершается.