Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 5980
Réponses : 39
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Master Mind

vibra le 04/04/2007 à 14:56
Je vous propose un petit programme permettant de jouer au Master Mind. Il faut savoir que :
- le mode Normal ne comporte ni trous ni doubles
- le mode Expert comporte des paires, triples, voir quadruples
- le mode Commando comporte doubles, triples, quadruples, et trous.
+ le sous-mode 6 couleurs utilise 6 couleurs (en plus des trous)
+ le sous- mode 8 couleurs utilise 8 couleurs (en plus des trous)

Le but du jeu est de trouver les 4 couleurs, dans l'ordre que comporte le code.
A chaque tour il faut proposer un code-test, et la calculatrice le corrige de manière à pour en déduire le bon code. Dans la ligne du haut s'affiche le nombre de couleurs bien placées (mais on ne sais pas lesquelles). Dans la ligne du bas s'affiche le nombre de bonnes couleurs mal placées (on ne sais pas lesquelles. Les couleurs sont remplacées par des chiffres. Dans le sous-mode 6 couleurs il faut utiliser 1,2,3,4,5,6. Dans le sous-mode 8 couleurs, il faut utiliser 1,2,3,4,5,6,7,8. Et dans le mode Commando, il faut rajouter le0 (qui fait office de trous).
Pour gagner, il faut trouver le code en 12 coups maximum. Bonne chance !!



Code
AxesOff
0->Xmin
94->Xmax
-32->Ymin
32->Ymax
PlotsOff
FnOff
ClrHome
ClrDraw
Menu("NIVEAUX","NORMAL",A,"EXPERT",B,"COMMANDO",C
Lbl A
Menu("MODE","6 COULEURS",D,"8 COULEURS",E
Lbl D
0->O
1->N
5,99->M
Goto K
Lbl E
0->O
1->N
7,99->M
Goto K
Lbl B
Menu("MODE","6 COULEURS",F,"8 COULEURS",G
Lbl F
1->O
1->N
5,99->M
Goto K                                            <- //
Lbl G
1->O
1->N
7,99->M
Goto K
Lbl C
Menu("MODE","6 COULEURS",H,"8 COULEURS",I
Lbl H
1->O                                             <- //
0->N                                             <- //
6,99->M
Goto K
Lbl I
1->O
0->N
8,99->M
Lbl K
Horizontal 24
Horizontal -25
For (K,7,88,9
Vertical K
End
-8->K
0->L
Lbl J
rand*M+N->A
iPart A->A
rand*M+N->B
iPart B->B
rand*M+N->C
iPart C->C
rand*M+N->D
iPart D->D
If O=0
Then
If A=B or A=C or A=D or B=C or B=D or C=D
Goto J
Else
If A=B and A=C
Goto J
If A=B and A=D
Goto J
If A=C and A=D
Goto J
If B=C and B=D
Goto J
End
Lbl 0
0->E
0->F
L+1->L
ClrHome
Lbl 6
Input "A:",G
Input "B:",H
Input "C:",I
Input "D:",J
If G>=10 or H>=10 or I>=10 or J>=10
Then
Disp "ERREUR
Goto 6
End
If G=A
Then
G+20->G
E+1->E
A+20->A
End
If H=B
Then
H+20->H
E+1->E
B+20->B
End
If I=C
Then
I+20->I
E+1->E
C+20->C
End
If J=D
Then
J+20->J
E+1->E
D+20->D
End
If G>=20
Then
G-20->G
Else
If G=B
Then
F+1->F
B+20->B
Goto 2
End
If G=C
Then
F+1->F
C+20->C
Goto 2
End
If G=D
Then
F+1->F
D+20->D
End
End
Lbl 2
If H>=20
Then
H-20->H
Else
If H=A
Then
F+1->F
A+20->A
Goto 3
End
If H=C
Then
F+1->F
C+20->C
Goto 3
End
If H=D
Then
F+1->F
D+20->D
End
End
Lbl 3
If I>=20
Then
I-20->I
Else
If I=A
Then
F+1->F
A+20->A
Goto 4
End
If I=B
Then
F+1->F
B+20->B
Goto 4
End
If I=D
Then
F+1->F
D+20->D
End
End
Lbl 4
If J>=20
Then
J-20->J
Else
If J=A
Then
F+1->F
A+20->A
Goto 5
End
If J=B
Then
F+1->F
B+20->B
Goto 5
End
If J=C
Then
F+1->F
C+20->C
End
End
Lbl 5
If A>=20
A-20->A                                  <- //
If B>=20
B-20->B
If C>=20
C-20->C
If D>=20
D-20->D
If E=/=4 and L=12
Then
Disp "PERDU",A,B,C,D
Stop
End
If E=4
Then
Disp "GAGNE",L
Stop
End
K+9->K
Text (12,K,G
Text (23,K,H
Text (34,K,I
Text (45,K,J                                <- //
Text (0,K,E
Text (57,K,F
Pause
Goto 0
webmaster le 04/04/2007 à 16:43
Est-ce que ce programme est de toi ?

@+ Le Webmaster beer.gif
vibra le 05/04/2007 à 17:51
oui
mad67 le 06/04/2007 à 10:15
bravo je sens que la concurrence vien!!
FulliZing le 06/04/2007 à 11:25
ouai,
/me se frotte les mains... cupsmiley.gif godgrace.gif

++
vibra le 06/04/2007 à 17:00
vous l'avez essayés ?
Bon d'accord pas très estétique, mais efficace, je pense (en tout cas très détendant pendant les cours de français).
ratuss le 02/12/2007 à 12:57
à quoi correspondent les "?" stp


par ex ici :
Citation
If G?10 or H?10 or I?10 or J?10



merci
Regedit le 02/12/2007 à 13:09
Je pense que ca correspond a un "=" winkle.gif
ratuss le 02/12/2007 à 13:24
bah ca m'étonnerais vu qu' il y a deja des = ds le prog..
Regedit le 02/12/2007 à 13:31
non, ca devrait etre =/= alors.

Ca pourrait correspondre.

Si G=/=10 ou H=/=10 ou I=/=10 ou J=/=10
Alors
Ecrit "Erreur"
ratuss le 02/12/2007 à 13:58
non je penserais plus à un truc du genre >= ou <= ...
vibra le 02/12/2007 à 14:17
Voilà, c'est corrigé. Il faut les remplacer par >= ou =/=. Comme c'était un de mes premiers programmes j'en ai profité pour réduir quelques trucs.
ratuss le 02/12/2007 à 14:45
merci :]
ratuss le 02/12/2007 à 15:07
Code
Menu("NIVEAUX","NORMAL",A,"EXPERT",B,"COMMANDO",C
Lbl A
Menu("MODE","6 COULEURS",D,"8 COULEURS",E
Lbl D
0->O
1->N
5,99->M
Goto K
Lbl E
0->O
1->N
7,99->M
Goto K
Lbl B
Menu("MODE","6 COULEURS",F,"8 COULEURS",G
Lbl F
1->O
1->N
5,99->M


j'ai rajouté ca, c'est bon ? :
Lbl G
1->O
1->N
7,99->M

Goto K
Lbl C
Menu("MODE","6 COULEURS",H,"8 COULEURS",I
Lbl H
1->O
0->N
6,99->M
Goto K
Lbl I
1->O
0->N
8,99->M
vibra le 02/12/2007 à 17:46
Ouais surement, j'ai dû oublier cette partie dans le programme. Je l'ai rajouté dans le programme.
killerseven le 19/05/2008 à 20:08
Sur ma calto, le programme bloque au niveau du Text(12,K,G et les autres ligne du meme genre qui sont a la fin. Je ne sais pas porquoi, esque quelqu'un pourrait m'aider ? Je possède une 82stat.fr
mad67 le 22/05/2008 à 11:56
vérifie ces lignes
Code
Vertical K
End
-8->K
0->L

ou
Code
K+9->K
Text (12,K,G
Text (23,K,H
Text (34,K,I
Text (43,K,J
Text (0,K,E
Text (57,K,F
Pause

et rajoute 0->K au debut
killerseven le 22/05/2008 à 21:53
Je suis pas sur de bien savoir ou placer 0->K, je l'ai mit au début de:
Code
K+9->K
Text (12,K,G
Text (23,K,H
Text (34,K,I
Text (43,K,J
Text (0,K,E
Text (57,K,F
Pause

mais je sui spas sur que se soit sa.
Désolé si je suis un peu chiant, c le premier programme que je rentre dans ma calto.
mad67 le 23/05/2008 à 18:00
tout en haut du prog
killerseven le 24/05/2008 à 13:39
Sa ne marche toujours pas déoslé, y a un probleme au meme endroit.
Sangohan38 le 24/05/2008 à 13:44
Lorsque l'erreur survient, quitte le prog et ensuite regarde les valeurs de K et F.
Si K est supérieur à 94 ou inférieur à 0, c'est de ce terme que viens le problème.
Si F est inférieur à -32 ou supérieur à 32, c'est de sa faute.

Sangohan38
killerseven le 24/05/2008 à 19:50
J'ai fait se que tu a dit, mais je ne sais pas comment faire pour voir la valeur de K et F.
Sangohan38 le 24/05/2008 à 20:31
Lorsque ça met l'erreur, tu quitte le programme.
Ensuite, tu tape ALPHA+F et ALPHA+K.
Cela affichera leurs valeurs et ensuite, tu nous les communique comme ça on verra de quel variable viens le problème.

Sangohan38
killerseven le 26/05/2008 à 23:24
F est égal a 0 et K à 100
Sangohan38 le 27/05/2008 à 10:48
Le problème viens de K.

Sangohan38
killerseven le 27/05/2008 à 16:16
Je dois faire quoi pour le résoudre ???
Sangohan38 le 29/05/2008 à 12:53
Essaye K-9->K avant la première instruction Text(K,F... .

Sangohan38
killerseven le 29/05/2008 à 17:52
non, sa ne marche toujours pas. F= 2 ou parfois a 1 ou a 0 et K= -17
Sangohan38 le 30/05/2008 à 19:17
Supprime la ligne et revérifie tout: je ne vois que ça comme solution en attendant.

Sangohan38
killerseven le 31/05/2008 à 22:03
G tout vérifier, tout est correct.
sol78 le 22/12/2008 à 09:28
Que veut dire le signe "E=/=4" svp?
mad67 le 22/12/2008 à 09:50
E n'est pas égal a 4
sol78 le 22/12/2008 à 10:11
Merci, mais une fois que j'ai mis mes 4 chiffres, il quitte le jeu, pourtant j'ai recopié le programme sans faire de fautes!! crazy.gif
mad67 le 22/12/2008 à 11:01
regarde ces lignes

Code
If E=/=4 and L=12
Then
Disp "PERDU",A,B,C,D
Stop
End
If E=4
Then
Disp "GAGNE",L
Stop
End
K+9->K
Text (12,K,G
Text (23,K,H
Text (34,K,I
Text (43,K,J
Text (0,K,E
Text (57,K,F
Pause
vibra le 08/04/2009 à 12:25
Voila j'ai corrigé les erreurs de copie. J'ai mis "<- //" sur les lignes où il y en avait.
Bonne continuation.
anonyme le 05/11/2015 à 19:49
ou peut-on trouver "axesoff" il n'est pas dans le catalogue! loupe.gif
Ps:je suis en 82stats
Mingerton le 05/11/2015 à 20:04
Si tu es en français cette commande s'appelle AxesNAff. Tu peux la trouver dans 2nd-Zoom.
ZeDJi le 06/02/2016 à 17:43
Que veux dire
Citation
rand*M+N->A

Ou peut-on le trouver ( j'ai chercher une peu partout et rien)
ZeDJi le 06/02/2016 à 17:57
C'est pas cool d'avoir pris la lettre O ça donne plein de confusion avec le 0 ( notemment dans les Lbl 0 je sais pas trop si c'est 0/O)
Mingerton le 07/02/2016 à 11:40
C'est à toi de faire la part des choses, je trouve justement que avec cette police on distingue bien les deux. Si ca te perturbe vraiment, on peut choisir une autre lettre. Par exemple :
Code
AxesOff
0->Xmin
94->Xmax
-32->Ymin
32->Ymax
PlotsOff
FnOff
ClrHome
ClrDraw
Menu("NIVEAUX","NORMAL",A,"EXPERT",B,"COMMANDO",C
Lbl A
Menu("MODE","6 COULEURS",D,"8 COULEURS",E
Lbl D
0->Z
1->N
5,99->M
Goto K
Lbl E
0->Z
1->N
7,99->M
Goto K
Lbl B
Menu("MODE","6 COULEURS",F,"8 COULEURS",G
Lbl F
1->Z
1->N
5,99->M
Goto K                                            <- //
Lbl G
1->Z
1->N
7,99->M
Goto K
Lbl C
Menu("MODE","6 COULEURS",H,"8 COULEURS",I
Lbl H
1->Z                                             <- //
0->N                                             <- //
6,99->M
Goto K
Lbl I
1->Z
0->N
8,99->M
Lbl K
Horizontal 24
Horizontal -25
For (K,7,88,9
Vertical K
End
-8->K
0->L
Lbl J
rand*M+N->A
iPart A->A
rand*M+N->B
iPart B->B
rand*M+N->C
iPart C->C
rand*M+N->D
iPart D->D
If Z=0
Then
If A=B or A=C or A=D or B=C or B=D or C=D
Goto J
Else
If A=B and A=C
Goto J
If A=B and A=D
Goto J
If A=C and A=D
Goto J
If B=C and B=D
Goto J
End
Lbl 0
0->E
0->F
L+1->L
ClrHome
Lbl 6
Input "A:",G
Input "B:",H
Input "C:",I
Input "D:",J
If G>=10 or H>=10 or I>=10 or J>=10
Then
Disp "ERREUR
Goto 6
End
If G=A
Then
G+20->G
E+1->E
A+20->A
End
If H=B
Then
H+20->H
E+1->E
B+20->B
End
If I=C
Then
I+20->I
E+1->E
C+20->C
End
If J=D
Then
J+20->J
E+1->E
D+20->D
End
If G>=20
Then
G-20->G
Else
If G=B
Then
F+1->F
B+20->B
Goto 2
End
If G=C
Then
F+1->F
C+20->C
Goto 2
End
If G=D
Then
F+1->F
D+20->D
End
End
Lbl 2
If H>=20
Then
H-20->H
Else
If H=A
Then
F+1->F
A+20->A
Goto 3
End
If H=C
Then
F+1->F
C+20->C
Goto 3
End
If H=D
Then
F+1->F
D+20->D
End
End
Lbl 3
If I>=20
Then
I-20->I
Else
If I=A
Then
F+1->F
A+20->A
Goto 4
End
If I=B
Then
F+1->F
B+20->B
Goto 4
End
If I=D
Then
F+1->F
D+20->D
End
End
Lbl 4
If J>=20
Then
J-20->J
Else
If J=A
Then
F+1->F
A+20->A
Goto 5
End
If J=B
Then
F+1->F
B+20->B
Goto 5
End
If J=C
Then
F+1->F
C+20->C
End
End
Lbl 5
If A>=20
A-20->A                                  <- //
If B>=20
B-20->B
If C>=20
C-20->C
If D>=20
D-20->D
If E=/=4 and L=12
Then
Disp "PERDU",A,B,C,D
Stop
End
If E=4
Then
Disp "GAGNE",L
Stop
End
K+9->K
Text (12,K,G
Text (23,K,H
Text (34,K,I
Text (45,K,J                                <- //
Text (0,K,E
Text (57,K,F
Pause
Goto 0
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.