Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [VB 6]Программирование итерационных циклов, Задачка 
:(
    Опции темы
Imperial_Guardian
Дата 5.10.2008, 13:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 24.6.2007
Где: ОДесса

Репутация: нет
Всего: нет
Доброго времени суток.
Нужна помощь в решении данной задачи:

Вычислить с точностью до user posted image значение примера:

user posted image

Заранее благодарю за помощь.
PM MAIL ICQ   Вверх
I_Am_Rock
Дата 5.10.2008, 15:39 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

Репутация: 2
Всего: 15
Да я мог бы попробовать, вот тока не пойму - там "2!", "4!", "6!" - и до скольки так? Как же можно решить  формулу, если не знаю где ее конец...
PM MAIL WWW   Вверх
Imperial_Guardian
Дата 5.10.2008, 16:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 24.6.2007
Где: ОДесса

Репутация: нет
Всего: нет
В том то вся задача. Мы не знаем сколько слагаемых в сумме. 
По идеи тут нужно использовать оператор Do while. Вообщем, если можешь, то помоги, пожалуйста.
PM MAIL ICQ   Вверх
I_Am_Rock
Дата 5.10.2008, 16:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

Репутация: 2
Всего: 15
Ну, я попробую че-нить придумать. Тока попозже (ближе к ночи где-то) - друган татуировку сделал, собирает всех отметить это... smile 
Но, может, и кто-то другой сможет решить...

Добавлено через 1 минуту и 26 секунд
Цитата(Imperial_Guardian @  5.10.2008,  16:25 Найти цитируемый пост)
Мы не знаем сколько слагаемых в сумме. 

А вообще, кстати, от чего это зависит? Т.е. например, если х=5, то как?
PM MAIL WWW   Вверх
Ville
Дата 5.10.2008, 17:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 27.11.2007

Репутация: нет
Всего: нет
делаеться цикл do while считаешь следущий элемент пока разница последних элементов не ниже 0,0001

do{

//считаешь предыд и новый


}while(xpr-xn>0,0001);//сравниваешь
PM MAIL   Вверх
Imperial_Guardian
Дата 5.10.2008, 17:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 24.6.2007
Где: ОДесса

Репутация: нет
Всего: нет
Ville, если знаешь как это сделать в Visual Basice, то выложи полный код, пожалуйста, ибо я в нём ни ку-ку)). 


I_Am_Rock, понятия не имею от чего это зависит, может и от икса, хотя, лично я в этом сомневаюсь, но как уже сказал камраду выше - в VB, полный нУль.
PM MAIL ICQ   Вверх
I_Am_Rock
Дата 5.10.2008, 20:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

Репутация: 2
Всего: 15
Цитата(Imperial_Guardian @  5.10.2008,  17:13 Найти цитируемый пост)
I_Am_Rock, понятия не имею от чего это зависит, может и от икса, хотя, лично я в этом сомневаюсь, но как уже сказал камраду выше - в VB, полный нУль. 

Я на VB стопудов смогу написать прогу, но мне нужно понять саму формулу... Если мне здесь кто-нить объяснит, отчего зависит кол-во слогаемых, то будет готова прога... По тому, что написал Ville мне кажется, что если послед. слогаемое меньше или больше пред. слог. меньше чем на 0,0001, то типа прекратить складывать (или вычитать), так? Или как-то по-другому?
PM MAIL WWW   Вверх
Ville
Дата 6.10.2008, 11:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 27.11.2007

Репутация: нет
Всего: нет
имено так=) я в VB ноль...так что алгоритм дал а реализовать на vb сложно...
PM MAIL   Вверх
Akina
Дата 6.10.2008, 12:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 454
Код

function CosX(x as double, e as double) as double
CosX=1
i=1
do
  В = x^(2*i) / factorial(2*i)
  CosX=CosX + (-1)^i * B
  i=i+1
loop until B < e
end function



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Imperial_Guardian
Дата 6.10.2008, 19:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 24.6.2007
Где: ОДесса

Репутация: нет
Всего: нет
Спасибо за помощь, но, если можно, я бы хотел уточнить ещё один момент.
Как это код реализовать в в программе? Т.е. пояню что имею в виду.
Сама программа(окно) должна выглядеть некоторым образом, а именно: одно поле ввода x и две кнопки - Вычислить и Выход. X - должен задаваться пользователем в своём поле ввода, а сам ответ должен выводиться в отдельном окне после нажатия кнопки Вычислить, рассчитывающей выражение.

Если кто-то оптимизирует предыдущий код под эти условия, буду очень признателен.



Это сообщение отредактировал(а) Imperial_Guardian - 6.10.2008, 19:13
PM MAIL ICQ   Вверх
I_Am_Rock
Дата 6.10.2008, 19:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

Репутация: 2
Всего: 15
Вообще, оптимизированный код должен выглядеть так. Разместите ТекстБокс и две кнопки

Код

Private Sub Command1_Click()
t = CosX(Val(Text1.Text), 0.0001)
MsgBox t, , ""
End Sub

Function CosX(x As Double, e As Double) As Double
Dim i As Integer
CosX = 1
i = 1
Do
  B = x ^ (2 * i) / factorial(2 * i)
  CosX = CosX + (-1) ^ i * B
  i = i + 1
Loop Until B < e
End Function

Private Sub Command2_Click()
End
End Sub

Function factorial(p As Integer) As Double
Dim z As Double
z = 1
For l = 1 To p
z = z * l
Next
factorial = z
End Function


Теперь работает...

Это сообщение отредактировал(а) I_Am_Rock - 6.10.2008, 19:41
PM MAIL WWW   Вверх
Imperial_Guardian
Дата 6.10.2008, 19:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 24.6.2007
Где: ОДесса

Репутация: нет
Всего: нет
Большое спасибо всем за помощь.
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0932 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.