Определить глубину правого поддерева дерева. (Pascal);. Хотя бы в теории .

Question

Александр · Accepted Answer

procedure Right(Current: TMyClass; var Level : integer); 
begin 
 Level := Level + 1; 
 if Assigned(Current.Right) 
 then Right(Current.Right,Level); 
end; 
 
// вызывать 
var 
 Level : ibteger; 
... 
 Level := 0; 
 Right(Root,Level); 
 Level - содержит глубину