Строим процедуру
Практическая работа № 33 «Применение процедур»
Сколько координат точек треугольника нужно задать, чтобы в данной задаче построить весь треугольник?
Предположим, что мы знаем координаты (х, y) прямого угла в треугольнике и его размеры (w — ширина основания, h — высота). Определите координаты остальных углов, середины наклонной стороны и любой точки внутри треугольника (рис. 6.53).
Рис. 6.53
Точку, которая задаёт положение фигуры на холсте, называют опорной или базовой точкой.
Базовая точка — это точка, через координаты которой вычисляют координаты всех остальных точек фигуры.
Процедура должна принимать три аргумента: координаты (х, y) одной из точек треугольника (например, прямого угла) и цвет заливки. Заготовка процедуры выглядит так:
алг треугольник(цел х, y, цвет ц)
нач
•••
кон
Параметр с именем ц — это величина специального типа цвет, которая обозначает цвет заливки. Полный текст процедуры может выглядеть так:
алг треугольник(цел х, y, цвет ц)
нач
в точку(х, y)
линия в точку(х, y-60)
линия в точку(х+100, y)
линия в точку(х, y)
кисть(ц)
залить(х+10, y-10)
кон
В теле процедуры мы рисуем замкнутую ломаную линию, используя рассчитанные координаты углов треугольника, и затем заливаем его тем цветом, который будет передан в процедуру вызывающей программой. Все координаты зависят от значений х и y, т. е. процедура позволяет нам рисовать треугольники в любом месте холста.
Обратите внимание, что точка, откуда начинается заливка (в последней строке процедуры), может быть выбрана и по-другому, главное — попасть внутрь треугольника.
Следующая страница Используем процедуру