Forum programmation
 
AccueilPortailFAQRechercherS'enregistrerMembresGroupesConnexion

Partagez | 
 

 fibonacci

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Scorshy
utilisateur régulier
utilisateur régulier
avatar

Nombre de messages : 78
Age : 28
Date d'inscription : 18/02/2007

MessageSujet: fibonacci   Mar 4 Déc - 13:36

1. n = 0 la fonction donne 0 comme résultat
2. n = 1 la fonction donne 1 comme résultat
3. autre n la fonction donne Fn-1 + Fn-2 comme résultat

On obtient donc la fonction suivante:
function fibonacci ( n : integer ) : integer;
(* calcule le nème nombre de Fibonacci, n étant donné en paramètre *)

begin (* fibonacci *)

if n = 0 then (* cas de F0 *)
fibonacci := 0

else if n = 1 then (* cas de F1 *)
fibonacci := 1

else (* tous les autres cas *)
fibonacci := fibonacci ( n - 1 ) + fibonacci ( n - 2 ); (* appels récursifs *)

end; (* fibonacci *)








j'ai proposé cette solution réccursive pour le problème de l n-ème de la suite ...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
fibonacci
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» La suite de Fibonacci

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Forum programmation :: Programmation :: Delphi & Pascal :: Pascal :: Exercices-
Sauter vers: