Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


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

Старый 24.02.2010, 23:28
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 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
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 23:35.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.