Люди добрые помогите с таким заданием:
ralf, бинарное дерево является упорядоченным, поэтому надо идти все время направо, пока не встретишь нулевой указатель next... Этот лист и будет содержать максимальное значение...
Не подскажешь как это исполнить в процедуре?
Ну, это смотря как задается дерево. Но вообще-то вот так:
function find_max(tree: ptree): ptree;
begin
if tree <> nil then
while tree^.right <> nil do tree := tree^.right;
find_max := tree;
end;
Да ... интересно получилось, сейчас буду переделывать под конкретные деревья!!! А так суть понял...!!!