Нахождение максимального ключа в бинарном дереве? Опции

[ralf]

Люди добрые помогите с таким заданием:

Код

Написать процедуру, отыскивающую максимальный ключ (значение информационного поля) в бинарном дереве!

[volvo]

ralf, бинарное дерево является упорядоченным, поэтому надо идти все время направо, пока не встретишь нулевой указатель next... Этот лист и будет содержать максимальное значение...

[ralf]

Не подскажешь как это исполнить в процедуре?

[volvo]

Ну, это смотря как задается дерево. Но вообще-то вот так:

function find_max(tree: ptree): ptree;
begin
  if tree <> nil then
    while tree^.right <> nil do tree := tree^.right;
  find_max := tree;
end;

в результате функция вернет указатель на лист с максимальным значением...

[ralf]

Да ... интересно получилось, сейчас буду переделывать под конкретные деревья!!! А так суть понял...!!!