Créer un pendu pour TI 89

[Adriweb]

sinon tu t'inspire (librement, comme tu veux ^^) d'un programme déja fait !

[ProgVal]

Il faut diviser les mots (je suis un pro pour ça):

Code: Select all

{}-result
For i,1,dim(CHAINE)
  mid(CHAINE,i,1)-result[i]
EndFor

result est ton mot, découpé en lettres

PS: ça c'était simple, pour découper en MOTS, c'est plus dur!(D'ailleurs, je vous met au défi de me trouver le code pour découper en MOTS, bon courage! )

[tama]

1.ton code ne va pas marcher il va donner un joli ERR:Dimension (result est une liste vide)

2.en mots avec espace c'est facile
suffit de trouver les espaces puis obtenir la bonne partie

par exemple, pour bonjour je suis tama

// = commentaires

Code: Select all

Local phrase,posesp,n
"bonjour je suis tama "-phrase //l'espace à la fin est obligatoire pour ne pas zapper le dernier mot
{0}-posesp //la liste qui contiendra les positions des espaces
{}-mots
1-n //nombre d'espaces trouvés+1 (pour éviter erreur de dimension)
For i,1,dim(phrase)
If mid(phrase,i,1)=" " //on a trouvé un espace
Then
augment(posesp,{i})-posesp //on met sa position
n+1-n
augment(mots,{mid(phrase,posesp[n-1]+1,posesp[n]-posesp[n-1]})-mots //on ajoute le mot à la liste mots
EndIf
EndFor


Et voilà la liste mots contient les mots séparés
donc ici mots={"bonjour ","je ","suis ","tama "}
après tu peux mettre un simple mid() pour enlever les espaces à la fin