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 :
Fn+2=Fn+1+Fn

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

Code source

La feuille :

Code source : Fibo.frm
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
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


Auteur
Neamar
Date
Juillet 2008
But
Fibonacci récursif
Langage
Visual Basic
Voir aussi
La récursivité
Menu
Index des ressources

Chargement du sommaire...