to aaa
;MSWLogo
;Napisati proceduru (samo jednu) imena LIKOVI koja
;prima dva ulazna podatka (input) imena DULJINA i BROJ.
;Podatak DULJINA (varijabla) odredjuje duljinu stranice
;pravilnog mnogokuta koji se mora nacrtati. BROJ odredjuje
;koliko mnogokuta do pravilnog trokuta mora biti.
;Ako je vrijednost kod pozivanja LIKOVI za BROJ bila 5,
;znaci da se mora nacrtati peterokut, u njemu kvadrat i
;u ovome trokut, a svi imaju samo jednu zajednicku stranicu.
;U proceduri se nesmije mjenjati status kornjace niti,
;pripremati papir, niti provjeravati tocnost ulaznih podataka.
;Pozvati za primjer s:
;----------------
;likovi 100 5
;----------------
;
;NAPOMENA:
;U rjesenju se ne koristi infix vec prefix za operacije i
;umjesto znaka dvotocke operacija THING.
end
to likovi :duljina :broj
if (thing "broj) <3 [stop]
repeat thing "broj [fd :duljina rt quotient 360 thing "broj]
likovi :duljina difference thing "broj 1
end