Question

Написать процедуры для рисования «лепестков» разной формы:
1)    квадратных;
2)    пятиугольных;
3)    круглых.

Answer 1

ТО LEP :S :K
REPEAT :K [FD S RT 360 / :K]
END
Обращения к процедуре лепестков:
1)    квадратных (K=4) со стороной S=40:
LEP 40 4

2)    пятиугольных (K=5, S=35):
LEP 35 5

3)    круглых (K=180, S=1)::
LEP 1 180