Метод простой итерации. QBasic

[mary yu]

Метод простой итерации. QBasic

Нужно решить методом простой итерации в QB
x+cosx+x^2=3.257

Есть 2 идеи:

FOR x = 0 TO 100 STEP .001
y = x+cos(x)+x*x
IF ABS(y) < .001 THEN PRINT x
NEXT

а вот тут правильно поставила DO?когда запускаю после точности,зависает((

CLS
PRINT"a"
input"a";a
PRINT"b"
input"b";b
PRINT"e"
input"e";e
def fny(x)=3.257-cos(x)-x*x
Do
x1=a
x0=abs(x1)
x1=fny(x0)
loop until abs(x0-x1)<=e
print x1
m=x1-3.257+cos(x)+x*x
print m
end

 

[Евгений М.]

В цикле у вас нет шага. Поэтому получается бесконечный цикл.