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

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

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

REM
REM  x = 2.23045; f1 = -0.0251
REM
 
DECLARE FUNCTION f! (x!)
CLS
 
a = 1
b = 3
e = .01
 
x = a
f1 = f(a)
h = b - a
 
DO WHILE ABS(h) > e
   h = h / 3
 
   DO
      x = x + h
      f2 = f(x)
   LOOP WHILE f1 * f2 > 0
   x = x - h
LOOP
 
x = x - h / 2
f1 = f(x)
 
PRINT "x ="; x
PRINT "f1 ="; f1
END
 
FUNCTION f (x)
   f = x ^ 2 - 5
END FUNCTION

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

В данном коде решается задача численного решения квадратного уравнения.

Объявляется переменная x и присваивается ей значение 2.23045, а также переменная f1 со значением -0.0251.
Затем происходит цикл по переменной x, в котором вычисляется функция f(x) и сохраняется в переменную f1. Инициализируется переменная h со значением разности между b и a, где a и b — границы интервала, в котором будет происходить численное решение.
Далее следует цикл, который будет выполняться до тех пор, пока абсолютное значение h больше заданной точности e. В этом цикле значение h уменьшается в 3 раза, а затем выполняется еще один цикл по переменной x, в котором вычисляется функция f(x) и сохраняется в переменную f2. Этот цикл будет выполняться до тех пор, пока произведение f1 и f2 больше нуля.
После выхода из циклов, значение x приводится к окончательному результату, путем отнимания половины значения h. Значение функции f(x) снова вычисляется и сохраняется в переменную f1.
В конце программы выводятся значения x и f1 на экран.
В функции f(x) вычисляется значение квадрата x минус 5.