En recherchant mon FX-702P a ecran opaque, j'ai remis la main sur le Jeu d'Inversion pour Casio GRAPH-100+ que je m'etais amuse a developper pour "evaluer" la calto. Je vous le livre ici recopie depuis mes notes (j'ecris mal !!!!), non teste.
Code : Tout sélectionner
ClrText
1234567890->N
0->C
Int (20Ran#+10)->I
Lbl L
Int (9Ran#+2)->V
Goto I
Lbl A
Dsz I
Goto L
Lbl N
C+1->C
0->V
If N<1e9
Then Locate 7,4,0
Locate 8,4,N
Else Locate 7,4,N
IfEnd
Locate 8,1,"ESSAI:"
Locate 14,1,C
Locate 4,7,"MOUVEMENT [0..9]"
Do
Getkey->K
71=K=>10->V
72=K=>1->V
62=K=>2->V
52=K=>3->V
73=K=>4->V
63=K=>5->V
53=K=>6->V
74=K=>7->V
64=K=>8->V
54=K=>9->V
LpWhile 0=V
Goto I
Lbl B
N<>1234567890=>Goto N
Goto E
Lbl I
Frac (N/10^V)->P
Int (N/10^V)10^V->N
For 0->J TO V-1
Int (10^P)10^V+N->N
Frac (10^P)->P
Next
C=0=>Goto A
Goto B
Lbl E
ClrText
Locate 8,4,"ESSAIS="
Locate 15,4,C
Les caracteres speciaux sont les suivants:
- -> : C'est l'affectation (le STO),
- => : C'est l'implique (test X si vrai alors Y) D'ailleurs, je crois me rappeller que cette fonction n'existe pas sur GRAPH-100+. Je l'avais "copie" depuis la GRAPH-65 d'un collegue...
- 10^ : C'est l'inverse Log decimal... le 10^x quoi...
- <> : C'est le different
Pour jouer, quand la calculatrice affiche "MOUVEMENT [0..9]", l'appui sur la touche correspondante realise la permutation choisie, avec une particularite: 0 donnera 10 (ce qui permet de tester juste une touche...)
Happy programming (comme dirait Richard Nelson
)
