17. Feltételek és 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!

eljárás 12v :sz

hak :sz = "kék [ tsz! "kék ism 12 [ism 2 [ism 90 [e 1 j 1] j 90] j 30]] [ism 360 [e 1 j 1]]

vége