Левопрошитое дерево, проблемы Опции

[Jill]

Основной принцип: левый - потомок, правый - брат.
Описание дерева:

 type
    PTree=^TTree;
    TTree=record
      LL:PTree;    {левый указатель - на потомка если True, на предка если False}
      RL:PTree;    {правый указатель - на братьев}
      Key:string;  {ключ}
      Sign:boolean; {признак существования потомков}
    end; 

Если вершины нет, то создаем ее:

 if root=NIL then begin
    new(root);
    root^.LL:=root;   {сам на себя - предков нет}
    root^.RL:=NIL;    {нет братьев}
    root^.Key:='root';
    root^.Sign:=false; {нет потомков}

Добавление... Вроде существует два варианта - либо это первый потомок, либо нет. Не выходит реализовать это условие

 procedure AddElem(chto:string; kuda:PTree);
begin
    new(node);
    if kuda^.Sign=false then begin
      kuda^.LL:=node;    {на сына }
      kuda^.Sign:=true;  {у kuda появился потомок}
      node^.RL:=NIL;     {у node нет братьев}
      node^.LL:=kuda;    {на отца}
      node^.Key:=chto;
      node^.Sign:=false;  {у node нет потомков}
      end
    else begin  
      node:=kuda^.LL;    {находим первого сына}
      while node^.RL<>NIL do
        begin node:=node^.RL; end;  {продвигаемся по правой ветви}
        node^.RL:=NIL;
        node^.LL:=kuda;
        node^.Key:=chto;
        node^.Sign:=false;  
      end;
end;

.
Подскажите, плз, как с этим разобраться...

Сообщение отредактировано: volvo - 3.11.2006 23:49

[volvo]

Jill, ты программку-то свою приведи, как именно ты пытаешься работать с этими процедурами/функциями?

(сразу, не проверяя, могу сказать, что функция FindNode не очень мне нравится, т.к. не в каждой точке выхода она возвращает значение, а это плохо)

[Jill]

Дело в том, что мне необходимо оформить работу в делфях. Как работают процедуры в паскальных набросках примитивны - просто вызов и что из этого получится. Функция FindNode необходима для поиска элемента, который надо изменить (ChangeNode) или для поиска элемента, подлежащего удалению.
Код вот (повторюсь, главная программа - примитивна - мне нужно понять):

" (Показать/Скрыть)

 type
    PTree=^TTree;
    TTree=record
      LL:PTree;
      RL:PTree;
      Key:string;
      Sign:boolean;
    end;

var
  root,node,curr:PTree;
  s:string;

procedure CreateTree(var root:PTree);
begin
  if root=NIL then begin
    new(root);
    root^.LL:=NIL;
    root^.RL:=NIL;
    root^.Key:='root';
    root^.Sign:=false;
  end;
end;

procedure AddNode(chto:string; var father:PTree);
begin
  new(node);
  if father^.Sign=false then begin
    node^.RL:=NIL;
    node^.LL:=father;
    node^.Key:=chto;
    node^.Sign:=false;

    father^.LL:=node;
    father^.Sign:=true;
  end
  else begin
    curr:=father^.LL;
    while curr^.RL<>nil do
      curr:=curr^.RL;
    node^.RL:=NIL;
    node^.LL:=father;
    node^.Key:=chto;
    node^.Sign:=false;

    curr^.RL:=node;
  end;
end;

function FindNode(T:PTree;ToFind:string):PTree;
begin
    If T=NIL Then Exit;
    if T^.Key=ToFind then begin FindNode:=T; exit end
      else FindNode:=NIL;
    if T^.Sign then FindNode(T^.LL,ToFind);
    if T^.RL<>NIL then FindNode(T^.RL,ToFind);
end;

procedure ChangeNode(p:PTree;ToChange:string);
var pp: PTree;
  begin
    if FindNode(p,ToChange)<>NIL then begin
    pp:=FindNode(p,ToChange);
    pp^.Key:='node7'; end
end;

Procedure PrintDown(T:PTree;st:string);
begin
   If T = nil Then Exit;
   writeln(st+T^.key);
   if T^.Sign then PrintDown(T^.LL,St+st);
   if T^.RL<>NIL then PrintDown(T^.RL,St);
end;

procedure DeleteTree(T:PTree);
  Begin
    If T = nil Then Exit;
    if T^.Sign then DeleteTree(T^.LL);
    if T^.RL<>NIL then DeleteTree(T^.RL);
    Dispose(T);
end;

procedure DelTree(T:PTree;ToDelet:string);
var p,pp,del:PTree;
  Begin
    if FindNode(p,ToDelet)<>NIL then
       del:=FindNode(p,ToDelet);
    if del^.RL<>NIL then begin p^.RL:=del; pp:=del^.RL; end;
    DeleteTree(del);
    P^.RL:=pp;
end;

begin
s:='   ';
CreateTree(root);
AddNode('node1',root);
AddNode('node2',root);
AddNode('node3',root);
AddNode('node4',root);
AddNode('node5',root^.LL^.RL);          {это чтоб связи проверить}
ChangeNode(root,'node3');                  {просто пример}
if root<>NIL then PrintDown(root,S);
readln;
end.