Разработка приложений в системе Delphi. Шейкер Т.Д. - 125 стр.

UptoLike

ВУЗ: 

ДВФУ | Владивосток

Составители: 

Рубрика: 

каждом шаге уменьшается. Процесс продолжается до тех пор, пока длина
отрезка не станет меньше заданного значения.
Рис.3. Построение изображения с использованием рекурсии
У «регулярного» дерева на каждом шаге длины отрезков и углы одинаковы.
Во втором случае углы и длины отрезков на каждом шаге задаются случайным
образом, в том числе они могут быть равными нулю.
Фрагмент кода, реализующего «регулярное» дерево, приведён ниже.
Процедура
Branch1 строит отрезки. В теле процедуры на каждом шаге
вычисляются координаты концов отрезков, и для каждого из них выполняется
вызов процедуры
Branch1.
procedure Branch1(x,y,l,f,df,l_min:integer; r:real);
const u=0.01745;
var
x1,x2,y1,y2,f1,f2:integer;
t1,t2:real;
begin
t1:=f-df;
x1:=x+round(l*cos(t1*u));
y1:=y+round(l*sin(t1*u));
125
каждом шаге уменьшается. Процесс продолжается до тех пор, пока длина
отрезка не станет меньше заданного значения.




         Рис.3. Построение изображения с использованием рекурсии
    У «регулярного» дерева на каждом шаге длины отрезков и углы одинаковы.
Во втором случае углы и длины отрезков на каждом шаге задаются случайным
образом, в том числе они могут быть равными нулю.
    Фрагмент кода, реализующего «регулярное» дерево, приведён ниже.
Процедура Branch1 строит отрезки. В теле процедуры на каждом шаге
вычисляются координаты концов отрезков, и для каждого из них выполняется
вызов процедуры Branch1.
procedure Branch1(x,y,l,f,df,l_min:integer; r:real);
 const u=0.01745;
 var
  x1,x2,y1,y2,f1,f2:integer;
  t1,t2:real;
 begin
  t1:=f-df;
  x1:=x+round(l*cos(t1*u));
  y1:=y+round(l*sin(t1*u));


                                    125

Страницы