Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.85/13: Рейтинг темы: голосов - 13, средняя оценка - 4.85
-1 / 0 / 0
Регистрация: 31.05.2018
Сообщений: 7
1

Вычисление суммы первых n чисел Фибоначчи

31.05.2018, 11:02. Просмотров 2635. Ответов 4
Метки нет (Все метки)

(числа Фибоначчи 1,1,2,3,5,8 и т.д., т.е. каждое последующее число равно сумме двух предыдущих)
Заранее спасибо за помощь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.05.2018, 11:02
Ответы с готовыми решениями:

Вычисление суммы первых n членов ряда
Составьте блок-схему и программу на языке VBA, которая вычисляет сумму первых n членов ряда , где...

Вычисление суммы первых n чисел Фибоначчи
Нужна помощь в составлении программ 1. вычисление суммы первых n чисел Фибоначчи (числа Фибоначчи ...

программа вычисления суммы первых N целых положительных чисел
Разработайте алгоритм и программу вычисления суммы первых N целых положительных чисел (значение N и...

Циклы: вычисление суммы последовательностей положительных чисел
Написать программу используя циклы do while - loop, которая вычисляет сумму последовательностей...

__________________
4
1413 / 974 / 304
Регистрация: 11.07.2014
Сообщений: 3,460
01.06.2018, 16:59 2
LuxuryIdentity, а если сами не можете, то ответов в поисковике куча. Напр на этом же форуме
Макрос для ряда Фибоначчи
0
Модератор
Эксперт Python
28529 / 15399 / 3043
Регистрация: 12.02.2012
Сообщений: 25,230
Записей в блоге: 4
02.06.2018, 08:24 3
Тип double взят потому, что числа Фибоначчи довольно быстро возрастают (и выйдут за пределы int/long).

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Function sumFib(n As Integer, Optional c As Double = 1, Optional p As Double = 0, Optional s As Double = 0) As Double
  If (n = 0) Then
    sumFib = s
  Else
    sumFib = sumFib(n - 1, c + p, c, s + c)
  End If
End Function
 
Sub start()
 
    Debug.Print sumFib(50)
    
End Sub
0
655 / 214 / 21
Регистрация: 20.05.2016
Сообщений: 924
Записей в блоге: 15
06.06.2018, 10:12 4
Если интересны действительно большие числа Фибоначчи, могу скинуть решение или используйте сами метод "Fibonacci" в надстройке для Excel (VBA)
0
5685 / 893 / 298
Регистрация: 25.02.2011
Сообщений: 1,272
Записей в блоге: 1
06.06.2018, 11:24 5
вариант функции без рекурсии
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Function sFib(n As Long) As Double
    Dim i As Long, s As Double, a As Double, b As Double
    If n = 0 Then Exit Function
    a = 1
    s = a
    For i = 2 To n
        a = a + b
        b = a - b
        s = s + a
    Next i
    sFib = s
End Function
Добавлено через 12 минут
или чуть короче
Visual Basic
1
2
3
4
5
6
7
8
9
Function sFib(n As Long) As Double
    Dim i As Long, a As Double, b As Double
    a = 1
    For i = 2 To n + 2
        a = a + b
        b = a - b
    Next i
    sFib = a - 1
End Function
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.06.2018, 11:24

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Вычисление суммы трехзначных чисел, в десятичной записи которых нет четных цифр
Составьте программу вычисления суммы трехзначных чисел, в десятичной записи которых нет четных...

Сосчитайте, сколько четырёхзначных чисел имеют одинаковые суммы двух первых и двух последних цифр
Сосчитайте, сколько четырёхзначных чисел имеют одинаковые суммы двух первых и двух последних цифр....

Вычисление суммы всех нечетных по значению больше трёх и меньше 50-ти чисел в заданном диапазоне
Приветствую! Помогите пожалуйста понять правильно ли я написал макрос. Задача такова: создать...

Рекурсивное вычисление суммы первых n чисел Фибоначчи
вычислить сумму первых n членов чисел Фибоначи составить рекурсивную задачу


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.