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

[AlexPS]

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

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

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

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

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

[volvo]

Ну, для начала, можешь вот тут посмотреть: Является ли дерево сбалансированным

[AlexPS]

Пасиба, ща посмотрю

[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. Перенести в Дельфи ?

[AlexPS]

volvo помоги мне пожалуйста... Че-то я ниче не понимаю

[klem4]

[offtop]

А Паскаля нету...

а почему не скачаешь Паскаль ?

[\offtop]

[AlexPS]

а почему не скачаешь Паскаль ?

Не знаю... А сколько это Мб?

[klem4]

Тут есть то что тебе нужно :yes:

[AlexPS]

А какой из них посоветуете???
Только желательно чтобы с виндовым интерфейсом

[klem4]

с интерфейсом без особо заметных глюков TMT Pascal lite, но так как он lite то писать в нем можно только под DOS. Еще Dev Pascal, но он глючноват.