Имя: Пароль:
1C
1С v8
Высота дерева значений
0 TolikoSprosit
 
01.07.16
12:13
Миста привет, написал получение высоты дерева значений.

Но думаю, что вы можете лучше.)

Вот мой вариант:

Сообщить(ПолучитьВысотуДерева(Дерево, 0));

Функция ПолучитьВысотуДерева(Дерево, Высота)
    
    Если Дерево.Строки.Количество() = 0 Тогда
        Возврат Высота;
    Иначе
        СамаяВысокая = 0;
        Для каждого Стр Из Дерево.Строки Цикл            
            ВысотаСтроки =  ПолучитьВысотуДерева(Стр, Высота + 1);
            Если ВысотаСтроки>СамаяВысокая Тогда
                СамаяВысокая = ВысотаСтроки;            
            КонецЕсли;
        КонецЦикла;
        Возврат СамаяВысокая;
    КонецЕсли;
    
КонецФункции
1 TolikoSprosit
 
01.07.16
12:19
Честно говоря я не уверен, что она то считет
2 H A D G E H O G s
 
01.07.16
12:21
Ты число уровней дерева считаешь?
3 TolikoSprosit
 
01.07.16
12:22
(2) Высоту, на каком уровне самый высокий элемент.
4 H A D G E H O G s
 
01.07.16
12:23
Нормально.
5 TolikoSprosit
 
01.07.16
12:40
НУ раз лучше нельзя, пусть висит тут, когда искал ничего не нашел.