24.02.2010, 23:28 | #1 (permalink) |
Member
Регистрация: 06.01.2010
Сообщений: 14
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Метод простой итерации. QBasic
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 Код:
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 |
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
|
|
|