Suite de fibonacci

Commenter

Contenu du snippet

Ce code permet de calculer les n premiers nombres de cette suite. Ici n=1000.

Source / Exemple : 


procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,n: Integer;
begin
a:=1;
b:=2;
for n:=1 to 1000      // On calcule les 1000 premiers nombres
do
begin
Memo1.Text:=Memo1.Text+'  '+Inttostr(a);  // On ajoute au memo le nombre trouve
c:=a+b;           // On calcule le nombre suivant a et b
a:=b;               // On décale le rang
b:=c;               // ... de un pas

Conclusion :


C est ma premiere source, enfin, qui parvienne a etre uploadee, donc jattend vos critiques... Je compte m'attaquer aux nombres premiers la prochaine fois, donc si vous avez des idees...

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (MoveX)