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

mary yu · 24.02.2010, 23:28

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

Евгений М. · 25.02.2010, 07:35

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

24.02.2010, 23:28	#1 (permalink)
mary yu Member Регистрация: 06.01.2010 Сообщений: 14 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Метод простой итерации. QBasic Нужно решить методом простой итерации в QB x+cosx+x^2=3.257 Есть 2 идеи: Код: FOR x = 0 TO 100 STEP .001 y = x+cos(x)+xx 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)-xx 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

24.02.2010, 23:28
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Решение проблемы можно поискать по этим ссылкам QBasic, массивы Как на Linux мастер установить QBasic? Как посчитать все итерации в циклах? Графика в QBasic

25.02.2010, 07:35	#2 (permalink)
Евгений М. Новичок Регистрация: 25.02.2010 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 82	В цикле у вас нет шага. Поэтому получается бесконечный цикл.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070