Определение уровня дерева

@K0CTbIJIb · Регистрация: 22.05.2011

Author24 — интернет-сервис помощи студентам

Кто знает, подскажите пожааалуйстаа как можно определять уровни дерева? (Корень - считать первым уровнем...) З.Ы. Заранее спасибо...

deathNC · 22.05.2011, 11:12

Какого дерева?

Общий алгоритм такой:

Delphi

node := MyNode; // node приравниваем к текущей ветви
n := 0; // А в n потом будет номер уровня
while Node.parent <> nil do
  begin
    Node := Node.Parent;
    Inc(n);
  end;

Если я ничего не напутал...

@K0CTbIJIb · 22.05.2011, 16:55 **[ТС]**

Спасибо! А не подскажешь еще: почему оно ругается?:

Delphi

procedure TForm1.DrawBranch(x1,y1,x2,y2: integer);
// рисование дуги
begin
  with Canvas do begin
    MoveTo(x1,y1); LineTo(x2,y2);
  end
end;
 
procedure TForm1.DrawTree(t: PNode);
// рисование узла
var
  d: integer;
begin
  d:=diametr div 2;
  if t<>nil then
  with Canvas do begin
    if t.left<>nil then
      DrawBranch(t.xN+d,t.yN+d,t.left.xN+d,t.left.yN+d);
    if t.right<>nil then
      DrawBranch(t.xN+d,t.yN+d,t.right.xN+d,t.right.yN+d);
    DrawTree(t.left);
    DrawTree(t.right);
    Ellipse(t.xN,t.yN,t.xN+diametr,t.yN+diametr);
    Font.Style:=[fsBold];
    S:=IntToStr(t.key);
    TextOut(t.xN+(diametr-TextWidth(S)) div 2,t.yN+(diametr-TextHeight(S)) div 2,S);
  end
end;

Подчеркивает неправильно на DrawBranch и DrawTree .
Пишет: TForm1 does not contain a member naimed DrawBranch. И аналогично для DrawTree...

@K0CTbIJIb 0 / 0 / 2 Регистрация: 22.05.2011 Сообщений: 16
		1
	Определение уровня дерева 22.05.2011, 11:00. Показов 1707. Ответов 2 Метки нет (Все метки) Кто знает, подскажите пожааалуйстаа как можно определять уровни дерева? (Корень - считать первым уровнем...) З.Ы. Заранее спасибо... 0

	22.05.2011, 16:55

Опции темы

Определение уровня дерева

Решение