Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 869
Réponses : 9
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Code pour jeu

momo30 le 13/12/2011 à 23:38
Bonjour je voudrai savoir si quelqu'un pourrai me donner le code du jeu du pendu avec des indice a partir de la 3ème chance (ma calculatrice est une TI82 stat.fr)
S'il vous plaît
Merci d'avance
snap le 13/12/2011 à 23:48
Moi je connais mon pendu que j'ai fait bigmouth.gif Mais y a pas d'indice :/
momo30 le 13/12/2011 à 23:50
tu pe me le doner s'il te plaît bigmouth.gif
snap le 14/12/2011 à 00:29
Code
:EffVar QEffVar ZPleinEcr
:For(A,1,16
:Output(1,A,"*
:Output(8,A,"*
:If non(PartDec(A/2:Then
:Output(A/2,1,"*
:Output(A/2,16,"*
:End
:End
:Output(4,2,PENDU BY SNAP!
:Pause
:EffEcr
:Horiz
:0 -> Xmin
:94 -> Xmax
:0 -> Ymin
:31 -> Ymax
:FonctOff
:AxesNAff
:EffDessin
:Input "MOT?            ",Chaîne1             <--  12 espaces
:Longueur(Chaîne1 -> dim(L1
:For(A,1,dim(L1
:sous-Chaîne(Chaîne1,A,1
:carChaîne("ABCDEFGHIJKLMONOPQRSTUVWXYZ",Rép
:47+Rép-2(Rép<4)+5int((Rép-4)/5->L1(A:End
:While 1
:EffEcr
:0 -> C
:For(A,1,dim(L1
:Output(3,A,"-
:If non(L1(A : Output(2,A,sous-Chaîne(Chaîne1,A,1
:If non(L1(A : C+1 -> C
:End
:If C = dim(L1 : Goto GG
:Output(4,5,"LETTRE?
:Repeat K<94 et K>40 et K [pas égal à] 44 et K [pas égal à] 45
:CodeTouche -> K
:End
:Q+1 -> Q
:EffVar C
:For(A,1,dim(L1
:If K=L1(A : Then
:0 -> L1(A
:C+1 -> C
:End
:End
:If non(C : Then
:Z+1 -> Z
:If Z=1 : Ligne(61,7.23,36,7.23
:If Z=2 : Ligne(36,7.23,36,26.87
:If Z=3 : Ligne(36,13.43,42,7.23
:If Z=4 : Ligne(36,26.87,49,26.87
:If Z=5 : Ligne(41,26.87,36,21.7
:If Z=6 : Ligne(49,22.73,49,26.87,
:If Z=7 : Cercle(49,20.67,2
:If Z=8 : Ligne(49,17.57,49,13.43
:If Z=9 : Ligne(52,10.33,49,13.43
;If Z=10 : Ligne(45,15.5,53,15.5
:If Z=10 : Goto MO
:End
:End
:Lbl MO
:EffEcr
:disp "T PENDU! LE MOT","ETAIT",Chaîne1
:Pause
:PleinEcr
:EffEcr
:Output(1,1," "      <-- pas besoin du dernier guillemet
:Stop
:lbl GG
:EffEcr
:disp "BRAVO! TU AS","TROUVE LE MOT :",Chaîne1
:Output(4,1,"EN    COUPS            <-- 4 espaces
:Output(4,4,Q
:Pause
:EffEcr
:PleinEcr
:Output(1,1," "        <-- pas besoin du dernier guillemet
 


momo30 le 14/12/2011 à 00:31
Merci je te di si ya une faute
snap le 14/12/2011 à 00:33
Wé parce que la ou je l'avais mis quelqu'un m'avait dit de rajouter une modif mais j'avais pas éditez donc la je l'ai mis et e pense que c'est au bon endroit^^
The K le 14/12/2011 à 13:49
Moi j'ai une question !
Plein écran et horiz ce sont des modes quand à l'affichage graphique/non graphique ?

Oh et sinon, j'ai trouvé un "0->C" ! Pas bon winkle.gif winkle.gif
Et "0->L1(A" ne peut pas se remplacer par EffVar L1(A ?
snap le 14/12/2011 à 13:56
Si, normalement tout les 0 -> C sont bons :/ c'est lequel qui va pas?
Et pour L1(A je sais pas^^ essaie
The K le 14/12/2011 à 14:02
Citation
:While 1
:EffEcr
:0 -> C
:For(A,1,dim(L1


tongue.gif

Sinon le EffVar n'a pas l'air de marcher avec les listes ;(
sandro le 14/12/2011 à 15:34
EffVar marche pour effacer une liste, mais pas pour mettre 0 à un rand donné.

Sandro
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.