Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse Page: 1,      >>
Master Mind
Auteur Message
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Mer 04 Avr 2007, 14:56   Citer 

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 !!!
 Adresse email Haut de page Bas de page 
 
webmaster
Avatar

Autorisation : Administrateur
Nb de messages : 782
Inscrit le : Mer 18 Aoû 2004, 22:13
Posté le : Mer 04 Avr 2007, 16:43   Citer 

Est-ce que ce programme est de toi ?

@+ Le Webmaster beer.gif

----------------------
Retrouver le site sur Facebook : http://www.facebook.com/tout82
 Adresse email Haut de page Bas de page 
 
vibra
Invité
Posté le : Jeu 05 Avr 2007, 17:51   Citer 

oui

  Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Ven 06 Avr 2007, 10:15   Citer 

bravo je sens que la concurrence vien!!

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
FulliZing
Avatar

Autorisation : Membre
Nb de messages : 65
Inscrit le : Dim 05 Nov 2006, 13:01
Posté le : Ven 06 Avr 2007, 11:25   Citer 

ouai,
/me se frotte les mains... cupsmiley.gif godgrace.gif

++

----------------------
Quand on cherche on trouve...
 Adresse email Haut de page Bas de page 
 
vibra
Invité
Posté le : Ven 06 Avr 2007, 17:00   Citer 

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).

  Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Dim 02 Déc 2007, 12:57   Citer 

à 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 ---
 Adresse email Haut de page Bas de page 
 
Regedit



Autorisation : Membre
Nb de messages : 191
Inscrit le : Dim 30 Sep 2007, 12:24
Posté le : Dim 02 Déc 2007, 13:09   Citer 

Je pense que ca correspond a un "=" winkle.gif

----------------------
Les Packs jeux de Regedit :

Pack Alien Breed : 633,2 kb
Pack Skin/Rom pour VTI : 5380 kb
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Dim 02 Déc 2007, 13:24   Citer 

bah ca m'étonnerais vu qu' il y a deja des = ds le prog..

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
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:31   Citer 

non, ca devrait etre =/= alors.

Ca pourrait correspondre.

Si G=/=10 ou H=/=10 ou I=/=10 ou J=/=10
Alors
Ecrit "Erreur"

----------------------
Les Packs jeux de Regedit :

Pack Alien Breed : 633,2 kb
Pack Skin/Rom pour VTI : 5380 kb
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Dim 02 Déc 2007, 13:58   Citer 

non je penserais plus à un truc du genre >= ou <= ...

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Dim 02 Déc 2007, 14:17   Citer 

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 !!!
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Dim 02 Déc 2007, 14:45   Citer 

merci :]

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Dim 02 Déc 2007, 15:07   Citer 


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 ---
 Adresse email Haut de page Bas de page 
 
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Dim 02 Déc 2007, 17:46   Citer 

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 !!!
 Adresse email Haut de page Bas de page 
 
killerseven



Autorisation : Membre
Nb de messages : 8
Inscrit le : Ven 25 Avr 2008, 17:51
Posté le : Lun 19 Mai 2008, 20:08   Citer 

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

 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Jeu 22 Mai 2008, 11:56   Citer 

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

 Adresse email Haut de page Bas de page 
 
killerseven



Autorisation : Membre
Nb de messages : 8
Inscrit le : Ven 25 Avr 2008, 17:51
Posté le : Jeu 22 Mai 2008, 21:53   Citer 

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.

 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Ven 23 Mai 2008, 18:00   Citer 

tout en haut du prog

 Adresse email Haut de page Bas de page 
 
killerseven



Autorisation : Membre
Nb de messages : 8
Inscrit le : Ven 25 Avr 2008, 17:51
Posté le : Sam 24 Mai 2008, 13:39   Citer 

Sa ne marche toujours pas déoslé, y a un probleme au meme endroit.

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse Page: 1,      >>





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa