Вопрос, который вызвал трудности
Нарисовать три равносторонних треугольника. Первый треугольник закрасить в красный, второй в синий, третий в зеленый цвет.
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
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
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