.
Sinon, j'aurais une préférence pour:
4->dim(L1
0->K
ClrHome
Disp "ENTRER CODE..."
For(I,1,4
Repeat K
getKey->K
End
K->L1(I)
Output(2,12+I,"*"
End
L1={93,83,93,73}->L1
If not(sum(L1)=4):Goto E
...
... |
... | Lignes de code du programme si ça marche
... |
...
Lbl E
ClrHome
Stop
Les espace et les lignes passés ne servent que pour la lisibilité du code sur le forum.
On peut évidement remplacer le not( par un 'différent de'...
L'avantage de faire comme ça, c'est que le code est assez général. (on peut très façielment mettre 8 valeurs, ou même n, avec n non-connu à l'avance, il suffira de remplacer le 4 par dim(L1))
Pour se passer complétement de label (
), on doit pouvoir metre un Stop à la place du goto E. Ou alors on peut mettre un If then ..programme... else ..quiter le program.. End mais je trouve ça carrément lourd pour tout un programme.
Evidemment tu peut te dispenser d'afficher des '*', les afficher dans l'autre sens (
), etc.
Enifn, si le code est consultable sur calculette, ça sert vraiment à décorer
. (sinon, faut cocher la case sur Ti graph Link..)