Bonjour à tous!
Voici un petit programme de casse tête pour vos occuper pendant vos cours inutile (et comme on sait tous qu'il y en a un paquet... )
JTAQUIN
Les règles: Comme le taquin, vous devez déplacer les "cases" de 1 à F afin de les trier dans le bon ordre.
Utilisez les flèches directionnelles pour déplacer la case vide, et annul pour quitter.
Comme le générateurs d'aléatoires ne peut pas savoir si le jeu est réalisable ou pas (il l'est dans 50% des cas sinon), vous pouvez le résoudre de 2 façons:
Et des liens de téléchargement:
Le prgm JTAQUIN: http://www.mediafire.com/download/e0j9dz530cmr25x/JTAQUIN.8xp
Et CNOMBRE: http://www.mediafire.com/download/4j8dvczbk4dvryv/CNOMBRE.8xp
Voilà!
Bon jeu!
Voici un petit programme de casse tête pour vos occuper pendant vos cours inutile (et comme on sait tous qu'il y en a un paquet... )
JTAQUIN
Les règles: Comme le taquin, vous devez déplacer les "cases" de 1 à F afin de les trier dans le bon ordre.
Utilisez les flèches directionnelles pour déplacer la case vide, et annul pour quitter.
Comme le générateurs d'aléatoires ne peut pas savoir si le jeu est réalisable ou pas (il l'est dans 50% des cas sinon), vous pouvez le résoudre de 2 façons:
- Code:
1 2 3 4
5 6 7 8
9 A B C
D E F
ou:
1 2 3
4 5 6 7
8 9 A B
C D E F
- Code:
prgm JTAQUIN
{1,5,9,13->L1
Liste>matr(Rép,Rép+1,Rép+2,Rép+3,[B] //Rép=Ans en anglais, [B] est à choisir dans l'onglet matrice
Liste>matr(L1+1,L1+2,L1+3,L1+4,[C]
1->[C](4,4
" 123456789ABCDEF->Chaine0 //str0 en anglais
[B]->[A]
Lbl 1
EffEcr
Remplir(0,[A] //Fill en anglais il me semble
For(theta,-16,-1 //theta c'est [alpha]+3
Repeat non([A](A,B
.25entAléat(4,19->B
1+4partDec(B->A //fpart en anglais
partEnt(B->B //int en anglais
End
-theta->[A](A,B
Output(A+2,B+6,sous-Chaine(Chaine0,Rép,1 //souschaine = sub en anglais
End
EffVar ERepeat [A]=[B] ou [A]=[C] ou k=45 //EffVar = DelVar en anglais
Repeat K
CodeTouche->K
End
A+(K=34)-(K=25
min(4,max(1,Rép->C
B+(K=26)-(K=24
min(4,max(1,Rép->D
If A-C ou B-Rép
Then
E+1->E
Output(1,1,E
[A](C,D->[A](A,B
Output(A+2,B+6,sous-Chaine(Chaine0,Rép,1
1->[A](C,D
Output(C+2,D+6," //Un espace
C->A
D->B
End
End
If K-45
Then
E
prgmCNOMBRE //voire le code à la fin
Pause "FINI EN "+Rép+" COUPS!
End
Menu("REJOUER?","OUI",1,"NON",2
Lbl 2
EffVar Str0EffVar L1EffVar [B]EffVar [C]EffVar [A] //Pas obligatoire, mais ça libère de la mémoire (merci à Wistaro pour sa remarque, voir plus bas)
EffEcr
"MATHIEU41
prgmCNOMBRE //(converti le nombre passé en argument par Rép en une chaine de caratère, stockée dans Rép)
{0,Rép->L2
{0,1->L1
RégLin(ax+b) Y9
Equ>Caine(Y9,Chaine9
sous-chaine(chaine9,1,longueur(chaine9)-3
Et des liens de téléchargement:
Le prgm JTAQUIN: http://www.mediafire.com/download/e0j9dz530cmr25x/JTAQUIN.8xp
Et CNOMBRE: http://www.mediafire.com/download/4j8dvczbk4dvryv/CNOMBRE.8xp
Voilà!
Bon jeu!
Dernière édition par m@thieu41 le Mer 23 Oct 2013 - 19:32, édité 2 fois