PENDU

Taper à la main

Vous ne possédez pas de câble ? Alors vous pourrez néanmoins taper les programmes à la main sur votre calculatrice. Pour cela, appuyez sur la touche [pgrm], la flèche de gauche puis sur [entrer].

 

Taper à la main: (Français)

SauveBDG 0
Lbl 0
EffEcr
PleinEcr
EffVar L1
Menu(">>>> PENDU <<<<<","JOUER",1,"QUITTER",5
Lbl 1
Horiz
EffDessin
AxesNAff
FonctOff
0→Xmin
94→Xmax
0→Ymin
31→Ymax
0→A
0→B
1→C
AffGraph
Input "MOT: ",Chaîne0
"CHAISEBATEAUCAHIERTENNISBOUTONREVEILLEZARDCHIMIEDOMINOBANANE
If Chaîne0="
sous-Chaîne(Rép,6entAléat(0,9)+1,6→Chaîne0
longueur(Chaîne0→D
D→dim(L1
Lbl 2
EffEcr
1→E
For(F,1,D
If L1(F
Then
Texte(0,E,sous-Chaîne(Chaîne0,F,1
Else
Texte(0,E,"-
End
E+4→E
End
If A=9
Goto 3
Input "LETTRE: ",Chaîne1
0→A
For(F,1,D
If sous-Chaîne(Chaîne1,1,1)=sous-Chaîne(Chaîne0,F,1
Then
1→L1(F
1→A
End
End
If A
Then
0→G
For(F,1,D
If L1(F
G+1→G
End
If D=G
9→A
Else
Texte(24,C,sous-Chaîne(Chaîne1,1,1
C+4→C
B+1→B
If B=1
Ligne(73,1,93,1
If B=2
Ligne(75,1,75,30
If B=3
Ligne(75,30,85,30
If B=4
Ligne(75,25,80,30
If B=5
Ligne(85,30,85,25
If B=6
Cercle(85,22,2
If B=7
Ligne(85,20,85,12
If B=8
Ligne(85,12,81,5
If B=9
Ligne(85,12,89,5
If B=10
Ligne(85,19,82,12
If B=11
Then
Ligne(85,19,88,12
Goto 4
End
End
Goto 2
Lbl 3
EffEcr
Output(2,6,"GAGNE!
Pause
Goto 0
Lbl 4
Texte(0,0,Chaîne0
EffEcr
Output(2,6,"PERDU!
Pause
Goto 0
Lbl 5
Output(4,6,"ALEXIS
RappelBDG 0
EffVar AEffVar BEffVar CEffVar DEffVar EEffVar FEffVar GEffVar YEffVar BDG0EffVar Chaîne0EffVar Chaîne1
Output(1,1,"

 

Taper à la main: (Anglais)

StoreGDB 0
Lbl 0
ClrHome
Full
DelVar L1
Menu(">>>> PENDU <<<<<","JOUER",1,"QUITTER",5
Lbl 1
Horiz
ClrDraw
AxesOff
FnOff
0→Xmin
94→Xmax
0→Ymin
31→Ymax
0→A
0→B
1→C
DispGraph
Input "MOT: ",Str0
"CHAISEBATEAUCAHIERTENNISBOUTONREVEILLEZARDCHIMIEDOMINOBANANE
If Str0="
sub(Ans,6randInt(0,9)+1,6→Str0
length(Str0→D
D→dim(L1
Lbl 2
ClrHome
1→E
For(F,1,D
If L1(F
Then
Text(0,E,sub(Str0,F,1
Else
Text(0,E,"-
End
E+4→E
End
If A=9
Goto 3
Input "LETTRE: ",Str1
0→A
For(F,1,D
If sub(Str1,1,1)=sub(Str0,F,1
Then
1→L1(F
1→A
End
End
If A
Then
0→G
For(F,1,D
If L1(F
G+1→G
End
If D=G
9→A
Else
Text(24,C,sub(Str1,1,1
C+4→C
B+1→B
If B=1
Line(73,1,93,1
If B=2
Line(75,1,75,30
If B=3
Line(75,30,85,30
If B=4
Line(75,25,80,30
If B=5
Line(85,30,85,25
If B=6
Circle(85,22,2
If B=7
Line(85,20,85,12
If B=8
Line(85,12,81,5
If B=9
Line(85,12,89,5
If B=10
Line(85,19,82,12
If B=11
Then
Line(85,19,88,12
Goto 4
End
End
Goto 2
Lbl 3
ClrHome
Output(2,6,"GAGNE!
Pause
Goto 0
Lbl 4
Text(0,0,Str0
ClrHome
Output(2,6,"PERDU!
Pause
Goto 0
Lbl 5
Output(4,6,"ALEXIS
RecallGDB 0
DelVar ADelVar BDelVar CDelVar DDelVar EDelVar FDelVar GDelVar YDelVar GDB0DelVar Str0DelVar Str1
Output(1,1,"

Retour Sommaire

Créer un site gratuit avec e-monsite - Signaler un contenu illicite sur ce site

×