Vulcairn le 15/11/2015 à 00:33
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é.
