Использование рекурсии в 1С

Содержание:

1.    Понятие рекурсии в 1С

Рекурсией в программировании называется явление вызова функции или процедуры по ее же алгоритму выполнения. В случае, когда функция вызывает себя опосредованно, рекурсия называется сложной или косвенной (а не простой или прямой, как в случае непосредственного вызова функцией самой себя).

Из определения рекурсии следует вывод, что во избежание бесконечного увеличения стека вызовов, необходимо предусмотреть условие выхода – условие, при котором очередной рекурсивный вызов не произойдет, что положит начало «заворачиванию» стека, по окончании которого получим конечный результат.

&НаКлиенте

Процедура Сосчитать(Команда)

            СчетДоДесяти(Число);

КонецПроцедуры

Процедура СчетДоДесяти(НачальноеЧисло)

    Если НачальноеЧисло <= 10 Тогда

        Сообщить(Строка(НачальноеЧисло));

        НачальноеЧисло = НачальноеЧисло + 1;

        СчетДоДесяти(НачальноеЧисло);

    Иначе //выход из рекурсии

                        Сообщить("Счет окончен.");

                        Возврат;

    КонецЕсли;

КонецПроцедуры

Результат выполнения команды «Начать» из приведенного примера, можно получить просто используя цикл, а не рекурсию. Такой вариант был бы лучше и с точки зрения производительности, ведь каждый вызов процедуры подразумевает выделение памяти под значения локальных переменных.

Такой счет до десяти – пример линейной рекурсии в 1С. То есть каждый очередной вызов процедуры инициирует лишь один рекурсивный вызов или при выполнении условия выхода не инициирует вовсе.

Каскадная же рекурсия характерна тем, что очередной вызов процедуры может непосредственно инициировать два и более рекурсивных вызова. Примером каскадной рекурсии является алгоритм нахождения числа ряда Фибоначчи по его номеру в ряду:

Функция ПолучитьЧислоРядаФибоначчиПоНомеру(НомерЧислаВРяду)

            Если НомерЧислаВРяду < 2 Тогда

                        Возврат НомерЧислаВРяду;

            КонецЕсли;

            Возврат ПолучитьЧислоРядаФибоначчиПоНомеру(НомерЧислаВРяду - 1) + ПолучитьЧислоРядаФибоначчиПоНомеру(НомерЧислаВРяду - 2)

КонецФункции

&НаКлиенте

Процедура Фибоначчи(Команда)

            Сообщить(ПолучитьЧислоРядаФибоначчиПоНомеру(Число));

КонецПроцедуры  

2.    Как используется рекурсия в 1С

Практическим примером использования рекурсии в 1С является алгоритм получения верхнеуровнего элемента справочника с иерархией элементов.

Получим для указанной организации главную организацию в иерархии элементов. Здесь условие выхода - Элемент.Уровень() = 0:

&НаКлиенте

Процедура УзнатьГлавнуюОрганизацию(Команда)

            Если Не ЗначениеЗаполнено(Организация) Тогда

                        Сообщить("Укажите Организацию");

                        Возврат;

            КонецЕсли;

            УзнатьГлавнуюОрганизациюНаСервере();

КонецПроцедуры

&НаСервере

Процедура УзнатьГлавнуюОрганизациюНаСервере()

            Если Организация.Уровень() = 0 Тогда

                        Сообщить("Указана организация верхнего уровня");

            КонецЕсли;

            ГоловнаяОрганизация = ПолучитьРодителя(Организация);

            Сообщить(ГоловнаяОрганизация);

КонецПроцедуры

&НаСервереБезКонтекста

Функция ПолучитьРодителя(Элемент)

            Если Элемент.Уровень() = 0 Тогда

                        Возврат Элемент;

            КонецЕсли;

            Возврат ПолучитьРодителя(Элемент.Родитель);

КонецФункции

Другой обычный случай использования рекурсии в 1С – обход дерева значений. Устройство этой иерархической структуры позволяет реализовать такой алгоритм:

&НаСервере

Процедура ОбойтиРекурсивно(Дерево)

            Для Каждого Строка Из Дерево.Строки Цикл

      Сообщить(Строка.Организация);

            Если Строка.Строки.Количество()>0 Тогда //Иначе выход из рекурсии

         ОбойтиРекурсивно(Строка);

            КонецЕсли;

КонецЦикла;

КонецПроцедуры

Если у строки два или более подчиненных, наблюдаем каскадную рекурсию.

Специалист компании ООО «Кодерлайн»

Щербаков Кирилл