Написать программу, котоя выдаст 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 помогать.....

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

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

Решение

Решение

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

	Написать программу, котоя выдаст k-ое число из ряда Фибоначии 06.05.2013, 15:03. Показов 1266. Ответов 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 Супер-модератор 38193 / 21126 / 4309 Регистрация: 12.02.2012 Сообщений: 34,732 Записей в блоге: 14
	08.05.2013, 15:52
	А тысячное: 4346655768693745643568852767504062580256 4660517371780402481729089536555417949051 8904038798400792551692959225930803226347 7520968962323987332247116164299644090653 3187938298969649928516003704476137795166 849228875 0