VIVEZ LE
FOOTBALL !
Posez votre question Signaler

Fibonacci en VBA (3méthodes) [Résolu]

VBA_Newb 4Messages postés 12 février 2009Date d'inscription - Dernière réponse le 13 févr. 2009 à 03:25
Bonjour,
En mathématique, la suite de Fibonacci est définie comme suit :
Fibonacci(n) = 1 si n = 1 ou 2
= Fibonacci(n-1) + Fibonacci(n-2) si n>=3
Il existe un algorithme itératif pour fibonacci(n) comme suit :
initialiser la valeur de fibo à 0
initialiser i à 1
on répète n fois les 2 instructions suivantes :
fibo = fibo + i
i = fibo - i;
après n itérations, le résultat de fibonacci(n) est dans fibo.
Écrivez 3 fonctions, recevant la valeur de n pour calculer fibonacci de n:
1) en utilisant la boucle for…next
2) en utilisant la boucle while …
3) en utilisant la boucle do … Loop while …
j'aimerais écrire ces trois fonctions en suivant les instructions mentionnés plus haut. Si quelqu'un pourrait répondre à au moins une de ces trois là, ce serait très apprécier
merci
Lire la suite 

Fibonacci en VBA (3méthodes) »

Suggestions
Plus
2 réponses
Réponse
+7
moins plus
wilfried_42 908Messages postés 19 août 2008Date d'inscription 12 févr. 2009 à 07:49
Bonjour

En fonction de ce que j'ai compris 

Function fibo_fn (n as long) as long
    dim fibo as long
    dim i as long
    dim j as long
    fibo = 0 : i = 1
    for j = 1 to n
         fibo = fibo + i
         i = fibo - i
    next i
    fibo_fn = fibo
end function 

Function fibo_while (n as long) as long
    dim fibo as long
    dim i as long
    dim j as long
    fibo = 0 : i = 1 : j = 0
    While j< n
         fibo = fibo + i
         i = fibo - i
         j = j + 1
    wend
    fibo_While = fibo
end function 

Function fibo_do (n as long) as long
    dim fibo as long
    dim i as long
    dim j as long
    fibo = 0 : i = 1 : j = 0
    Do
         fibo = fibo + i
         i = fibo - i
         j = j + 1
    loop while j<n
    fibo_do = fibo
end function

Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
VBA_Newb 4Messages postés 12 février 2009Date d'inscription 13 févr. 2009 à 03:25
C'est exactement ce qu'il me fallait

Merci beaucoup

 Ajouter un commentaire
Ajouter un commentaire
Posez votre question
Ce document intitulé « Fibonacci en VBA (3méthodes) » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?