13. Összefoglalás
1. Eljárással készítsd el az alábbi rajzokat!
Eljárás neve: 8cs
Nyolcágú csillag:
ISMÉTLÉS 8 [ELŐRE 50 JOBBRA 150 ELŐRE 50 BALRA 105]
Eljárás neve: 10cs
Tízágú csillag:
ISMÉTLÉS 10 [ELŐRE 50 JOBBRA 150 ELŐRE 50 BALRA 114]
.........................................................................................................
Eljárás neve: 2n
2 darab négyzet:
ISMÉTLÉS 2 [ISMÉTLÉS 4 [ELŐRE 50 JOBBRA 90] JOBBRA 180]
Eljárás neve: 3h
3 darab háromszög:
ISMÉTLÉS 3 [ISMÉTLÉS 3 [ELŐRE 50 JOBBRA 120] JOBBRA 120]
............................................................................................................
Eljárás neve: nk
Nagy kör:
ISMÉTLÉS 360 [ELŐRE 2 JOBBRA 1]
Eljárás neve: kiskör
Kis kör:
ISMÉTLÉS 360 [ELŐRE 0.5 JOBBRA 1]
.........................................................................................
Eljárás neve: 6v
6 szirmú virág:
ISMÉTLÉS 6 [ISMÉTLÉS 2 [ISMÉTLÉS 90 [ELŐRE 1 JOBBRA 1] JOBBRA 90] JOBBRA 60]
Eljárás neve: 12v
12 szirmú virág:
ISMÉTLÉS 12 [ISMÉTLÉS 2 [ISMÉTLÉS 90 [ELŐRE 1 JOBBRA 1] JOBBRA 90] JOBBRA 30]
.................................................................................................................................................
2. Paraméteres eljárással készítsd el az alábbi rajzokat!
Eljárás neve: 5sz
Ötszög:
eljárás 5sz :hossz
ism 5 [e :hossz j 72]
vége
Parancssorba így kell beírni, ha ki akarod próbálni:
5sz 70
vagy
5sz 120
Eljárás neve: 6sz
Hatszög:
eljárás 6sz :o
ism 6 [e :o j 60]
vége
Parancssorba így kell beírni, ha ki akarod próbálni:
6sz 80
vagy
6sz 110
3. Elágazás
Eljárás neve: felhő
Csak akkor rajzolja meg a felhőt a teknősbéka, ha az előre érték kevesebb, mint 4!
eljárás felhő :c
ha :c < 4 [ism 4 [ism 180 [e :c j 1] b 90]]
vége
Parancssorba így kell beírni, ha ki akarod próbálni:
felhő 6 (nem rajzol semmit)
felhő 2 (rajzolja a felhőt)
Eljárás neve: körív
Csak akkor rajzolja meg a körívet a teknősbéka, ha 360-nál kisebb számot adunk meg a körívnek! eljárás körív :f ha :f < 360 [ism :f [e 1 j 1]] vége
Parancssorba így kell beírni, ha ki akarod próbálni:
körív 380 (nem rajzol semmit)
körív 270 (megrajzolja a körívet)
4. Elágazás kétfelé
Eljárás neve: ssz
Ha teljesül a feltétel, hogy "a"értéke kisebb egyenlő, mint "b", akkor rajzoljon "a" oldalhosszúsággal egy nyolcszöget, ha nem teljesül a feltétel, rajzoljon "b" oldalhosszúsággal egy kilencszöget a teknősbéka!
eljárás ssz :a :b
hak :a <= :b [ism 8 [e :a j 45]] [ism 9 [e :b j 40]]
vége
Parancssorba így kell beírni, ha ki akarod próbálni:
ssz 40 60 (40-es oldalhosszúsággal rajzol egy nyolcszöget)ssz 70 70 (70-es oldalhosszúsággal rajzol egy nyolcszöget)
ssz 90 50 (50-es oldalhosszúsággal rajzol egy kilencszöget)
Eljárás neve: csillag
Ha teljesül a feltétel, hogy a csillag vonalhosszúsága rövidebb, mint 80 egység, akkor egy tízágú csillagot rajzol, ha nem teljesül a feltétel, akkor tizenkét ágú csillagot rajzol.
eljárás csillag :vh
hak :vh < 80 [ism 10 [e :vh j 150 e :vh b 114]] [ism 12 [e :vh j 150 e :vh b 120]]
vége
Parancssorba így kell beírni, ha ki akarod próbálni:
csillag 45 (tízágú csillagot rajzol)
csillag 80 (tizenkét ágú csillagot rajzol)
csillag 95 (tizenkét ágú csillagot rajzol)
https://imagine-logo.wikidot.com/utasitasok