Технический форум - Метод простой итерации. QBasic

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Метод простой итерации. QBasic (http://www.tehnari.ru/f41/t33481/)

Метод простой итерации. 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

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