PONG

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
Menu(">>>>> PONG <<<<<","JOUER",1,"QUITTER",2
Lbl 1
EffDessin
AxesNAff
FonctNAff
0Xmin
94Xmax
0Ymin
62Ymax
Texte(57,1,"J1:
Texte(57,81,"J2:
Ombre(6,62
0A
0B
29C
RépD
5E
4entAléat(2,15F
0G
62H
4I
4J
If NbrAléat>.5
‾JJ
Repeat A=3 ou B=3
codeToucheK
If K=105
Pause
If K=45
Goto 0
C+5(K=21)-5(K=31C
If C>49
49C
If C<9
9C
D+5(K=25)-5(K=34D
If D>49
49D
If D<9
9D
If K=21 ou K=31 ou K=25 ou K=34 ou H=62
Then
If K=21 ou K=31
Then
Ligne(1,8,1,60
Ligne(2,8,2,60
End
If K=25 ou K=34
Then
Ligne(92,8,92,60
Ligne(93,8,93,60
End
Ligne(1,C,1,C+10,0
Ligne(2,C,2,C+10,0
Ligne(92,D,92,D+10,0
Ligne(93,D,93,D+10,0
End
Pt-Aff(G,H,2
Pt-Aff(G,H
Pt-NAff(E,F,2
Pt-NAff(E,F
EG
FH
E+IE
F+JF
If E≤5 ou E≥88
‾II
If F≤8 ou F≥60
‾JJ
If E=5 et (F<C-1 ou F>C+11
B+1B
If E=89 et (F<D-1 ou F>D+11
A+1A
Texte(57,11,A
Texte(57,91,B
End
Output(1,7,"PONG
Output(4,4,"JOUEUR   A
If A=3
Then
1A
Else
2A
End
Output(4,11,A
Output(5,6,"GAGNE!
Pause
Goto 0
Lbl 2
Output(4,6,"ALEXIS
RappelBDG 0
EffVar AEffVar BEffVar CEffVar DEffVar EEffVar FEffVar GEffVar HEffVar IEffVar JEffVar KEffVar XEffVar YEffVar BDG0
Output(1,1,"

 

Taper à la main: (Anglais)

StoreGDB 0
Lbl 0
ClrHome
Menu(">>>>> PONG <<<<<","JOUER",1,"QUITTER",2
Lbl 1
ClrDraw
AxesOff
FnOff
0→Xmin
94→Xmax
0→Ymin
62→Ymax
Text(57,1,"J1:
Text(57,81,"J2:
Shade(6,62
0→A
0→B
29→C
Ans→D
5→E
4randInt(2,15→F
0→G
62→H
4→I
4→J
If rand>.5
‾J→J
Repeat A=3 or B=3
getKey→K
If K=105
Pause
If K=45
Goto 0
C+5(K=21)-5(K=31→C
If C>49
49→C
If C<9
9→C
D+5(K=25)-5(K=34→D
If D>49
49→D
If D<9
9→D
If K=21 or K=31 or K=25 or K=34 or H=62
Then
If K=21 or K=31
Then
Line(1,8,1,60
Line(2,8,2,60
End
If K=25 or K=34
Then
Line(92,8,92,60
Line(93,8,93,60
End
Line(1,C,1,C+10,0
Line(2,C,2,C+10,0
Line(92,D,92,D+10,0
Line(93,D,93,D+10,0
End
Pt-On(G,H,2
Pt-On(G,H
Pt-Off(E,F,2
Pt-Off(E,F
E→G
F→H
E+I→E
F+J→F
If E≤5 or E≥88
‾I→I
If F≤8 or F≥60
‾J→J
If E=5 and (F<C-1 or F>C+11
B+1→B
If E=89 and (F<D-1 or F>D+11
A+1→A
Text(57,11,A
Text(57,91,B
End
Output(1,7,"PONG
Output(4,4,"JOUEUR   A
If A=3
Then
1→A
Else
2→A
End
Output(4,11,A
Output(5,6,"GAGNE!
Pause
Goto 0
Lbl 2
Output(4,6,"ALEXIS
RecallGDB 0
DelVar ADelVar BDelVar CDelVar DDelVar EDelVar FDelVar GDelVar HDelVar IDelVar JDelVar KDelVar XDelVar YDelVar GDB0
Output(1,1,"

Retour Sommaire

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

×