Методом простой итерации найти корень уравнения - 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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