На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
15 мая "Исходники.РУ" отмечают 20-летие присутствия в сети!
Поздравляем всех причастных и неравнодушных с юбилеем сайта!
И огромное спасибо всем, кто был с нами все эти годы!
msm.ru
Название темы должно быть информативным !
Прежде чем задать вопрос, воспользуйтесь Поиском. и проверьте в FAQ (ЧАВО) Паскаля
Чтобы получить вразумительный ответ, подробно опишите проблему: что надо сделать, что не получается и номер ошибки (если есть), которую выводит компилятор.
Для вставки кода ваших программ используйте, пожалуйста, кнопку СODE=pas или выпадающий список СODE для других языков (подсветка синтаксиса).
[!] Как правильно задавать вопросы | Руководство по языку B.Pascal 7 & Objects/LR | Borland Pascal. Руководство пользователя
Модераторы: volvo877
  
> Определить самую короткую ветвь(ветви) в дереве
Помогите пожалуйста!)
Имеется двоичное дерево, нужно определить самую короткую ветвь(ветви).
Понимаю, что через рекурсию, но проблемы с реализацией.
ExpandedWrap disabled
    function depth(node):Integer;
    begin  
      if node = nil then
        result = 0
      else
        result = 1 + min(depth(node.left), depth(node.right));
    end;
Сообщение отредактировано: MBo -
MBo, а что за "1" - непорядок, ящетаю! 8-)
Мои программные ништякиhttps://majestio.info
Да и со скобками проблема :D
JoeUser
Почему?
MBo
А можно как-нибудь сделать, чтобы элементы этой короткой ветви печатались, а не длина?
Цитата MBo @
JoeUser
Почему?

А почему не 2 или 3? :-?
Сообщение отредактировано: JoeUser -
Мои программные ништякиhttps://majestio.info
Цитата JoeUser @
А почему не 2 или 3?

Потому что спуск на один уровень увеличивает глубину на единицу

Добавлено
Dobro_77
Сначала найти длину этой самой короткой ветви, потом ещё раз сделать обход - как дошли до nil на найденной глубине - остановились, и возвращаемся до корня, записывая узлы по пути
Сообщение отредактировано: MBo -
1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
0 пользователей:


Рейтинг@Mail.ru
[ Script Execution time: 0,1156 ]   [ 19 queries used ]   [ Generated: 28.05.20, 15:28 GMT ]