Une implémentation naïve de la suite de Fibonacci

Présentation

Images

Fibonacci

Description

Ce code illustre une nouvelle fois la récursivité. Le but est de montrer que dans ce cas là, l'utilisation récursive est loin d'être justifiée, et conduit à des problèmes extrêmements lourds.
Il calcule la suite de Fibonacci, qui est définie selon la relation de récurrence suivante :
F_n+2=F_n+1+F_n

Il affiche aussi le nombre d'itérations requises pour calculer chaque terme.

Plus d'informations

Ce code source a été écrit pour le tutorial sur la récursivité que vous retrouverez ici : La récursivité

Téléchargement

Version Zippée : EXE + Code source

Version EXE

EXE
VB6FR.dll : à placer dans le même dossier que le fichier EXE

Code source

La feuille :

Code source : Fibo.frm

Langage : vb
Taille : 261 caractï¿½res

Option Explicit





Private Sub Form_Load()

Dim i As Integer



For i = 1 To 20

    NbIteration = 0

    Resultat.Text = Resultat.Text & "F(" & i & ") =     " & Fibonacci_rec(i) & "        Nbiterations : " & " = >" & NbIteration & vbCrLf

Next

End Sub

Les modules :

Code source : Fibo.bas

Langage : vb
Taille : 247 caractï¿½res

Option Explicit



Public NbIteration As Long

Public Function Fibonacci_rec(n As Integer) As Long

NbIteration = NbIteration + 1

If n < 2 Then Fibonacci_rec = 1 Else Fibonacci_rec = Fibonacci_rec(n - 1) + Fibonacci_rec(n - 2)

End Function