Egyszerű rekurzív ábrák
Példák
Négyzetek
Belülről kifelé halad.
eljárás rekA :h :db
ha :db > 0 [
ism 4 [e :h j 90]
tf h 10 j 90 h 10 b 90 tl
rekA :h+20 :db-1
]
vége
ha :db > 0 [
ism 4 [e :h j 90]
tf h 10 j 90 h 10 b 90 tl
rekA :h+20 :db-1
]
vége
rekA 20 20
Háromszögek
Kívülről befelé halad.
eljárás rekB :h :db
ha :db > 0 [
ism 3 [e :h j 120]
e :h/2 j 60
rekB :h/2 :db-1
]
vége
ha :db > 0 [
ism 3 [e :h j 120]
e :h/2 j 60
rekB :h/2 :db-1
]
vége
rekB 300 8
Feladatok
Készítsünk rekurzív programot az alábbi ábrák megrajzolására!
- CÉLTÁBLA :N :R :D
:N a körök száma, :R a legkisebb kör sugara, :D a szomszédos körök távolsága.
- PIRAMIS :N :H
:N az emeletek száma, :H egy kisháromszög oldalának hossza