ak :vyska <=0 [ukonci]
opakuj 2 [do :vyska vp 90 do :sirka vp 90]
schody :vyska-10 :sirka+10
ak :vyska <=0 [ukonci]
opakuj 2 [do :vyska vl 90 do :sirka vl 90]
cakaj 1
schody :vyska-10 :sirka+10
koniec
Úloha 8.
Riešenie:
Obrázok schodov sa skladá z obdĺžnikov postupne sa meniacich rozmerov. Preto ako prvý nakreslíme obdĺžnik s najväčšou výškou. V každom nasledujúcom kroku kreslenia zmenšíme výšku o 10 a šírku zväčšíme o 10 bodov. Najprv nakreslíme pravú časť schodov a potom ľavú. Procedúra na kreslenie schodov bude volať vo svojom tele samu seba 2x . Prvý krát pri kreslení pravej časti schodov a druhý krát pri kreslení ľavej časti schodov. Ak výška schodov bude <= 0, tak sa rekurzia ukončí.
Program:
| viem schody :vyska :sirka ak :vyska <=0 [ukonci] opakuj 2 [do :vyska vp 90 do :sirka vp 90] schody :vyska-10 :sirka+10 ak :vyska <=0 [ukonci] opakuj 2 [do :vyska vl 90 do :sirka vl 90] cakaj 1 schody :vyska-10 :sirka+10 koniec |
|
|
|