1 ; Trouve et imprime le premier terme de la suite de Fibonacci
3 ; Ph. Gabrini septembre 2005
7 Boucle: CPA 500,i ; while(somme < 500)
10 STA avant,d ; avant = dernier;
12 STA dernier,d ; dernier = somme;
14 STA somme,d ; somme = avant + dernier;
16 Affiche:STRO msg1,d ; cout << "Premier ... "
17 DECO somme,d ; << somme
18 CHARO '\n',i ; << endl;
20 avant: .WORD 0 ; int avant = 0;
21 dernier:.WORD 1 ; int dernier = 1;
22 somme: .WORD 1 ; int somme = 1;
23 msg1: .ASCII "Premier terme de la suite de Fibonacci > 500: \x00"