TI Prizee
Bienvenue sur TI-Prizee, le forum des TI z80 !

Nous vous invitons à vous inscrire ou à vous connecter si vous êtes déjà membre.

Bonne journée !

Rejoignez le forum, c’est rapide et facile

TI Prizee
Bienvenue sur TI-Prizee, le forum des TI z80 !

Nous vous invitons à vous inscrire ou à vous connecter si vous êtes déjà membre.

Bonne journée !
TI Prizee
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Le Deal du moment :
TV LED 32” Continental Edison CELED32SAHD24B3
Voir le deal
139.99 €

Taquin

2 participants

Aller en bas

Taquin Empty Taquin

Message par m@thieu41 Mer 28 Aoû - 13:07

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

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
En prime, je propose le prgmCNOMBRE  qui permet de convertir un nombre stocké dans Rép en Chaine, qui remplacera le nombre dans Rép.

Voici le code:

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
Un petit screen Wink

Taquin Z5ul

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! Smile

m@thieu41
Débutant
Débutant

Sexe : Masculin
Réputation : 0
Messages : 7
Points de messages : 7785

Revenir en haut Aller en bas

Taquin Empty Informations

Message par Clément.7 Sam 23 Nov - 18:35

Je tiens à rappeler que mettre ce code est un peu inutile, ce forum porte uniquement sur les TI-83 Plus et supérieures.

Si vous mettez des codes, mettez-les en Spoiler !

EDIT : J'en profite également pour dire que le Cloud TI-Prizee est désormais en ligne, vous pouvez l'utiliser pour éviter les pubs.

Cordialement.


Dernière édition par Clément.7 le Sam 23 Nov - 18:37, édité 1 fois (Raison : Ajout d'informations supplémentaires)
Clément.7
Clément.7
Argent 4
Argent 4

Sexe : Masculin
Réputation : 0
Messages : 53
Points de messages : 7968
Centre(s) d'intérêt(s) : Faire connaître la programmation sur TI z80, partager des jeux, discuter, ...

Localisation : Près de Nantes
Emploi/loisirs : Programmation / Jeux vidéos

https://ti-prizee.kanak.fr

Revenir en haut Aller en bas

Taquin Empty Re: Taquin

Message par m@thieu41 Ven 18 Avr - 21:26

En quoi le code est il inutile?
Le Ti-Basic 83 est compatible 83+ (dans ce sens, dans l'autre pas toujours).
Et pourquoi utiliser une balise spoiler plutot que code?

m@thieu41
Débutant
Débutant

Sexe : Masculin
Réputation : 0
Messages : 7
Points de messages : 7785

Revenir en haut Aller en bas

Taquin Empty Re: Taquin

Message par Clément.7 Lun 21 Avr - 16:53

Ce que je veut dire, c'est qu'il serait plus judicieux de joindre directement le .8xp dans ton message (en uploadant via le cloud ti-prizee) pour que tout le monde puisse le télécharger et le transférer à sa TI.

Pour les codes, les mettre dans un spoiler permet d'aérer le message plutôt que d'avoir directement un bloc de code qui n'intéresse pas forcément tout le monde...
Clément.7
Clément.7
Argent 4
Argent 4

Sexe : Masculin
Réputation : 0
Messages : 53
Points de messages : 7968
Centre(s) d'intérêt(s) : Faire connaître la programmation sur TI z80, partager des jeux, discuter, ...

Localisation : Près de Nantes
Emploi/loisirs : Programmation / Jeux vidéos

https://ti-prizee.kanak.fr

Revenir en haut Aller en bas

Taquin Empty Re: Taquin

Message par m@thieu41 Dim 11 Mai - 11:06

Ben... quoi qu'il en soit ça peut être intéressant de voir le code d'un prgm, peu importe pour quel modèle il est destiné d'ailleurs (le ti basic 83 est presque le même que celui 83+)...

Et j'ai mis les 8xp dès le début Wink

m@thieu41
Débutant
Débutant

Sexe : Masculin
Réputation : 0
Messages : 7
Points de messages : 7785

Revenir en haut Aller en bas

Taquin Empty Re: Taquin

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum