VEILLE

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
0→Xmin
94→Xmax
0→Ymin
62→Ymax
EffDessin
AxesNAff
FonctNAff
EffEcr
Menu(">>>> VEILLE <<<<","POINTS",1,"SEGMENTS",2,"DROITES",3,"CROIX",4,"INERTIE",5,"MIRROIR",6,"QUITTER",7
Lbl 1
Repeat codeTouche
Pxl-Change(entAléat(0,62),entAléat(0,94
End
Goto 0
Lbl 2
Repeat codeTouche
Ligne(entAléat(0,94),entAléat(0,62),entAléat(0,94),entAléat(0,62
End
Goto 0
Lbl 3
Repeat codeTouche
If NbrAléat>.5
Then
Horizontale entAléat(0,62
Else
Verticale entAléat(0,94
End
End
Goto 0
Lbl 4
For(A,0,93,3
Pt-Aff(A,1,3
End
Repeat codeTouche
3entAléat(0,31→A
1→B
Repeat 1=pxl-Test(B+2,A
B+3→B
Pt-Aff(A,62-B,3
Pt-NAff(A,65-B,3
End
End
Goto 0
Lbl 5
entAléat(0,61→A
entAléat(0,93→B
1→C
1→D
Repeat codeTouche
Pxl-Aff(A,B
Pxl-Aff(A+1,B
Pxl-Aff(A,B+1
Pxl-Aff(A+1,B+1
A+C→A
B+D→B
If A=0 ou A=61
‾C→C
If B=0 ou B=93
‾D→D
End
Goto 0
Lbl 6
entAléat(0,94→A
entAléat(0,62→B
1→C
1→D
Repeat codeTouche
Pt-Change(A,B
Pt-Change(94-A,B
Pt-Change(A,62-B
Pt-Change(94-A,62-B
A+C→A
B+D→B
If A=0 ou A=94
‾C→C
If B=0 ou B=62
‾D→D
End
Goto 0
Lbl 7
Output(4,6,"ALEXIS
RappelBDG 0
EffVar AEffVar BEffVar CEffVar DEffVar XEffVar YEffVar BDG0
Output(1,1,"

 

Taper à la main: (Anglais)

StoreGDB 0
Lbl 0
0→Xmin
94→Xmax
0→Ymin
62→Ymax
ClrDraw
AxesOff
FnOff
ClrHome
Menu(">>>> VEILLE <<<<","POINTS",1,"SEGMENTS",2,"DROITES",3,"CROIX",4,"INERTIE",5,"MIRROIR",6,"QUITTER",7
Lbl 1
Repeat getKey
Pxl-Change(randInt(0,62),randInt(0,94
End
Goto 0
Lbl 2
Repeat getKey
Line(randInt(0,94),randInt(0,62),randInt(0,94),randInt(0,62
End
Goto 0
Lbl 3
Repeat getKey
If rand>.5
Then
Horizontal randInt(0,62
Else
Vertical randInt(0,94
End
End
Goto 0
Lbl 4
For(A,0,93,3
Pt-On(A,1,3
End
Repeat getKey
3randInt(0,31→A
1→B
Repeat 1=pxl-Test(B+2,A
B+3→B
Pt-On(A,62-B,3
Pt-Off(A,65-B,3
End
End
Goto 0
Lbl 5
randInt(0,61→A
randInt(0,93→B
1→C
1→D
Repeat getKey
Pxl-On(A,B
Pxl-On(A+1,B
Pxl-On(A,B+1
Pxl-On(A+1,B+1
A+C→A
B+D→B
If A=0 or A=61
‾C→C
If B=0 or B=93
‾D→D
End
Goto 0
Lbl 6
randInt(0,94→A
randInt(0,62→B
1→C
1→D
Repeat getKey
Pt-Change(A,B
Pt-Change(94-A,B
Pt-Change(A,62-B
Pt-Change(94-A,62-B
A+C→A
B+D→B
If A=0 or A=94
‾C→C
If B=0 or B=62
‾D→D
End
Goto 0
Lbl 7
Output(4,6,"ALEXIS
RecallGDB 0
DelVar ADelVar BDelVar CDelVar DDelVar XDelVar YDelVar GDB0
Output(1,1,"

Retour Sommaire

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

×