Question

Нарисовать три равносторонних треугольника. Первый треугольник закрасить в красный, второй в синий, третий в зеленый цвет.

Answer 1

TO MNOGOUG :A :N
REPEAT :N [FD :A RT 360 / :N]
END
Вызов процедуры: RT 30 MNOGOUG 80 3 LT 30
Используем Пример 2 для закрашивания фигуры.
В процедуре рисования цветных многоугольников зададим переменную S, отвечающую за цвет:
TO MNOGOUGS :A :N :S
RT 30 MNOGOUG :A :N LT 30
RT 45 PU FD :A / 2 PD    - подняв перо входим внутрь треугольника
SETC :S        - цвет черепашки переменный
FILL        - закрашиваем треугольник
PU BK :A / 2 LT 45    - подняв перо возвращаемся в исходное положение
SETC 9    - возвращаем черепашке черный цвет
LT 30
END