| Suite de Fibonacci |
| Auteur |
Message |
Cyplejet
Autorisation : Membre
Nb de messages : 23
Inscrit le : Mar 21 Avr 2009, 20:14
|
Posté le : Jeu 12 Aoû 2010, 16:05
|
|
 |
Bonjour tout le monde.
Je viens aujourd'hui vous proposer un petit programme (99 octets) pour que vous me disiez ce que vous en pensez. Il est évident qu'il n'est pas très utile, mais avec de l'idée, ça peut devenir peut-être plus utile? (ou pas)
La seule utilité actuelle c'est le calcul du nombre d'or, mais comme je ne le dis pas souvent (pas du tout en fait), si je ne propose rien, je ne peux pas avancer.
| Code | :0->T
:0->A
:1->B
:0->C
:0->E
:ClrHome
:Lbl 1
:Input "RANG_:_",E
:ClrHome
:Goto 2
:Lbl 3
:T+1->T
:If T>=E
:Stop
:If T<E
:Goto 2
:Lbl 2
:Disp B
:A->C
:B->A
:B+C->B
:Goto 3 |
et le glossaire des symboles au cas où certains passent pour la première fois.
| Code | _ est un espace
-> est le [Sto] touche 91
// blabla est un commentaire à ne pas mettre dans le programme
>= est le symbole [supérieur ou égal à] dans la partie test |
Question BONUS : peut-on utiliser ce programme afin de faire un jeu ?
|
 |
  |
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Jeu 12 Aoû 2010, 17:14
|
|
|
Visiblement, on peut réduire un peut la longueur du programme en utilisant EffVar à la place des "0->" et on peut réorganiser ton programme de la façon suivante:
| Code | DelVar T
DelVar A
1->B
DelVar C
DelVar E
ClrHome
Input "RANG : ",E
ClrHome
While T<E
Disp B
A->C
B->A
B+C->B
T+1->T
End |
Ensuite, j'ai tester ton programme et il m'affiche toujours 0. Tu est sur qu'une variable ne commence pas par 1 comme par exemple B?
Sangohan38
|
| |
|
| |
Cyplejet
Autorisation : Membre
Nb de messages : 23
Inscrit le : Mar 21 Avr 2009, 20:14
|
Posté le : Jeu 12 Aoû 2010, 21:39
|
|
|
En effet c'est bien 1->B erreur de frappe. Je modifie.
|
| |
|
| |
