Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Connexion

Récupérer mon mot de passe

Chatbox externe


Derniers sujets
» [JEU] Mon voisin du dessous
Aujourd'hui à 11:52 par Clément.7

» Lancement du TI-Concours 2017 !
Sam 20 Mai 2017 - 0:27 par Paulo1026

» Chaînes Youtube des membres
Ven 19 Mai 2017 - 22:41 par Wistaro

» cacul du taux d'intêret
Ven 24 Mar 2017 - 21:50 par m@thieu41

» [Projet] Un mario by tout82
Dim 29 Jan 2017 - 14:09 par Wistaro

» Cherche documentation assembleur TI82stat
Mer 25 Jan 2017 - 12:29 par Ti64CLi++

» Probleme Ti-82 Stats fr
Jeu 12 Jan 2017 - 13:56 par Ti64CLi++

» ROM 82 stats.fr
Jeu 15 Déc 2016 - 10:24 par Ti64CLi++

» flappy bird
Jeu 15 Déc 2016 - 10:23 par Ti64CLi++

Partenaires
TI-Planet Espace-TI : Forum

Faire un don à Tout-82...
Où va cet argent ?
Membres donateurs:- Persalteas (10€)
- Wistaro (5€)
- jo2geek (22€)

Les posteurs les plus actifs du mois
Wistaro
 
Clément.7
 


Jeu du Pendu

Poster un nouveau sujet   Répondre au sujet

Voir le sujet précédent Voir le sujet suivant Aller en bas

Jeu du Pendu

Message par pito2901 le Mer 4 Sep 2013 - 18:43

Bonjour à tous !

Voici le programme du jeu du pendu :

Code:
0 -> Q
0 -> Z
PleinEcr               <-  dans catalogue
For(A,1,16            <-  dans [pgrm]
Output(1,A,"*               <-  dans catalogue
Output(8,A,"*
If non(PartDec(A/2:Then         <-  PartDec dans catalogue, If et Then dans [pgrm] et non( [voir au dessus]
Output(A/2,1,"*
Output(A/2,16,"*
End                  <-  dans [pgrm]
End
Output(4,2,JEU DU PENDU!         <-  dans [math] – menu PRB – [4]
Pause                  <-  dans [pgrm]
EffEcr               <-  dans catalogue
Horiz               <-  dans catalogue
0 -> Xmin               <-  Xmin, Xmax, Ymin et Ymax dans [var] - fenêtre
94 -> Xmax
0 -> Ymin
31 -> Ymax
FonctOff               <-  dans catalogue
AxesNAff               <-  dans catalogue
EffDessin               <-  dans catalogue
Input "MOT?            ",Chaîne1               <-  Input dans catalogue et 12 espaces et Chaîne dans [var] - chaîne
Longueur(Chaîne1 -> dim(L1      <-  longueur( et dim( dans catalogue
For(A,1,dim(L1
sous-Chaîne(Chaîne1,A,1      <-  sous-Chaîne dans catalogue
carChaîne("ABCDEFGHIJKLMONOPQRSTUVWXYZ",Rép      <-  car Chaîne et Rép dans catalogue
47+Rép-2(Rép<4)+5partEnt((Rép-4)/5->L1(A         <-  partEnt dans catalogue
End
While 1                        <-  dans catalogue
EffEcr                        <-  dans catalogue
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²                  <-  goto dans catalogue
Output(4,5,"LETTRE?
Repeat K<94 et K>40 et K [différent de] 44 et K [différent de] 45   <-  Repeat dans [pgrm]
CodeTouche -> K                     <-  dans catalogue
End
Q+1 -> Q
0 -> C
For(A,1,dim(L1
If K=L1(A : Then               <-  Then dans [pgrm]
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                     <-  Lbl dans catalogue
EffEcr
disp "T PENDU! LE MOT","ETAIT",Chaîne1      <-  Disp dans [pgrm]
Pause
PleinEcr                  <-  dans catalogue
EffEcr                     <-  dans catalogue
Output(1,1," "       <- pas besoin du dernier guillemet
Stop         <-  dans catalogue
lbl GG
EffEcr
disp "BRAVO! TU AS","TROUVE LE MOT :",Chaîne1
Output(4,1,"EN    COUPS            <- 4 espaces entre EN et COUPS
Output(4,4,Q
Pause
EffEcr
PleinEcr
Output(1,1," "        <- pas besoin du dernier guillemet
Bonne journée à tous !
avatar
pito2901
Passioné
Passioné

Messages : 532
Points Concours : 1
Productivité : 12
Date d'inscription : 02/09/2013
Localisation : Nevers
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://www.clictune.com/id=179469

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

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