Rješenja zadataka

1.

to kvadrat :a
repeat 4[fd :a rt 90]
end

to red :n :a
repeat :n[make "b random 15 if :b=7 [make "b 4] setpc :b kvadrat :a pu rt 90 fd :a lt 90 pd]
end
 

2.

to trokut :a
repeat 3[fd :a rt 120]
end

to trokuti :n :a
repeat :n [make "b ((random 8)+2) setpc :b trokut :a make "a :a+20 if :b=4 [stop]]
end
 

3.

to lik :n :a
(if :a<200 [repeat :n [fd :a rt 360/:n]][setpc 4 repeat 3 [fd :a/2 rt 120]])
end

4.

to latica :a
setpensize [2 2]
repeat 5 [fd :a rt 360/5]
end
 

to cvijet :a
if :a>150 [make "a 150]
repeat 10 [make "b random 15 if :b=7 [make "b 5] setpc :b latica :a rt 360/10]
end