Графика+рекурсия

[Alexsandr08]

Люди! Срочно нужно решить следующие задачи с помощбю рекурсии на Паскале.

1)Наборы последовательно выводимых отрезков с изменением их ориентации

Начиная от точки x, y путем последовательного построения отрезков с постепенным изменением их длины L и угла ориентации ugol можно строить различные спиралевидные узоры, варьируя приращения длины dL и угла du.
Например


Соответствующая рекурсивная процедура будет иметь приведенный ниже набор параметров
PROCEDURE OTREZOK(x,y, L,dL, ugol, du: integer);


2)Кружева

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

Например, можно использовать слудующую рекурсивную процедуру для построения 500 стежков по окружности
PROCEDURE ANGLE_1(x,y: integer);
begin
inc(n); { счетчик стежков узора }
base_ug:=2*pi*n/500; { базовое направление рисования - окружность }
{наложение пульсаций на базовое направление }
ugol:=base_ug + a*sin( b*base_ug);
{ координаты конца очередного стежка}
x1:=round( x +dl*cos(ugol));
y1:=round( y +dl*sin(ugol));
Line(x,y, x1,y1); { строим стежок }
{ условие прекращения рекурсии }
if n<=500 then ANGLE_1( x1,y1)
end;

[Alexsandr08]

Сообщение от Alexsandr08

Люди! Срочно нужно решить следующие задачи с помощбю рекурсии на Паскале.

1)Наборы последовательно выводимых отрезков с изменением их ориентации

Начиная от точки x, y путем последовательного построения отрезков с постепенным изменением их длины L и угла ориентации ugol можно строить различные спиралевидные узоры, варьируя приращения длины dL и угла du.
Например


Соответствующая рекурсивная процедура будет иметь приведенный ниже набор параметров
PROCEDURE OTREZOK(x,y, L,dL, ugol, du: integer);


2)Кружева

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

Например, можно использовать слудующую рекурсивную процедуру для построения 500 стежков по окружности
PROCEDURE ANGLE_1(x,y: integer);
begin
inc(n); { счетчик стежков узора }
base_ug:=2*pi*n/500; { базовое направление рисования - окружность }
{наложение пульсаций на базовое направление }
ugol:=base_ug + a*sin( b*base_ug);
{ координаты конца очередного стежка}
x1:=round( x +dl*cos(ugol));
y1:=round( y +dl*sin(ugol));
Line(x,y, x1,y1); { строим стежок }
{ условие прекращения рекурсии }
if n<=500 then ANGLE_1( x1,y1)
end;

Вот картинки этих фигур