Цитата
идент(1)
/ \
№стр идент(2)
/ \
№стр идент(3)
/ \
№стр идент(4)
/ \
№стр идент(2)
/ \
№стр идент(3)
/ \
№стр идент(4)
И так далее. Вроде бы понятно обьяснил.
type
PTTree = ^TTree;
TTree = record
left_data: integer;
right_data: String;
right: PTTree;
{ влево дерево уходить не может - left не нужен }
end;
function find_id(T: PTTree; s: string): PTTree;
begin
find_id := nil; p := T;
while p <> nil do begin
if p^.right_data = s then begin
find_id := p; exit;
end;
p := p^.right;
end;
end;
node := find_it(root, s);
if node <> nil then node^.left_data := str_num;