Структура бинарного дерева , прога написана но кое что не получается - Turbo Pascal - Ответ 4597570

type
ErrorCode   = (error_noerror,error_emptyelem);
pBtreeElem  = ^BTreeElem;
 
BTreeElem   = object;
private
_data:integer;
_left, _right : pBTreeElem;
public
function  GetData : integer;
function  GetLeft : pBTreeElem;
function  GetRight: pBtreeElem;
procedure SetLeft(left:pBTreeElem);
procedure SetRight(right:pBTreeElem);
procedure SetData(data:integer);
function  Find_(data:integer):pBTreeElem;
procedure obhod_;
 
end;
 
BTree = object
private
root : pBTreeElem;
 
public
     function  Find(data:integer):            pBtreeElem;
     function  Add(data:integer):             pBtreeElem;
     Procedure Obhod;
end;
 
function BTreeElem.GetData:integer;
begin
GetData:=_data;
end;
function BTreeElem.GetLeft:pBTreeElem;
begin
GetLeft:=_left;
end;
function BTreeElem.GetRight:pBTreeElem;
begin
GetRight:=_right;
end;
procedure BtreeElem.SetLeft(left:pBTreeElem);
begin
_Left:=left;
end;
procedure BtreeElem.SetRight(right:pBTreeElem);
begin
_right:=right;
end;
procedure BtreeElem.SetData(data:integer);
begin
_data:=data;
end;
function BtreeElem.Find_(data:integer): pBTreeElem;
begin
if _data = data then
     Find_ := @Self
else if _data < data then
     begin
      if _left <> nil  then
         Find_ := _left^. Find_(data)
        else
         Find_ := @Self;
     end
else
 begin
 if _right <> nil then
         Find_ := _right^. Find_(data)
      else
         Find_ := @Self;
 end;
 
end;
 
procedure BTreeElem.Obhod_;
begin
if _left<>nil then
 _left^.obhod_;
write(' ',_data);
if _right<>nil then
 _right^.obhod_;
end;
 
{Btree interface}
function  Btree.Find(data:integer):            pBTreeElem;
var
x:pBTreeElem;
begin
if root=nil then
   Find:=nil
else
  begin
  x:=root^.Find_(data);
    if x^.GetData=data then Find:=x
    else Find:=nil;
  end;
end;
 
function  Btree.Add(data:integer):             pBtreeElem;
var y,x:pBTreeElem;
begin
if root=nil then
   Add:=nil
else
 begin
  x:=root^.Find_(data);
  if x^.GetData=data then Add:=x
  else
  begin
       new(y);
       y^.SetLeft(nil);
       y^.SetRight(nil);
       y^.SetData(data);
       if x^.GetData < data then
          x^.SetLeft(y)
       else x^.SetRight(y);
  end;
 end;
 
 
end;
 
Procedure Btree.Obhod;
begin
if root<>nil then
root^.obhod_;
end;
 
 
begin
end.