Методом простой итерации найти корень уравнения - QBasic

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

мой вариант 20.

rem
INPUT x0,e
x1=x0^(3)-12*x0-8
IF ABS(x-x0)<e THEN
PRINT x1
ELSE x1=x0^(3)-12*x0-8
PRINT x1
END

я не понимаю.может, блок-схема неправильная?(

Решение задачи: «Методом простой итерации найти корень уравнения»

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

                            REM
REM OTBET: x = 3.880901
REM
 
CLS
INPUT "x0, e = "; x0, e
 
DO
   x = x0
   x0 = (13 * x + 8) ^ (1 / 3)
LOOP UNTIL ABS(x - x0) < e
 
PRINT x
END
                        

Оцени полезность:

14 голосов , оценка 3.929 из 5

Похожие ответы