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 Visual Basic .NET (VB .NET) :
- Module Module1
-
- Function Fibonacci(ByVal n As Integer) As Integer
- Dim w As Integer
- If n <= 0 Then Return 0
- If n = 1 Then Return 1
- Dim u As Integer = 0
- Dim v As Integer = 1
- Dim i As Integer
- For i = 2 To n
- w = u + v
- u = v
- v = w
- Next
- Return v
- End Function
-
- Sub Main()
- Dim i As Integer
- For i = 0 To 10
- Console.WriteLine("Fibonacci(" & i & ")=" & Fibonacci(i))
- Next
- End Sub
-
- End Module
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
Science - Mathématique
Langage de programmation - C# (C Sharp) - Mathématique - Fibonacci
Dernière mise à jour : Samedi, le 22 octobre 2016