Написать программу, котоя выдаст k-ое число из ряда Фибоначии

@LimboART · Регистрация: 21.01.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте..
Пожалуйста, помогите написать программу, котоя выдаст k-ое число из ряда Фибоначии
-----
Кто не знает, то рад фибоначии, это когда f[n] = f[n-1] + f[n-2],,,
то есть 1 1 2 3 5 8 11 19 и т.д.

Заранее Спасибо

@Казанский · 06.05.2013, 15:39

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Function Fibo(n As Long) As Long
Dim a&, i&
Fibo = 1
If n > 2 Then
    a = Fibo
    For i = 1 To (n - 1) \ 2
        Fibo = Fibo + a
        a = a + Fibo
    Next
    If n Mod 2 = 0 Then Fibo = a
End If
End Function

@Catstail · 06.05.2013, 17:15

Что-то, перемудрили, похоже...

Visual Basic
1
2
3
4
5
6
7
8
9
10
Function Fib(n As Long, Optional ByVal c As Long = 1, Optional ByVal p As Long = 1) As Long
  Select Case n
           Case 1
             Fib = p
           Case 2
             Fib = c
           Case Else
             Fib = Fib(n - 1, c + p, c)
  End Select
End Function

@m-ch · 06.05.2013, 20:07

Visual Basic
1
2
3
4
5
6
7
8
Function f&(n&)
    Dim i&, a&
    a = 1
    For i = 1 To n
        a = f + a
        f = a - f
    Next
End Function

PS: F(0) = 0

@nat_zz · 08.05.2013, 13:50

Не в тему, но хочется добавить:
свой мат ряд математик Фибоначчи (переводится с итальянского как то ли горбатый, то ли хромой) нашел, исследуя рост численности кроликов (разводил он их). Так что можно преподу это поведать и зачет будет!!

Добавлено через 15 минут
f[n] = f[n-1] + f[n-2] = f[n-2] + f[n-3] + f[n-2] = 2f[n-2] + f[n-3] = 3f[n-3] + f[n-4] и т.д.
т е похоже, что f[n] = M*f[n-M] + f[n-M-1]. Т е всегда можно взять M = n-2 или n-3 и все вычисляется в уме!

@Catstail · 08.05.2013, 14:18

Сообщение от nat_zz

все вычисляется в уме!

- ну, вычисли в уме сотое число Фибоначчи...

@m-ch · 08.05.2013, 14:23

Сообщение от nat_zz

т е похоже, что f[n] = M*f[n-M] + f[n-M-1].

Утверждение неверное:
f(n) = f(n-1) + f(n-2) = 2*f(n-2) + f(n-3) = 3*f(n-3) + 2*f(n-4) = 5*f(n-4) + 3*f(n-5) = 8*f(n-5) + 5*f(n-6) = 13*f(n-6) + 8*f(n-7) и т.д.

Добавлено через 5 минут

Сообщение от Catstail

ну, вычисли в уме сотое число Фибоначчи...

Visual Basic
1
?(((1+sqr(5))/2)^100-((1-sqr(5))/2)^100)/sqr(5)

3,54224848179263E+20

@Catstail · 08.05.2013, 14:26

Сообщение от m-ch

3,54224848179263E+20

- а точнее 354224848179261915075

@m-ch · 08.05.2013, 14:30

А если быть более точным:
F(100) = 354224848179261915075

Добавлено через 43 секунды
Не успел уточнится

@Catstail · 08.05.2013, 15:52

А тысячное:

4346655768693745643568852767504062580256 4660517371780402481729089536555417949051 8904038798400792551692959225930803226347 7520968962323987332247116164299644090653 3187938298969649928516003704476137795166 849228875

@nat_zz · 13.05.2013, 00:35

Сообщение от Catstail

А тысячное:

4346655768693745643568852767504062580256 4660517371780402481729089536555417949051 8904038798400792551692959225930803226347 7520968962323987332247116164299644090653 3187938298969649928516003704476137795166 849228875

Ну да: кроликов считать - не в XML помогать.....

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: показать затраченные материалы за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В качестве. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

Написать программу, котоя выдаст k-ое число из ряда Фибоначии

Решение

Решение

@LimboART 5 / 5 / 0 Регистрация: 21.01.2013 Сообщений: 32

	Написать программу, котоя выдаст k-ое число из ряда Фибоначии 06.05.2013, 15:03. Показов 1286. Ответов 10 Метки нет (Все метки) Здравствуйте.. Пожалуйста, помогите написать программу, котоя выдаст k-ое число из ряда Фибоначии ----- Кто не знает, то рад фибоначии, это когда f[n] = f[n-1] + f[n-2],,, то есть 1 1 2 3 5 8 11 19 и т.д. Заранее Спасибо 0

@nat_zz 0 / 0 / 1 Регистрация: 07.05.2013 Сообщений: 39
	08.05.2013, 13:50
	Не в тему, но хочется добавить: свой мат ряд математик Фибоначчи (переводится с итальянского как то ли горбатый, то ли хромой) нашел, исследуя рост численности кроликов (разводил он их). Так что можно преподу это поведать и зачет будет!! Добавлено через 15 минут f[n] = f[n-1] + f[n-2] = f[n-2] + f[n-3] + f[n-2] = 2f[n-2] + f[n-3] = 3f[n-3] + f[n-4] и т.д. т е похоже, что f[n] = M*f[n-M] + f[n-M-1]. Т е всегда можно взять M = n-2 или n-3 и все вычисляется в уме! 0

@m-ch 6180 / 945 / 313 Регистрация: 25.02.2011 Сообщений: 1,381 Записей в блоге: 1
	08.05.2013, 14:30
	А если быть более точным: F(100) = 354224848179261915075 Добавлено через 43 секунды Не успел уточнится 0

@Catstail Супер-модератор 38203 / 21135 / 4310 Регистрация: 12.02.2012 Сообщений: 34,741 Записей в блоге: 14
	08.05.2013, 15:52
	А тысячное: 4346655768693745643568852767504062580256 4660517371780402481729089536555417949051 8904038798400792551692959225930803226347 7520968962323987332247116164299644090653 3187938298969649928516003704476137795166 849228875 0

Опции темы