16. Gyakorlás
Eljárással:
- n – négyzet
eljárás n
ism 4 [e 50 j 90]
vége
- 3sz - háromszög
eljárás 3sz
ism 3 [e 50 j 120]
vége
Paraméteres eljárással:
1 paraméterrel:
- 5szog – ötszög
eljárás 5szog :oh
ism 5 [e :oh j 72]
vége
- 6szog – hatszög
eljárás 6szog :oh
ism 6 [e :oh j 60]
vége
2 paraméterrel:
- sokszog
eljárás sokszog :s :oh
ism :s [e :oh j 360/:s]
vége
Lufirajzolás új parancsokkal (tetsz, pontméret)
- Eljárás neve: lufi
Tetszőleges színűek, 50 pont méretű a lufi, 80 pont hosszú madzag végén van.
Rajzolás után a teknősbéka visszatér a kiindulási pontba.
eljárás lufi
tsz! tetsz
e 80
pontméret 50
h 80
vége
- Eljárás neve: lufik
A lufirajzolást hívja meg 10-szer, a teknőcöt mindig tetszőleges szöggel elfordítja.
eljárás lufik
törölkép
ism 10 [b tetsz lufi]
vége
Feltételek-elágazások:
Eljárás neve: k
Csak akkor rajzoljon a teknősbéka egy kört, ha az előre érték kisebb, mint 3!
eljárás k :r
ha :r < 3 [ism 360 [e :r j 1]]
vége
Eljárás neve: kiv
Csak akkor rajzolja meg a teknősbéka a körívet, ha 180 fokosnál kisebb!
eljárás kiv :i
ha :i < 180 [ism :i [e 1 j 1]]
vége
Eljárás neve: 8szog
Csak akkor rajzolja meg a nyolcszöget a teknősbéka, ha a tollvastagság nagyobb, mint 10!
eljárás 8szög :v
ha :v > 10 [tv! :v ism 8 [e 50 j 45]]
vége
Eljárás neve: alakzat
Ha teljesül a feltétel, hogy "a" értéke kisebb, mint "b", akkor rajzoljon "a" oldalhosszúsággal egy háromszöget, ha nem teljesül a feltétel, rajzoljon "b" oldalhosszúsággal egy négyzetet a teknősbéka!
eljárás alakzat :a :b
hak :a < :b [ism e [e :a j 120]] [ism 4 [e :b j 90]]
vége