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

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

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

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

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

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

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

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

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

[offtop]


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

[\offtop]

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

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

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

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