Используя конструкцию шаг-кц, команду сместиться в точку и процедуры с параметром, составьте для исполнителя Чертёжник в среде КуМир программы рисования следующих фигур (рис. 17.7).
а) Вложенные друг в друга квадраты, у которых общий левый нижний угол (рисунок а).
б) Вложенные друг в друга прямоугольные треугольники с общей вершиной прямого угла (рисунок б).
Идея: рисуем одну фигуру процедурой с параметром (размер a). Затем в цикле «нц для i от
а) Квадраты. Рисунок а похож на вложенные квадраты с общим углом, поэтому берём общий угол в точке (
использовать Чертёжник
алг квадраты
нач
цел i
сместиться в точку( , )
опустить перо
нц для i от до
квадрат(i)
кц
поднять перо
кон
алг квадрат(цел a)
нач
сместиться в точку( , )
сместиться в точку( + a, )
сместиться в точку( + a, + a)
сместиться в точку( , + a)
сместиться в точку( , )
кон
Процедура «квадрат» берёт параметр a — длину стороны. Она обходит четыре вершины (
б) Треугольники. Общая вершина прямого угла — точка (
использовать Чертёжник
алг треугольники
нач
цел i
сместиться в точку( , )
опустить перо
нц для i от до
треугольник(i)
кц
поднять перо
кон
алг треугольник(цел a)
нач
сместиться в точку( , )
сместиться в точку( + a, )
сместиться в точку( , + * a)
сместиться в точку( , )
кон
Процедура «треугольник» с параметром a обходит вершины (
Если нужно другое число фигур или другой масштаб, меняйте границу цикла (
Процедура с параметром описывает одну фигуру, зависящую от размера. Цикл «нц для … кц» вызывает её с разными значениями параметра. Команда «сместиться в точку» задаёт абсолютные координаты, поэтому каждая фигура начинается в одной и той же вершине.
а) Процедура квадрат(цел a) рисует квадрат со стороной a от точки (
б) Процедура треугольник(цел a) рисует треугольник с вершинами (
