17. Számonkérés

 
1. feladat
Ha az a szám értéke nagyobb, mint 50, akkor emelje fel a tollat és menjen előre a értéket, különben menjen rögtön előre a értéket.
Eljárás neve felemel.
 

eljárás felemel :a

hak :a>50 [tf e :a] [e :a]

vége

 

 

2. feladat

Ha az a szám értéke nagyobb, mint 70, akkor legyen ötös tollvastagsággal rajzolva, zöld színnel egy négyzet a oldalhosszúsággal.

Eljárás neve negyzet.

 

eljárás negyzet :a

ha :a>70 [tv! 5 tsz! "zöld ism 4 [ e :a j 90]]

vége

 

 

3. feladat

Ha az a értéke kisebb, mint 7, akkor rajzoljon egy 180 fokos körívet a előre értékkel.

Eljárás neve koriv.

 

eljárás koriv :a

ha :a<7 [ism 180 [e :a j 1]]

vége

 

 

4. feladat

Ha az a értéke nagyobb, mint 100, akkor rajzoljon egy + jelet, egyébként egy - jelet.

Eljárás neve plusz.

 

eljárás plusz :a

hak :a>100 [e :a h :a/2 j 90 e :a/2 h :a] [j 90 e :a]

vége

 

 

5. feladat

Ha az a értéke kisebb, mint 150, akkor rajzoljon 10-es tollvastagsággal, lila színnel egy hatszöget, egyébként pedig hármas tollvastagsággal, szürke színnel egy háromszöget.

Eljárás neve sokszog.

 

eljárás sokszog :a

hak :a<150 [tv! 10 tsz! "lila ism 6 [ e :A j 60]] [tv! 3 tsz! "szürke ism 3 [e :a j 120]]

vége

 

 

6. feladat

Ha az a értéke kisebb, mint 130, akkor rajzoljon egy vízszintes szaggatott vonalat. Ennyit: -  -

Eljárás neve szaggatott.

 

eljárás szaggatott :a

ha :a<130 [j 90 e :a tf e :a tl e :a]

vége

 

 

7. feladat

Ha az a értéke kisebb, mint 120, akkor rajzoljon vörös tollszínnel és ötös tollvastagsággal egy a hosszúságú vonalat, különben zöld tollszínnel, hetes tollvastagsággal egy a hosszúságú vonalat.

Eljárás neve vonal.

 

eljárás vonal :a

hak :a<120 [tsz! "vörös tv! 5 e :a] [tsz! "zöld tv! 7 e :a]

vége