SUITE DE FIBONACCI
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
-
24 oct. 2004 à 01:46
MoveX Messages postés 230 Date d'inscription vendredi 9 mai 2003 Statut Membre Dernière intervention 16 juillet 2005 - 24 oct. 2004 à 18:01
MoveX Messages postés 230 Date d'inscription vendredi 9 mai 2003 Statut Membre Dernière intervention 16 juillet 2005 - 24 oct. 2004 à 18:01
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/26918-suite-de-fibonacci
https://codes-sources.commentcamarche.net/source/26918-suite-de-fibonacci
24 oct. 2004 à 18:01
24 oct. 2004 à 01:46
Comment le vérifier ?
Solution :
var
a,b,c: int64;
n: integer;
begin
a:=1;
b:=2;
Memo1.Clear;
Memo1.Lines.BeginUpdate;
for n:=1 to 1000 do // on calcule les 1000 premiers nombres
begin
Memo1.Lines.Add(IntToStr(n) + ' : ' +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;
if c < 0 then break;
end;
Memo1.Lines.EndUpdate;
end;