15. Feltételek - elágazások
1. feladat
Eljárás neve k
Csak akkor rajzoljon a teknősbéka egy kört, ha az előre érték kisebb mint 4!
eljárás k :r
ha :r < 4 [ism 360 [e :r j 1]]
vége
2. feladat
Eljárás neve 6cs
Csak akkor rajzoljon a teknősbéka egy hatágú csillagot, ha az előre érték kisebb vagy egyenlő, mint 80!
eljárás 6cs :á
ha :á <= 80 [ism 6 [e :á j 150 e :á b 90]]
vége
3. feladat
Eljárás neve: felhő
Csak akkor rajzolja meg a felhőt a teknősbéka, ha a tollvastagság kisebb, mint 20!
eljárás felhő :c
ha :c < 20 [tv! :c ism 4 [ism 180 [e 1 j 1] b 90]]
vége
4. feladat
Eljárás neve alakzat.
Ha teljesül a feltétel, hogy "a"értéke nagyobb mint "b", akkor rajzoljon "a" oldalhosszúsággal egy négyzetet, ha nem teljesül a feltétel, rajzoljon "b" oldalhosszúsággal egy háromszöget a teknősbéka!
eljárás alakzat :a :b
hak :a > :b [ism 4 [e :a j 90]] [ism 3 [e :b j 120]]
vége
5. feladat
Eljárás neve ssz
Ha teljesül a feltétel, hogy m kisebb, mint n, akkor rajzoljon m oldalhosszússággal 4 darab 5 szöget, egyébként csak 1 darab 5 szöget!
eljárás ssz :m :n
hak :m < :n [ism 4 [ism 5 [e :m j 72] j 90]] [ism 5 [e :n j 72]]
vége
6. feladat
Eljárás neve 12v
Rajzoljon a teknősbéka egy 12 szirmú virágot, ha a tollszín kék, más tollszín megadása esetén egy kört rajzoljon!