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é.
|