Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Un pendu sur TI 82 (celle qui n'a pas les chaînes) !!!

Un pendu sur TI 82 (celle qui n'a pas les chaînes) !!!

Auteur

Message

denis

Autorisation : Membre
Nb de messages : 81
Inscrit le : Lun 15 Sep 2008, 17:13

Posté le : Jeu 25 Jui 2009, 17:39

Bonjour tout le monde,

Voici mon nouveau programme, c'est un pendu.
Il y en a beaucoup sur ce forum, mais tous ne marche que pour les TI 82 stats et plus qui posséde des chaînes pour stocker du texte.
Comme j'ai une TI82 de base, je pensais bien ne jamais pouvoir jouer au pendu sur ma TI

Mais cet été je me suis lancé.
Et voilà la version finale :

Elle se compose de 4 programmes afin d'économiser de la place :

prgmVALEUR : ce programme affecte une valeur différente pour les variable allant de A à Z

Code

:1ü

A:2ü

B:3ü

C:4ü

D:5ü

E:6ü

F:7ü

G:8ü

H:9ü

I:10ü

J:11ü

K:12ü

L:13ü

M
:14ü

N:15ü

O:16ü

P:17ü

Q:18ü

R:19ü

S:20ü

T:21ü

U:22ü

V:23ü

W:24ü

X:25ü

Y:26ü

prgmDECODAGE : Le mot à chercher étant stocké dans une liste, il faut "décodé" les valeurs de la liste en lettre.

Code

:If Á=1:Output(5,D,"A"
:If Á=2:Output(5,D,"B"
:If Á=3:Output(5,D,"C"
:If Á=4:Output(5,D,"D"
:If Á=5:Output(5,D,"E"
:If Á=6:Output(5,D,"F"
:If Á=7:Output(5,D,"G"
:If Á=8:Output(5,D,"H"
:If Á=9:Output(5,D,"I"
:If Á=10:Output(5,D,"J"
:If Á=11:Output(5,D,"K"
:If Á=12:Output(5,D,"L"
:If Á=13:Output(5,D,"M"
:If Á=14:Output(5,D,"N"
:If Á=15:Output(5,D,"O"
:If Á=16:Output(5,D,"P"
:If Á=17:Output(5,D,"Q"
:If Á=18:Output(5,D,"R"
:If Á=19:Output(5,D,"S"
:If Á=20:Output(5,D,"T"
:If Á=21:Output(5,D,"U"
:If Á=22:Output(5,D,"V"
:If Á=23:Output(5,D,"W"
:If Á=24:Output(5,D,"X"
:If Á=25:Output(5,D,"Y"
:If Á=26:Output(5,D,"Z"

prgmPOTENCE : ce programme sert juste à dessiner les différentes étapes de la pendaison.

Code

:If Lƒ(2)÷

7:Output(7,11,"---"
:
:If Lƒ(2)÷

6
:Then
:Output(6,12,"!"
:Output(5,12,"!"
:Output(4,12,"!"
:End
:
:If Lƒ(2)÷

5:Output(3,11,"-----"
:
:If Lƒ(2)÷

4:Output(4,15,"I"
:
:If Lƒ(2)÷

3:Output(5,15,"O"
:
:If Lƒ(2)÷

2:Output(5,14,"-O-"
:
:If Lƒ(2)÷

1:Output(6,15,"!"
:
:If Lƒ(2)÷

0:Output(6,14,"-!-"

Et enfin : prgmPENDU : ce programme reprend les trois précèdent et les fait fonctionner ensemble

Code

:ClrHome
:2ü

dim Lƒ:8ü

Lƒ(2)
:
:Lbl A
:prgmVALEUR
:Input "MOT :",L
:ClrHome
:
:If dim L>10
:Then
:Output(4,3,"MOT TROP"
:Output(5,5,"LONG"
:Pause
:Goto A
:End
:
:dim Lü

dim L‚
:Fill(0,L‚)
:L(1)ü

L‚(1)
:L(dim L)ü

L‚(dim L‚)
:
:L(1)ü

Á:1ü

D:prgmDECODAGE
:L(dim L)ü

Á:(dim L)ü

D:prgmDECODAGE
:
:Lbl 0
:
:For(A,1,dim L)
:Output(6,A,"-"
:End
:
:Output(8,1,"COUPS RESTANT :"
:Output(8,16,Lƒ(2)
:
:1ü

D
:Lbl 1
:
:prgmVALEUR
:Input "LETTRE :",Á
:ClrHome
:
:0ü

D:0ü

Lƒ(1)
:Output(3,2,"VERIFICATION..."
:Repeat D=(dim L)
:D+1ü

D
:If L(D)=0
:Then
:Lƒ(1)+1ü

Lƒ(1)
:Áü

L‚(D)
:End
:End
:For(D,1,dim L)
:L‚(D)ü

Á
:prgmDECODAGE
:End
:
:For(A,2,16
:Output(3,A," "
:End
:
:If sum (L-L‚)=0:Goto V
:If Lƒ(1)=0
:Then
:Lƒ(2)-1ü

Lƒ(2)
:If Lƒ(2)=0:Goto D
:End
:prgmPOTENCE
:
:Goto 0
:
:Lbl V
:Output(4,1,"GAGNE !"
:Stop
:Lbl D
:Output(4,1,"PENDU !"

Il faut penser a bien nommer les 4 prgm pour que la calculatrice si retrouve.

Le seul incovennient est que quand la calculette demande le mot à choisir,
il faut rentrer le mot de la même façon que si l'on rentrer des éléments dans une liste.
c'est à dire: séparer chaque lettre par une virgule et encadrer le tout par des acolade

Par exemple pour le mot "TOTO", ça donne :

{T,O,T,O}

Ce jeu ce joue donc à deux (pas de dico)

Voilà, Merci en espérant que quelqu'un soit interressé

Pour ce qui n'aurait pas Ti-Graph-Link, je pourrai indiquer à quoi correspondent les ù et les "L" suivit d'une barre

LES "A" bizzare c'est la lettre grecque thêta

P.S. :

prgmVALEUR : 132 Ko
prgmDECODAGE : 395 Ko
prgmPOTENCE : 205 Ko
prgmPENDU : 556 Ko

Rinrynque

Autorisation : Membre
Nb de messages : 30
Inscrit le : Dim 10 Mai 2009, 15:53

Posté le : Dim 28 Jui 2009, 22:10

Sympa... Et pas trop lourd avec çà! Merci denis. Mais bon, moi j'ai la ti 82 stats.fr et il y a des chaines et des sous chaines, donc bon, le pendu est super simple.

denis

Autorisation : Membre
Nb de messages : 81
Inscrit le : Lun 15 Sep 2008, 17:13

Posté le : Lun 29 Jui 2009, 9:49

C'est vrai qu'il faut aimer se faire du mal pour utiliser mon pendu quand on a une calculatrice avec les chaines

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Lun 29 Jui 2009, 15:45

mais le tout est astucieux bravo!

Google_AdSense

denis

Autorisation : Membre
Nb de messages : 81
Inscrit le : Lun 15 Sep 2008, 17:13

Posté le : Mar 30 Jui 2009, 10:42

Merci

Minisonic
Invité

Posté le : Ven 04 Sep 2009, 2:47

salut!
Je ne trouve pas la fonction Lƒ. Je ne l'ai trouvé dans aucune autre page. Vous pourriez m'aider?
merci.

Minisonic
Invité

Posté le : Ven 04 Sep 2009, 2:57

Et il y a aussi les "L‚" dans ce genre dont je n'ai aucune définition

denis

Autorisation : Membre
Nb de messages : 81
Inscrit le : Lun 15 Sep 2008, 17:13

Posté le : Ven 04 Sep 2009, 17:28

Tu veux parler des "L" suivis d'une barre noire ?

Ce sont les listes : "L1"; "L2" ; etc...

SlyDer
Invité

Posté le : Sam 04 Oct 2014, 16:44

Moi non plus je ne trouve pas comment faire : Lƒ sur la TI-82, quelqu'un peut expliquer comment le trouver ou sinon par quoi peut-on le remplacer svp ?

Google_AdSense

linkakro

Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Sam 04 Oct 2014, 17:22

Ce sont juste des listes. L1,L2 etc saisis avec 2nde+1,2nde+2 etc.
La police de caractères du forum ne supporte pas les symboles utilisés par les éditeurs de programme publiés par Texas Instruments donc L1,L2 etc apparaissent n'importe comment.
Mon article portant sur les symboles du forum explique beaucoup de choses. Lien dans ma signature.

Lƒ est L3.
L‚ est L2.
On peut changer de liste si on reste cohérent partout.

EDIT :
L est L1 // sur certains ordinateurs et polices (tels que le mien) le symbole 1 de taille réduite est invisible (largeur 0)

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

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store

SlyDer
Invité

Posté le : Sam 04 Oct 2014, 17:26

Ah d'accord, merci !

SlyDer
Invité

Posté le : Sam 04 Oct 2014, 17:39

Ah ( désolé), et aussi, pour : "-!-" / "!" Je suis allé voir le lien avec les caractères spéciaux mais j'ai un peu de mal à comprendre :/ Je dois mettre quoi du coup en remplacement ?

linkakro

Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Sam 04 Oct 2014, 19:47

Ces codes sont seulement une juxtaposition de symboles de base.
"-!-" = "-" + "!" + "-"
"!" = factorielle du menu math/proba.

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

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Un pendu sur TI 82 (celle qui n'a pas les chaînes) !!!

Page générée en 6 requêtes

Flux RSS