Практическое задание N. 1. 60

1. С использованием процедуры OTREZOK построить (при alfa= 90^o) прямоугольный и ромбический спиралевидные лабиринты из отрезков разного цвета.

2. Построить прямоугольник со сторонами разного цвета и основанием, движущимся согласно процедуре OTREZOK.

Следующий пример показывает использование рекурсии при построении узоров, напоминающих кружева. Задается размер "стежка" - короткой линии длиной dl, функция варьирования угла перемещения ugol в зависимости от номера шага n.

uses Graph;

var gD, gM, n, x, y, x1, y1, k: integer; dl, ugol, ugol_0, s, i: real;

{-----------------------------------------------------------------}

PROCEDURE ANGLE(x, y: integer);

begin n:= n+1;

ugol:=2*pi*n/s; ugol_0:=ugol; { равномерное увеличение угла по параметру n }

ugol:= ugol_0 + i*sin(k*ugol); { периодическое отклонение угла:

параметр i определяет амплитуду, k - частоту отклонений }

x1:= x + round(dl*cos(ugol)); { (x1, y1) - координаты следующей точки }

y1:= y + round(dl*sin(ugol));

Line(x, y, x1, y1); { рисуем "стежок" }

if n<s then ANGLE(x1, y1) { рекурсивный вызов }