Fa

Készíts fa rajzoló eljárást (fa(év,h)) az alábbi ábrák megrajzolására. A törzsből balra elágazó ágak és a jobbra elágazó ágak iránya is közelít a függőlegesen lefeléhez. A fa minden ága végén az utolsó ág hosszától függő méretű sárga virágok nőnek.

A kinövő ágak szögét a törzs irányától függően kell kiszámítani, hogy lefelé hajoljaak az ágak (azaz ha a törzs iránya 90 és 270 fok közötti.

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

eljárás balfa :n :h :i
tollvastagság! :n előre :h
hak :n>1 [balra (:i-180)/8 balfa :n-1 :h*2/3 irány
balra (:i-180)/2 balfa :n-1 :h*2/3 irány]
[virág :h]
irány! :i tollvastagság! :n hátra :h
vége

eljárás jobbfa :n :h :i
tollvastagság! :n előre :h
hak :n>1 [jobbra (180-:i)/8 jobbfa :n-1 :h*2/3 irány
jobbra (180-:i)/2 jobbfa :n-1 :h*2/3 irány]
[virág :h]
irány! :i tollvastagság! :n hátra :h
vége

eljárás virág :h
balra 30
ismétlés 60 [előre :h*3.14159/180 jobbra 1]
jobbra 120
ismétlés 60 [előre :h*3.14159/180 jobbra 1]
jobbra 150
tollatfel előre :h/4 töltőszín! "sárga
ha pontszín="fehér [tölt] hátra :h/4 tollatle
vége

A. fa 1 100-nak van törzse; végén virág; sárga 1+2+1 pont

B. fa 2 100-nak törzse vastagabb az ágaknál; három ága van; rövidebbek; jó szögben; ágak végén sárga virágok 1+1+1+1+1 pont

C. fa 3 100-nak ágai egyre vékonyabbak; a középső ága olyan, mint a fa 2 x; a baloldali ág kétfelé ágazik; jó irányban; a jobboldali ág kétfelé ágazik; jó irányban 1+2+1+2+1+2 pont

D. fa 4 100-nak ágai egyre vékonyabbak; a középső ága olyan, mint a fa 2 x; a baloldali felső ág kétfelé ágazik; jó irányban; a jobboldali felső ág kétfelé ágazik; jó irányban; baloldali alsó ágon újabb kétfelé ágazás; ez is jó irányban; jobboldali alsó ágon újabb kétfelé ágazás; ez is jó irányban 1+2+1+2+1+2+1+3+1+3 pont

E. fa 5 100 jó 15 pont