Функция осуществляет сортировку числового ряда (в массиве) от малого к большему http://ru.wikipedia.org/wiki/Сортировка_пузырьком методом "пузырька"[/url] Область применения достаточно широка.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
Функция СортировкаПузырьком(МассивЭлементов) Экспорт // Количество просмотров массива - по количеству числа его элементов Для просмотр = 0 По МассивЭлементов.Количество()-1 Цикл // Собственно, просмотр массива Для индекс = 0 По МассивЭлементов.Количество()-1 Цикл // Если достигли конца массива то прервём цикл, // чтобы не выполнять условие ниже Если индекс = МассивЭлементов.Количество()-1 Тогда Прервать; КонецЕсли; // Сравнение элементов и их перестановка (если требуется) Если МассивЭлементов[индекс] > МассивЭлементов[индекс+1] Тогда СтаршийЭлемент = МассивЭлементов[индекс]; МладшийЭлемент = МассивЭлементов[индекс+1]; МассивЭлементов[индекс] = МладшийЭлемент; МассивЭлементов[индекс+1] = СтаршийЭлемент; КонецЕсли; КонецЦикла; КонецЦикла; Возврат МассивЭлементов; КонецФункции |
About the Author
