Bonjour
Voici mon tout premier programme (finnis) je sais qu'il existe deja des version bien meux optimisé mais pour l'instant j'apprends encorre les base de la programation sur TI82 stats.fr
| Code | Lbl N
1ü L
0üI
0üK
0üB
0üD
EffEcr
Menu(" TROUVE X ","1 JOUEUR",1,"2 JOUEUR",2,"QUITTER",Ø //deux simple menu pour mettre en place le jeu
Lbl 1
1üJ
Goto 4
Lbl 2
2üJ
Lbl 4
Menu(" X ENTRE ","1 et 100",5,"1 et 1000",6,"1 et 10000",7,"PERSONALISE",8
Lbl 5
100üM
Goto 9
Lbl 6
1000üM
Goto 9
Lbl 7
10000üM
Goto 9
Lbl 8
Disp "X ENTRE 1 et"
Input M
Lbl 9
entAléat(1,M)üA
entAléat(1,M)üC
M/2üG
M/2üH
MüV
Lbl 0 // Le debut du jeu, chaque tour commencera par ici
EffEcr
Disp "TROUVE X","ENTRE 1 et"
Output(2,12,V)
If I=1 // Le joueur 1 commence
Then
Disp "J1 A TROUVER","X=",""
Output(4,4,A
Else
B+1üB
Disp "J1:"
Input "X=",X
If X>A
Then
Disp "PLUS BAS"
Else
If X<A
Then
Disp "PLUS HAUT"
Else
Disp "GAGNE"
1üI
End
End
Pause
End
If K=1 // Au tour du joueur 2
Then
Disp "J2 A TROUVER X","X="
Output(7,4,C
Else
D+1üD
Disp "J2"
If J=1 // Si on a selectionner 1 joueur dans le menu de depart pour rediriger vers l'IA
Then
entAléat(ent(G),ent(H))üF
Disp "X="
Output(7,4,F
Then
FüM
Else
If F<C
Then
FüL
Else
Disp "GAGNE","X="
Output(8,4,C
1üK
End
End
M-LüR
(R/2)*(1/D)üW
M-W-1üH
L+W+1üG
Else // Puis si on a selectionner 2 joueur
Input "X=",Y
If Y>C
Then
Disp "PLUS BAS
Else
If Y<C
Then
Disp "PLUS HAUT"
Else
Disp "GAGNE"
1üK
End
End
End
End
Pause
EffEcr
If K=1 et I=1 // La fin du cycle
Then
Disp "J1 A TROUVE EN"," COUP","","J2 A TROUVE EN"," COUP"
Output(2,1,B
Output(5,1,D
If B>D
Then
Output(7,1,"J2 WIN"
Else
If N<D
Then
Output(7,1,"J1 WIN"
Else
Output(7,1,"EGALITE"
End
End
Pause
Else
Goto 0
End
Goto N
Lbl Ø
|
J'espere que vous me donnerez des conseil pour optimise ce programme
et dsl mais j'ai voulu afficer une fleche (alt + 26) mais ca a fini en →
EDIT Mingerton : Bug des caractères remplacé.
|
