Как отсортировать массив «Пузырьком» в 1С 8.3, 8.2
Отсортируем по колонке «НомерЗаказа»:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
Функция ПузырьковаяСортировкаМассива(Massiv) // Количество просмотров массива Для Ind = 0 По Massiv.Количество() - 1 Цикл // Просмотр массива Для IndStr = 0 ПО Massiv.Количество() - 1 Цикл Если IndStr = Massiv.Количество() - 1 Тогда Прервать; КонецЕсли; // Сравнение элементов и их перестановка (если требуется) Если Massiv[IndStr].НомерЗаказа > Massiv[IndStr + 1].НомерЗаказа Тогда СтаршийЭлемент = Massiv[IndStr]; МладшийЭлемент = Massiv[IndStr + 1]; Massiv[IndStr] = МладшийЭлемент; Massiv[IndStr + 1] = СтаршийЭлемент; КонецЕсли; КонецЦикла; КонецЦикла; КонецФункции |