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

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üZ



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 happy.gif


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é godgrace.gif godgrace.gif
Pour ce qui n'aurait pas Ti-Graph-Link, je pourrai indiquer à quoi correspondent les ù et les "L" suivit d'une barre happy.gif

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


P.S. :

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

 Adresse email Haut de page Bas de page 
 
Rinrynque



Autorisation : Membre
Nb de messages : 30
Inscrit le : Dim 10 Mai 2009, 15:53
Posté le : Dim 28 Jui 2009, 22:10   Citer 

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.

 Adresse email Haut de page Bas de page 
 
denis



Autorisation : Membre
Nb de messages : 81
Inscrit le : Lun 15 Sep 2008, 17:13
Posté le : Lun 29 Jui 2009, 9:49   Citer 

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

 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 : Lun 29 Jui 2009, 15:45   Citer 

mais le tout est astucieux bravo!

 Adresse email Haut de page Bas de page 
 
denis



Autorisation : Membre
Nb de messages : 81
Inscrit le : Lun 15 Sep 2008, 17:13
Posté le : Mar 30 Jui 2009, 10:42   Citer 

Merci happy.gif

 Adresse email Haut de page Bas de page 
 
Minisonic
Invité
Posté le : Ven 04 Sep 2009, 2:47   Citer 

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

  Haut de page Bas de page 
 
Minisonic
Invité
Posté le : Ven 04 Sep 2009, 2:57   Citer 

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

  Haut de page Bas de page 
 
denis



Autorisation : Membre
Nb de messages : 81
Inscrit le : Lun 15 Sep 2008, 17:13
Posté le : Ven 04 Sep 2009, 17:28   Citer 

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

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

 Adresse email Haut de page Bas de page 
 
SlyDer
Invité
Posté le : Sam 04 Oct 2014, 16:44   Citer 

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 ? happy.gif

  Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 04 Oct 2014, 17:22   Citer 

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
 Adresse email Haut de page Bas de page 
 
SlyDer
Invité
Posté le : Sam 04 Oct 2014, 17:26   Citer 

Ah d'accord, merci ! bigmouth.gif

  Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
SlyDer
Invité
Posté le : Sam 04 Oct 2014, 17:39   Citer 

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 ?

  Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 04 Oct 2014, 19:47   Citer 

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
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  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