Rechercher
Connexion
Chatbox externe
Derniers sujets
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
Page 1 sur 1
Jeu du Pendu
Bonjour à tous !
Voici le programme du jeu du pendu :
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
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|
Dim 16 Oct 2022 - 21:11 par Wistaro
» Bonne année 2018!
Ven 2 Nov 2018 - 19:42 par Ti64CLi++
» 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++