использовать Черепаха |запрос использования исполнителя "Черепаха"
алг звездочка
нач |начало алгоритма
цел рисунок |объявление переменной для выбора построения
вывод |'выбор варианта: 1 - звезда, 0(или любое другое число) - завершить алгоритм'
ввод рисунок
если рисунок=1 |условие, если введено '1' - построение рисунка, другое число - прерывание алгоритма
то
поднять хвост |действия 9-12: поднимаем перо и передвигаемся на край песочницы
влево(90)
вперед(115)
вправо(90)
опустить хвост |опускаем перо
рамочка |вызов вспомогательного алгоритма
влево(84) |возвращение на исходную позицию
треугольник |вызов вспомогательного алгоритма
поднять хвост |поднимаем перо
нц 13 раз |выполнение цикла, рисуем треугольники с наложением
поднять хвост |поднимаем перо, чтобы не получить контур окружности
нц 30 раз |перемещение черепахи по окружности (360/12=30-сегменты делят круг на 12 треугольников)
вперед(2)
вправо(1)
кц
опустить хвост |опустить перо
треугольник |вызов вспомогательного алгоритма(дополнительный треугольник)
кц
все
кон |конец основного алгоритма
алг треугольник |вспомогательный алгоритм Треугольник
нач
вправо(60) |действия 34-52: рисуем р/с треугольник с тремя линиями, проведенными из вершины
и делящими противолежащую сторону на 3 практически равные части
нц 2 раз
вперед(198)
вправо(120)
кц
вперед(198)
вправо(150)
вперед(171)
влево(90)
вперед(49)
влево(106)
вперед(179)
вправо(180)
вперед(179)
вправо(106)
вперед(99)
вправо(106)
вперед(179)
вправо(74)
кон |конец вспомогательного алгоритма
алг рамочка |вспомогательный алгоритм "Рамочка"
нач
назад(20) |действия 57-67: рисуем деталь в виде двух квадратов, соединенных
соответственно верхней правой и нижней левой вершинами
влево(90)
вперед(40)
нц 2 раз
влево(90)
вперед(20)
кц
влево(90)
вперед(40)
вправо(90)
вперед(20)
нц 35 раз |повтор рисунка детали для получения круглой рамочки
влево(80)
вперед(20)
назад(20)
влево(90)
вперед(40)
влево(90)
вперед(20)
влево(90)
вперед(20)
влево(90)
вперед(40)
вправо(90)
вперед(20)
кц
кон |конец вспомогательного алгоритма
|