to test1 :getal
if :getal = 10[pr [gelijk aan 10]]
end
if voorwaarde
[uit te voeren code indien waar]
Voorwaardelijke uitvoering
to test2 :getal
ifelse :getal = 10
[pr [gelijk aan 10]]
[pr [verschillend van 10]]
end
ifelse voorwaarde
[uit te voeren code indien waar]
[uit te voeren code indien vals]
Recursie
Aftellen via recursie
to aftellen :x
if :x = 0 [stop]
pr :x
aftellen :x - 1
end
Een procedure die zichzelf oproept
Concentrische Cirkels
Concentrische Cirkels
to conc_cirkels :straal
if :straal < 1 [stop]
circle :straal
conc_cirkels :straal - 10
end
Vlieger
Vlieger
VLIEGER
Vlieger
VLIEGER RAND
Vlieger
VLIEGER RAND RAND
Vlieger
VLIEGER RAND RAND KRUIS
Vlieger: procedure kruis
to kruis :kop :staart
pu
setxy 0 :kop
pd
setxy 0 -:staart
pu
setxy -:kop 0
pd
setxy :kop 0
end
Vlieger: procedure vlieger
to vlieger :kop :staart :aantal
make "stap :kop/:aantal
rand :kop :staart :aantal
kruis :kop :staart
end
Vlieger: procedure rand
to rand :kop :staart :aantal
if :aantal = 0 [stop]
pu
setxy -:kop 0
pd
setxy 0 :kop
setxy :kop 0
setxy 0 -:staart
setxy -:kop 0
rand :kop-:stap :staart :aantal-1
end
Oefening: Maansverduistering
TIPS:
scherm- en penkleur veranderen
bestaat uit maan en schaduw
maan en schaduw zijn beide
recursieve procedures die
cirkels tekenen
Oplossingen
Oplossingen staan op de website bij de cursus:
http://users.skynet.be/Dieter.Verslype/AILO
Comments