Задача на поиск в бинарном дереве Опции

[AlexPS]

Привет всем. Вот такой у меня сегодня вопрос, а вернее задача:

Найти вершины бинарного дерева, для которых высота левого поддерева не равна высоте правого поддерева

Я даже не знаю с чего начать делать её Может вы чего посоветуете.

P.$.
И еще тут такая мне мысле пришла, ведь представлять дерево в виде матрицы, например матрицы смежности графа, - это неэффективно (кол-во 0 будет гораздо больше кол-ва 1), в смысле перебор сильно усложнит. Как бы так представить дерево, чтобы это было максимально эффективно.

Заранее пасиба.

[AlexPS]

А в дельфи 7 у меня это не компилируется.... А Паскаля нету...
А нет ничего по этой теме для Дельфи?

[volvo]

А в дельфи 7 у меня это не компилируется...

А что именно "не компилируется"? Там же только сами функции - без описания типа TNode, и т.д.

Ну, и кроме того, в Дельфи результат должен возвращаться через переменную Result, то есть не так:

function TNode.Height: integer;
var leftHeight, rightHeight: integer;
begin
  ...
  Height := 1 + MAX(leftHeight, rightHeight)
end;

а вот так:

function TNode.Height: integer;
var leftHeight, rightHeight: integer;
begin
  ...
  Result := 1 + MAX(leftHeight, rightHeight)
end;

P.S. Перенести в Дельфи ?