Question

Используя только одну вспомогательную процедуру, нарисовать на одной линии правильный треугольник, квадрат и шестиугольник.

Answer 1

Правильный многоугольник с переменной стороной А и с переменным количеством сторон N:
TO MN :A :N
REPEAT :N [FD :A RT 360 / :N]
END
На одной линии 3 фигуры:
TO LIN :A :N :M :K
MN :A :N PU RT 90 FD 80 LT 90 PD
MN :A :M PU RT 90 FD 80 LT 90 PD
MN :A :K
END
Вызов программы:
LIN 60 3 4 6