| Вопрос: Определить первое число Фибоначчи, большее M (M> | Добавлено: 21.03.06 19:36 |
Автор вопроса:  КУДЕСНИК
|
| Ответы | Всего ответов: 18 |
|
Номер ответа: 16 Автор ответа:  Fever Вопросов: 60 Ответов: 808 |
Профиль | | #16 | Добавлено: 22.03.06 22:08 |
|
Ага, а теперь считай. Приравниваем все это дело нужному числу и получаем...
Sharp, ты тоже кнута юзаешь? Тогда хоть знаешь что есть TeX? Тут ваще никто о таком не слышал. |
||
|
Номер ответа: 17 Автор ответа: КУДЕСНИК Вопросов: 10 Ответов: 13 |
Профиль | | #17 | Добавлено: 24.03.06 20:40 |
|
если комуто интересно то вот как мое решение
------------------------------------------- Option Explicit Dim u, m, n As Long Private Sub schet() m = Val(Text1.Text) u = (10 * m ^ 2 + 4) / 2 n = Abs(Log(Sqr((u - Sqr(u ^ 2 - 4)) / 2)) / Log((1 + Sqr(5)) / 2)) Text3.Text = (((1 + Sqr(5)) / 2) ^ (n + 1) - ((1 - Sqr(5)) / 2) ^ (n + 1)) / Sqr(5) End Sub Private Sub Command1_Click() schet End Sub |
||
|
Номер ответа: 18 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #18 | Добавлено: 27.03.06 23:02 |
|
vito, в нашем задачнике по линалу описано, как решать рекуррентные уравнения.
Fever, я по теху писал статьи. |
||