Составить код из блок схемы basik - QBasic

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

Привет Всем. У меня просьба к вам.У меня друг попросил помочь составить код из блок схемы на basik ,а я в этом не понимаю нечего. Помогите пожалуйста,кто знает как делать, если вам не сложно

Решение задачи: «Составить код из блок схемы basik»

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

REM
REM  x = 2.24; f(x) = 0.0274
REM
 
DECLARE FUNCTION f! (x!)
 
CLS
a = 2
b = 3
e = .01
 
DO
   x = (a + b) / 2
   IF f(a) * f(x) < 0 THEN b = x ELSE a = x
LOOP UNTIL ABS(b - a) < e
 
PRINT x; f(x)
END
 
FUNCTION f (x)
   f = x ^ 2 - 5
END FUNCTION

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

Объявляется функция f(x) с помощью ключевого слова DECLARE FUNCTION.
В функции f(x) присваивается значение x в квадрате, минус 5.
Задаются начальные значения переменных a=2, b=3, e=.01.
Запускается цикл DO-LOOP, который будет выполняться до тех пор, пока абсолютное значение разности переменных b и a меньше заданной точности e.
В каждой итерации цикла находится среднее арифметическое переменных a и b, которое присваивается переменной x.
С помощью условного оператора IF проверяется знак произведения f(a) и f(x). Если знак отрицательный, то значение переменной b присваивается значение x, иначе значение переменной a присваивается значение x.
После выполнения цикла DO-LOOP выводится значение переменной x и значение функции f(x) с помощью команды PRINT.
В конце подпрограммы определяется функция f(x) с помощью ключевого слова FUNCTION, где x в квадрате минус 5 присваивается значение функции f(x).