Autorisation : Membre
Nb de messages : 3
Inscrit le : Jeu 19 Nov 2009, 21:58
Posté le : Jeu 19 Nov 2009, 22:13
Bonsoir à tous, je vous présente mon premier jeu sur ti (82stats-fr pour ma pomme)
Il s'agit d'un mastermind, assez simple pour le moment,
On vous demande de trouver un nombre compris en 0 et 9999.
Sachant qu'il ne peux y avoir (par soucis de facilitée ) 2x le même chiffre
Je l'ai testé et il marche
Merci de commenter, d'apporter vos idées et de me supporter
Sur ce, le voilà:
Code
EffEcr
1\->\R
Lbl 1
entAléat(1,9\->\A
entAléat(1,9\->\B
entAléat(1,9\->\C
entAléat(1,9\->\D
If A=B ou A=C ou A=D ou B=C ou B=D ou C=D
Then
Goto 1
Else
Goto 2
End
Lbl 2
(1000*A)+(100*B)+(10*C)+(1*D)\->\E
Disp " CHOISISSEZ
Disp " UNE VALEUR
Disp " COMPRIS ENTRE
Disp " 0000 et 9999
Disp ""
Lbl \theta\
Input "",F
If F<0 ou F>9999
Then
Goto \theta\
End
ent(F/1000\->\X
ent(F/100)\->\Y
ent(F/10)\->\Z
X\->\G
If X=A
Then
Output(7,13,"1
Else
Output(7,13,"0
End
Y-10G\->\H
If B=H
Then
Output(7,14,"1
Else
Output(7,14,"0
End
Z-100G-10H\->\I
If C=I
Then
Output(7,15,"1
Else
Output(7,15,"0
End
F-1000G-100H-10I\->\J
If D=J
Then
Output(7,16,"1
Else
Output(7,16,"0
End
If F=E
Then
Output(8,1,"GAGNE :
Output(8,9,R
Output(8,12,"COUPS
Else
If G=B ou G=C ou G=D
Then
Output(7,13,"?
End
If H=A ou H=C ou H=D
Then
Output(7,14,"?
End
If I=A ou I=B ou I=D
Then
Output(7,15,"?
End
If J=A ou J=B ou J=C
Then
Output(7,16,"?
End
R+1\->\R
Goto \theta\
Autorisation : Membre
Nb de messages : 3
Inscrit le : Jeu 19 Nov 2009, 21:58
Posté le : Ven 20 Nov 2009, 6:45
Salut, et merci de répondre à mon post.
J'ai édité le programme comme tu me l'as conseillé.
Pour la réduction des programme c'est aussi en parti pour ça que je suis là xD
j'ai rempli ma calculatrice rien qu'avec des programmes de cours et je dois batailler pour y mettre des jeux.