Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 02 Jan 2010, 13:22
J'ai depuis longtemps hésité à poster ma version qui n'apporte pas grand chose au jeu des 21 allumettes.
Je poste tout de même (et je cite celui de Belvar qui est le stricte nécessaire http://tout82.free.fr/forum/sujet.php?sujet=1503 )
J'ai amélioré l'optique de l'IA avec une formule, et on a le choix entre 3 niveaux de difficulté pour l'IA. Notez que je l'avais conçu sans lire belvar, mais que durant mon hésitation à poster je me suis un petit peu inspiré.
Code
EffEcr
entAléat(1,2)->T
16->B
0->E
1->J
Menu("JOUEURS","HUMAIN/CALCU",1,"2 JOUEURS",2
Lbl 2
2->J
Lbl 1
If J=1
Then
1->N
Menu("NIVEAU","NORMAL",5,"DIFFICILE",4,"IMPOSSIBLE",3
Lbl 3
3->N
1->T
Goto 5
Lbl 4
2->N
End
Lbl 5
EffEcr
0->V
For(W,1,B
Output(4,W,"I
End
Output(6,1,"RESTE=
Output(6,8,B
If J=1 et T=1
Output(8,1,"HUMAIN
If J=1 et T=2
Output(8,1,"CALCULATRICE
If J=2
Then
Output(8,1,"JOUEUR
Output(8,8,T
End
If E=1
Disp "1[inférieur ou égal]X[inférieur ou égal]3"
If T=1 ou J=2
Then
Input "1,2,3=",A
partEnt(A)->A
If A<1 ou A>3
Then
1->E
Goto 5
End
0->E
Else
entAléat(1,3)->A
0->M
If N=2
entAléat(1,2)->M
If B<5
Then
B-1->A
If A=0
1->A
End
If N=3 ou M=2
Then
B-ent(B/4)*4->R
If R=0
3->A
If R=3
2->A
If R=2
1->A
End
Disp "1,2,3="
Output(1,8,A
Pause
End
B-A->B
3-T->T
If B>0
Goto 5
EffEcr
If J=1 et T=2
Disp "CALCULATRICE"
If J=1 et T=1
Disp "HUMAIN"
If J=2
Disp "JOUEUR"
If J=2
Output(1,8,T
Disp "A GAGNE"
EDIT année 2014 : Ce programme qui compte parmi mes premiers contient un important défaut : j'utilise les Goto à mauvais escient, car mon Goto_5 se situe dans un Then/End.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 878
Inscrit le : Sam 15 Oct 2011, 11:07
Posté le : Sam 12 Nov 2011, 20:03
Je pense que le bug vient plutot de ton recopiage
Explique nous ça ...
---------------------- La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Un problème de programmation ? Allez consulter ce tutoriel crée pour cela : TUTORIEL PROGRAMMATION
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTIONEN VIDEO