|
| [ Envoyer un message ] | [ Forum ti83 ] | [ F.A.Q. ] |
| (2 visiteurs) |
| Forum Ti83 | Modification: 5/9/2005 Création: 3/3/2001 |
|
|---|---|---|
Un forum sur la calculette ti83 qui permet de programmer des jeux et de faire un peu tout ce que vous voulez ! |
||
certains caractères ne passent pas dans cette police alors % signifie "différent de" et -> indique la flèche de la touche STO
PROGRAM:MASTRMND
:ClrHome:Fix 0
:For(A,2,7
:For(B,2,15
:Output(4,4,"WELCOME TO
:Output(A,B,"*
:Output(5,4,"MASTERMIND
:End:End
:For(I,1,50
:Output(4,3,"PROGRAM BY
:Output(5,3,"G.EGBERT
:End
:Lbl 9
:Menu("NIVEAU:","FACILE",5,"MOYEN",6,"DIFFICILE",7
:Lbl 5:6->M:Goto 8
:Lbl 6:8->M:Goto 8
:Lbl 7:9->M
:Lbl 8:Clrhome
:Disp:"LA MACHINE VA","COMPOSER UN CODE","DE 4 CHIFFRES",
"CHOISIS DE 1 A ","AVEC REPETITIONS","POSSIBLES"
:Output(4,16,M
:Pause
:ClrHome
:Disp:"APRES UN ESSAI,","LA MACHINE","REPOND PAR UN B",
"POUR LE BON","CHIFFRE A LA","BONNE PLACE ET","UN W POUR LE"
:Pause:ClrHome
:Disp:"BON CHIFFRE A","UNE MAUVAISE","PLACE.","","VOUS AVEZ",
"7 ESSAIS."
:Pause:1->X
:int (Mrand+1->A
:int (Mrand+1->B
:int (Mrand+1->C
:int (Mrand+1->D
:{1000A+100B+10C+D}->L6
:ClrHome
:Disp "LA MACHINE EST","PRETE. APPUYEZ","SUR ENTER PUIS",
"FAITES VOTRE","PREMIER ESSAI."
:Pause:ClrHome
:Lbl 3
:Input I
:iPart (I/1000)->E
:iPart ((I-1000E)/100)->F
:iPart ((I-1000E-100F)/10)->G
:(I-1000E-100F-10G)->H
:{I}->L1
:Output(X,1,L1
:If E=A:Then
:Output(X,13,"B"
:Goto Z:End
:3->dim L4
:{E,E,E}={B,C,D}->L4
:If sum L4%0
:Output(X,13,"W"
:Lbl Z
:If F=B:Then
:Output(X,14,"B"
:Goto Y:End
:{F,F,F}={A,C,D}->L4
:If sum L4%0
:Output(X,14,"B"
:Lbl Y
:If G=C:Then
:Output(X,15,"B"
:Goto X:End
:{G,G,G}={A,B,D}->L4
:If sum L4%0
:Output(X,15,"W"
:Lbl X
:If H=D:Then
:Output(X,16,"B"
:Goto Q
:End
:{H,H,H}={A,B,C}->L4
: If sum L4%0
:Output(X,16,"W"
:Lbl Q
:If A=E and B=F
:Goto 1
:Goto 2
:Lbl 1
:If C=G and D=H
:Then
:For(U,1,8)
:For(R,1,20)
:Output(8,1," GAGNE ! "
:End
:For(R,1,20
:Output(8,1," "
:End
:End
:Goto P
:End
:Lbl 2
:X+1->X
:If X=8
:Goto Q
:Output(8,11,"ESSAI?"
:Goto 3
:Lbl Q
:Output(1,7,"DESOLE,
:Output(2,7,"VOUS
:Output(3,7,"AVEZ
:Output(4,7,"PERDU
:Output(5,7,"CODE:
:Output(6,7,L6
:Pause
:Lbl P
:Menu("UNE AUTRE PARTIE","OUI",9,"NON",J
:Lbl J
:ClrHome
:Stop