Подскажите пожалуйста. Есть задачи поиск и вставка элемента в бинарное дерево, с этим вроде справился. Код:
function SearchTree (var p:TreeNodePtr; num:integer):TreeNodePos;
var tmp:TreeNodePos;
begin
tmp:=p;
while tmp^ <> nil do
begin
if tmp^^.data < num then
tmp:=@tmp^^.right
else
tmp:=@tmp^^.left;
end;
if (tmp^ = nil) or (tmp^^.data = num ) then
SearchTree:=tmp;
end;
function AddToTree(var p:TreeNodePtr;num : integer):boolean;
var pos:TreeNodePos;
begin
pos:= SearchTree(p,num);
if pos^ = nil then
begin
new(pos^);
pos^^.data:=num;
pos^^.right:=nil;
pos^^.left:=nil;
AddToTree:=true;
end
else
AddToTree:=false;
end;
Ума не приложу как найти сумму дерева без использования рекурсии, буду рад если кто-то поможет решить. Спасибо!
function SearchTree (var p:TreeNodePtr; num:integer):TreeNodePos;
var tmp:TreeNodePtr;
begin
tmp:=@p;
if tmp^.data = num then
SearchTree:=@tmp;
while tmp <> nil do
begin
if tmp^.data < num then
tmp:=tmp^.right
else
tmp:=tmp^.left;
end;
if tmp = nil then
SearchTree:=@tmp;
end;
new
function AddToTree(var p:TreeNodePtr;num : integer):boolean;
var pos:TreeNodePtr;
begin
pos:= SearchTree(p,num);
if pos = nil then
begin
new(pos);
pos^.data:=num;
pos^.right:=nil;
pos^.left:=nil;
AddToTree:=true;
end
else
AddToTree:=false;
end;