Vous vous souvenez de la célèbre suite de nombre du mathématicien italien Leonardo Pisano (1170 à 1250) pour calculer à l'origine la croissance de la population de lapin. Selon le spirale suivant:
Voici un programme permettant de calculer le Fibonacci de nombre entier en LotusScript :
- Function Fibonacci(Byval n As Integer) As Integer
- Dim w As Integer
- Dim u As Integer
- Dim v As Integer
- If n <= 0 Then Fibonacci = 0:Exit Function
- If n = 1 Then Fibonacci = 1:Exit Function
- u = 0
- v = 1
- Dim i As Integer
- For i = 2 To n
- w = u + v
- u = v
- v = w
- Next
- Fibonacci = v
- End Function
-
- Sub Main()
- Dim i As Integer
- For i = 0 To 10
- Print "Fibonacci(" & Str$(i) & ")=" & Str$(Fibonacci(i))
- Next
- End Sub
on obtiendra le résultat suivant :
Fibonacci(0)=0Fibonacci(1)=1
Fibonacci(2)=1
Fibonacci(3)=2
Fibonacci(4)=3
Fibonacci(5)=5
Fibonacci(6)=8
Fibonacci(7)=13
Fibonacci(8)=21
Fibonacci(9)=34
Fibonacci(10)=55
Voir également
Dernière mise à jour : Dimanche, le 18 janvier 2015