Tout 82
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
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
Jeu du Pendu EmptyDim 16 Oct 2022 - 21:11 par Wistaro

» Bonne année 2018!
Jeu du Pendu EmptyVen 2 Nov 2018 - 19:42 par Ti64CLi++

» Lancement du TI-Concours 2017 !
Jeu du Pendu EmptySam 20 Mai 2017 - 0:27 par Paulo1026

» Chaînes Youtube des membres
Jeu du Pendu EmptyVen 19 Mai 2017 - 22:41 par Wistaro

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

» [Projet] Un mario by tout82
Jeu du Pendu EmptyDim 29 Jan 2017 - 14:09 par Wistaro

» Cherche documentation assembleur TI82stat
Jeu du Pendu EmptyMer 25 Jan 2017 - 12:29 par Ti64CLi++

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

» ROM 82 stats.fr
Jeu du Pendu EmptyJeu 15 Déc 2016 - 10:24 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
Aucun utilisateur


Jeu du Pendu

Aller en bas

Jeu du Pendu Empty Jeu du Pendu

Message par pito2901 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 !
pito2901
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

http://www.clictune.com/id=179469

Revenir en haut Aller en bas

Revenir en haut


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