Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 5197
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 - Page 1 / 2

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.
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.