| Master Mind |
| Auteur |
Message |
vibra
Autorisation : Membre
Nb de messages : 591
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Mer 04 Avr 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 |
----------------------
Vive la programmation et vive le vibraphone !!! |
 |
  |
| |
webmaster
Autorisation : Administrateur
Nb de messages : 775
Inscrit le : Mer 18 Aoû 2004, 22:13
|
Posté le : Mer 04 Avr 2007, 16:43
|
|
|
Est-ce que ce programme est de toi ?
@+ Le Webmaster 
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
vibra
Invité
|
Posté le : Jeu 05 Avr 2007, 17:51
|
|
|
oui
|
| |
|
| |
mad67
Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05
|
Posté le : Ven 06 Avr 2007, 10:15
|
|
|
bravo je sens que la concurrence vien!!
|
| |
|
| |
FulliZing
Autorisation : Membre
Nb de messages : 65
Inscrit le : Dim 05 Nov 2006, 13:01
|
Posté le : Ven 06 Avr 2007, 11:25
|
|
|
ouai,
/me se frotte les mains...  
++
----------------------
Quand on cherche on trouve... |
| |
|
| |
vibra
Invité
|
Posté le : Ven 06 Avr 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
Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41
|
Posté le : Dim 02 Déc 2007, 12:57
|
|
|
à quoi correspondent les "?" stp
par ex ici :
| Citer | | If G?10 or H?10 or I?10 or J?10 |
merci
----------------------
--- LISTE DES JEUX POUR TI --- |
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
Regedit
Autorisation : Membre
Nb de messages : 191
Inscrit le : Dim 30 Sep 2007, 12:24
|
Posté le : Dim 02 Déc 2007, 13:09
|
|
|
Je pense que ca correspond a un "=" 
|
| |
|
| |
ratuss
Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41
|
Posté le : Dim 02 Déc 2007, 13:24
|
|
|
bah ca m'étonnerais vu qu' il y a deja des = ds le prog..
----------------------
--- LISTE DES JEUX POUR TI --- |
| |
|
| |
Regedit
Autorisation : Membre
Nb de messages : 191
Inscrit le : Dim 30 Sep 2007, 12:24
|
Posté le : Dim 02 Déc 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
Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41
|
Posté le : Dim 02 Déc 2007, 13:58
|
|
|
non je penserais plus à un truc du genre >= ou <= ...
----------------------
--- LISTE DES JEUX POUR TI --- |
| |
|
| |
vibra
Autorisation : Membre
Nb de messages : 591
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Dim 02 Déc 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.
----------------------
Vive la programmation et vive le vibraphone !!! |
| |
|
| |
ratuss
Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41
|
Posté le : Dim 02 Déc 2007, 14:45
|
|
|
merci :]
----------------------
--- LISTE DES JEUX POUR TI --- |
| |
|
| |
ratuss
Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41
|
Posté le : Dim 02 Déc 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 |
----------------------
--- LISTE DES JEUX POUR TI --- |
| |
|
| |
vibra
Autorisation : Membre
Nb de messages : 591
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Dim 02 Déc 2007, 17:46
|
|
|
Ouais surement, j'ai dû oublier cette partie dans le programme. Je l'ai rajouté dans le programme.
----------------------
Vive la programmation et vive le vibraphone !!! |
| |
|
| |
killerseven
Autorisation : Membre
Nb de messages : 8
Inscrit le : Ven 25 Avr 2008, 17:51
|
Posté le : Lun 19 Mai 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
Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05
|
Posté le : Jeu 22 Mai 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
Autorisation : Membre
Nb de messages : 8
Inscrit le : Ven 25 Avr 2008, 17:51
|
Posté le : Jeu 22 Mai 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
Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05
|
Posté le : Ven 23 Mai 2008, 18:00
|
|
|
tout en haut du prog
|
| |
|
| |
killerseven
Autorisation : Membre
Nb de messages : 8
Inscrit le : Ven 25 Avr 2008, 17:51
|
Posté le : Sam 24 Mai 2008, 13:39
|
|
|
Sa ne marche toujours pas déoslé, y a un probleme au meme endroit.
|
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Sam 24 Mai 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
Autorisation : Membre
Nb de messages : 8
Inscrit le : Ven 25 Avr 2008, 17:51
|
Posté le : Sam 24 Mai 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
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Sam 24 Mai 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
Autorisation : Membre
Nb de messages : 8
Inscrit le : Ven 25 Avr 2008, 17:51
|
Posté le : Lun 26 Mai 2008, 23:24
|
|
|
F est égal a 0 et K à 100
|
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Mar 27 Mai 2008, 10:48
|
|
|
Le problème viens de K.
Sangohan38
|
| |
|
| |
killerseven
Autorisation : Membre
Nb de messages : 8
Inscrit le : Ven 25 Avr 2008, 17:51
|
Posté le : Mar 27 Mai 2008, 16:16
|
|
|
Je dois faire quoi pour le résoudre ???
|
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Jeu 29 Mai 2008, 12:53
|
|
|
Essaye K-9->K avant la première instruction Text(K,F... .
Sangohan38
|
| |
|
| |
killerseven
Autorisation : Membre
Nb de messages : 8
Inscrit le : Ven 25 Avr 2008, 17:51
|
Posté le : Jeu 29 Mai 2008, 17:52
|
|
|
non, sa ne marche toujours pas. F= 2 ou parfois a 1 ou a 0 et K= -17
|
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Ven 30 Mai 2008, 19:17
|
|
|
Supprime la ligne et revérifie tout: je ne vois que ça comme solution en attendant.
Sangohan38
|
| |
|
| |
killerseven
Autorisation : Membre
Nb de messages : 8
Inscrit le : Ven 25 Avr 2008, 17:51
|
Posté le : Sam 31 Mai 2008, 22:03
|
|
|
G tout vérifier, tout est correct.
|
| |
|
| |
sol78
Invité
|
Posté le : Lun 22 Déc 2008, 9:28
|
|
|
Que veut dire le signe "E=/=4" svp?
|
| |
|
| |
mad67
Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05
|
Posté le : Lun 22 Déc 2008, 9:50
|
|
|
E n'est pas égal a 4
|
| |
|
| |
sol78
Invité
|
Posté le : Lun 22 Déc 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!! 
|
| |
|
| |
mad67
Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05
|
Posté le : Lun 22 Déc 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
Autorisation : Membre
Nb de messages : 591
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Mer 08 Avr 2009, 12:25
|
|
|
Voila j'ai corrigé les erreurs de copie. J'ai mis "<- //" sur les lignes où il y en avait.
Bonne continuation.
----------------------
Vive la programmation et vive le vibraphone !!! |
| |
|
| |
anonyme
Invité
|
Posté le : Jeu 05 Nov 2015, 19:49
|
|
|
ou peut-on trouver "axesoff" il n'est pas dans le catalogue! 
Ps:je suis en 82stats
|
| |
|
| |
Mingerton
Autorisation : Membre
Nb de messages : 504
Inscrit le : Ven 07 Déc 2012, 20:09
|
Posté le : Jeu 05 Nov 2015, 20:04
|
|
|
Si tu es en français cette commande s'appelle AxesNAff. Tu peux la trouver dans 2nd-Zoom.
----------------------
Mes articles
Mes programmes en ligne (je termine peu de projets)
Guide traduction Algo-Basic, par Linkakro
Catalogue des fonctions 82/83/84 FR/EN |
| |
|
| |
ZeDJi
Autorisation : Membre
Nb de messages : 5
Inscrit le : Sam 06 Fév 2016, 17:41
|
Posté le : Sam 06 Fév 2016, 17:43
|
|
|
Que veux dire
Ou peut-on le trouver ( j'ai chercher une peu partout et rien)
|
| |
|
| |
ZeDJi
Autorisation : Membre
Nb de messages : 5
Inscrit le : Sam 06 Fév 2016, 17:41
|
Posté le : Sam 06 Fév 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
Autorisation : Membre
Nb de messages : 504
Inscrit le : Ven 07 Déc 2012, 20:09
|
Posté le : Dim 07 Fév 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 |
----------------------
Mes articles
Mes programmes en ligne (je termine peu de projets)
Guide traduction Algo-Basic, par Linkakro
Catalogue des fonctions 82/83/84 FR/EN |
| |
|
| |
