Section courante

A propos

Section administrative du site

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) :

  1. Module Module1
  2.  
  3.     Function Fibonacci(ByVal n As Integer) As Integer
  4.         Dim w As Integer
  5.         If n <= 0 Then Return 0
  6.         If n = 1 Then Return 1
  7.         Dim u As Integer = 0
  8.         Dim v As Integer = 1
  9.         Dim i As Integer
  10.         For i = 2 To n
  11.             w = u + v
  12.             u = v
  13.             v = w
  14.         Next
  15.         Return v
  16.     End Function
  17.  
  18.     Sub Main()
  19.         Dim i As Integer
  20.         For i = 0 To 10
  21.             Console.WriteLine("Fibonacci(" & i & ")=" & Fibonacci(i))
  22.         Next
  23.     End Sub
  24.  
  25. End Module

on obtiendra le résultat suivant :

Fibonacci(0)=0
Fibonacci(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