На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
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,0872 ]   [ 14 queries used ]   [ Generated: 14.07.20, 19:23 GMT ]