Fa

Készíts fa rajzoló eljárást (fa(év,h)) az alábbi ábrák megrajzolására. A törzsből először a jobboldali ág nő gyorsabban, a következő lépésben minden ág végéről a baloldali ág nő gyorsabban, majd felváltva újra a jobb-, illetve a baloldali következik. A legalább kétéves fa minden ága végén piros virágok nőnek.

A felváltva különböző arányban növekvő ágakat kell megoldani (balfa, illetve jobbfa).

eljárás fa :n :h
ha :n>1 [tollvastagság! :n*2 előre :h]
ha :n>1 [balra 60 balfa :n-1 :h*2/3 "igaz
jobbra 120 jobbfa :n-1 :h*2/3 "hamis
balra 60]
ha :n>0 [tollvastagság! :n*2 hátra :h]
vége

eljárás balfa :n :h :rövid
tollvastagság! :n*2
hak :rövid [előre :h/2] [előre :h]
hak :n>1 [balra 60 balfa :n-1 :h*2/3 nem :rövid
jobbra 60
jobbra 60 jobbfa :n-1 :h*2/3 :rövid
balra 60]
[virág :h]
tollvastagság! :n*2
hak :rövid [hátra :h/2] [hátra :h]
vége

eljárás jobbfa :n :h :rövid
tollvastagság! :n*2
hak :rövid [előre :h/2] [előre :h]
hak :n>1 [balra 60 balfa :n-1 :h*2/3 :rövid
jobbra 60
jobbra 60 jobbfa :n-1 :h*2/3 nem :rövid
balra 60]
[virág :h]
tollvastagság! :n*2
hak :rövid [hátra :h/2] [hátra :h]
vége

eljárás virág :h
tollvastagság! :h/2 tollatfel tollszín! "vörös előre :h/4
pont
ismétlés 6 [előre :h/4 pont hátra :h/4 jobbra 60]
hátra :h/4 tollatle tollszín! "fekete
vége

A. fa 1 100 jó 3 pont

B. fa 2 100-ban két ág van; jó irányban; a törzs vastagabb az ágaknál; a jobboldali ág hosszabb a baloldalinál; az ágak végén van virág; piros; jó méretű; 6 kisebb piros pontból áll
1+1+2+3+2+1+1+3 pont

C. fa 3 100-ban újabb két-két ág van; jó irányban; az ágak egyre vékonyabbak; a második szinten a baloldali ágak a hosszabbak; az ágak végén van piros virág; jó méretű 2+1+2+4+1+3 pont

D. fa 5 100 jó 10 pont

E. fa 8 100 jó 10 pont