MORPION

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
EffVar [A]
Menu(">>> MORPION <<<<","JOUER",1,"QUITTER",2
Lbl 1
EffDessin
AxesNAff
FonctOff
0→Xmin
94→Xmax
0→Ymin
62→Ymax
For(A,20,74,18
Ligne(A,4,A,58
End
For(A,4,58,18
Ligne(20,A,74,A
End
0→A
0→B
54→C
24→D
2→E
2→F
1→G
{3,3→dim([A]
Repeat A=9
Texte(0,0,"J",G
Ligne(C,D,C,D+14
Ligne(C,D+14,C-14,D+14
Ligne(C-14,D+14,C-14,D
Line(C-14,D,C,D
codeTouche→H
If H=45
Goto 0
If H
Then
Ligne(C,D,C,D+14,0
Ligne(C,D+14,C-14,D+14,0
Ligne(C-14,D+14,C-14,D,0
Ligne(C-14,D,C,D,0
End
If H=105 and non([A](E,F
Then
A+1→A
G→[A](E,F
If (G=[A](1,1))(G=[A](2,1))(G=[A](3,1)) ou (G=[A](1,2))(G=[A](2,2))(G=[A](3,2)) ou (G=[A](1,3))(G=[A](2,3))(G=[A](3,3)) ou (G=[A](1,1))(G=[A](1,2))(G=[A](1,3)) ou (G=[A](2,1))(G=[A](2,2))(G=[A](2,3)) ou (G=[A](3,1))(G=[A](3,2))(G=[A](3,3)) ou (G=[A](1,1))(G=[A](2,2))(G=[A](3,3)) ou (G=[A](1,3))(G=[A](2,2))(G=[A](3,1
Then
9→A
1→B
End
If G=1
Then
2→G
Ligne(C,D,C-14,D+14
Ligne(C,D+14,C-14,D
Else
1→G
Cercle(C-7,D+7,6
End
End
If H=24 and C>40
Then
C-18→C
E-1→E
End
If H=26 and C<72
Then
C+18→C
E+1→E
End
If H=34 and D>22
Then
D-18→D
F-1→F
End
If H=25 and D<38
Then
D+18→D
F+1→F
End
End
BinAléat(9,0
If B
Then
Output(4,4,"JOUEUR   A
If G=1
Then
2→G
Else
1→G
End
Output(4,11,G
Output(5,6,"GAGNE!
Else
Output(4,5,"EGALITE!
End
Pause
Goto 0
Lbl 2
Output(4,6,"ALEXIS
RappelBDG 0
EffVar AEffVar BEffVar CEffVar DEffVar EEffVar FEffVar GEffVar HEffVar YEffVar BDG0
Output(1,1,"

 

Taper à la main: (Anglais)

StoreGDB 0
Lbl 0
ClrHome
DelVar [A]
Menu(">>> MORPION <<<<","JOUER",1,"QUITTER",2
Lbl 1
ClrDraw
AxesOff
FnOff
0→Xmin
94→Xmax
0→Ymin
62→Ymax
For(A,20,74,18
Line(A,4,A,58
End
For(A,4,58,18
Line(20,A,74,A
End
0→A
0→B
54→C
24→D
2→E
2→F
1→G
{3,3→dim([A]
Repeat A=9
Text(0,0,"J",G
Line(C,D,C,D+14
Line(C,D+14,C-14,D+14
Line(C-14,D+14,C-14,D
Line(C-14,D,C,D
getKey→H
If H=45
Goto 0
If H
Then
Line(C,D,C,D+14,0
Line(C,D+14,C-14,D+14,0
Line(C-14,D+14,C-14,D,0
Line(C-14,D,C,D,0
End
If H=105 and not([A](E,F
Then
A+1→A
G→[A](E,F
If (G=[A](1,1))(G=[A](2,1))(G=[A](3,1)) or (G=[A](1,2))(G=[A](2,2))(G=[A](3,2)) or (G=[A](1,3))(G=[A](2,3))(G=[A](3,3)) or (G=[A](1,1))(G=[A](1,2))(G=[A](1,3)) or (G=[A](2,1))(G=[A](2,2))(G=[A](2,3)) or (G=[A](3,1))(G=[A](3,2))(G=[A](3,3)) or (G=[A](1,1))(G=[A](2,2))(G=[A](3,3)) or (G=[A](1,3))(G=[A](2,2))(G=[A](3,1
Then
9→A
1→B
End
If G=1
Then
2→G
Line(C,D,C-14,D+14
Line(C,D+14,C-14,D
Else
1→G
Circle(C-7,D+7,6
End
End
If H=24 and C>40
Then
C-18→C
E-1→E
End
If H=26 and C<72
Then
C+18→C
E+1→E
End
If H=34 and D>22
Then
D-18→D
F-1→F
End
If H=25 and D<38
Then
D+18→D
F+1→F
End
End
randBin(9,0
If B
Then
Output(4,4,"JOUEUR   A
If G=1
Then
2→G
Else
1→G
End
Output(4,11,G
Output(5,6,"GAGNE!
Else
Output(4,5,"EGALITE!
End
Pause
Goto 0
Lbl 2
Output(4,6,"ALEXIS
RecallGDB 0
DelVar ADelVar BDelVar CDelVar DDelVar EDelVar FDelVar GDelVar HDelVar YDelVar GDB0
Output(1,1,"

Retour Sommaire

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

×