Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2003.07.21;
Скачать: [xml.tar.bz2];

Вниз

Самая длинная ветка в бинарном дереве   Найти похожие ветки 

 
Начинающий_   (2003-07-07 00:00) [0]

Подскажите алгоритм нахождения самой длинной ветки в бинарном дереве.


 
Начинающий_   (2003-07-07 04:31) [1]

UP


 
Начинающий_   (2003-07-07 04:31) [2]

UP


 
MBo   (2003-07-07 06:29) [3]

обходишь дерево с вершины рекурсивно, добавляя 1 к счетчику, когда спускаешься вниз, и отнимая при подъеме. Макс. значанеие счетчика - результат


 
Начинающий_   (2003-07-07 06:49) [4]

Если я правильно вас понял, то для подъема придется хранить в структуре вершины ссылку на предыдущую вершину.
Можно поподробнее. А то у же какой час сижу нифига не получается.
Заранее благодарен.
PS Желательно кусок кода на паскале.


 
MBo   (2003-07-07 07:15) [5]

Нет, пред. вершину хранить не нужно - она будет оставаться в предыдущем экземпляре функции при рекурсивном вызове.

псевдокод

var maxdepth:integer;

procedure обход(node,depth);
if depth>maxdepth then maxdepth:=depth;
if exists (left) then
обход(left, depth+1)
то же для right;
end;

вызов
обход(Root,1);



Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2003.07.21;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.009 c
1-67865
Smart
2003-07-08 07:36
2003.07.21
Проблема с TListView


1-67799
Frist_May
2003-07-07 09:27
2003.07.21
Событие OnChange


4-68129
Шишкин Илья
2003-05-18 11:39
2003.07.21
Как лучше закрыть чужое приложение?


14-67980
Карелин Артем
2003-07-07 11:48
2003.07.21
Буржуйский форум по дельфи. ХОРОШИЙ.


4-68122
likeanangel
2003-05-20 17:08
2003.07.21
Импорт/экспорт в реестр





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский