Cyplejet le 12/08/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 le 12/08/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
