Уведомления
Очистить все

Сортировка массива пузырьком в 1С

1 Записи
1 Пользователи
0 Likes
8,216 Просмотры
fb7fddb6942308eba897b03d233b8795?s=80&d=mm&r=g Okolokompa Форум
(@dinamit)
Active Member
Присоединился: 1 год назад
Записи: 3
Создатель темы  

Пример кода, который сортирует массив целых чисел методом пузырька в 1С:

Процедура СортировкаПузырьком(Массив)
	
	Для i = 1 По Массив.Количество() - 1 Цикл
		Для j = 1 По Массив.Количество() - i Цикл
			Если Массив[j] > Массив[j + 1] Тогда
				Переменная = Массив[j];
				Массив[j] = Массив[j + 1];
				Массив[j + 1] = Переменная;
			КонецЕсли;
		КонецЦикла;
	КонецЦикла;
	
КонецПроцедуры

В этом примере процедура СортировкаПузырьком принимает массив в качестве параметра и сортирует его методом пузырька. Внешний цикл проходится по всей длине массива, а внутренний цикл проходится по элементам массива, сравнивая каждую пару соседних элементов и меняя их местами, если они не упорядочены. После завершения внутреннего цикла самый большой элемент массива "всплывает" на последнюю позицию, и процесс повторяется до тех пор, пока все элементы не будут упорядочены.

Вы можете вызвать эту процедуру и передать ей массив целых чисел для сортировки, например:

///
Массив = Новый Массив;
Массив.Добавить(3);
Массив.Добавить(1);
Массив.Добавить(4);
Массив.Добавить(2);
СортировкаПузырьком(Массив);
///

После выполнения этого кода массив будет отсортирован в порядке возрастания: {1, 2, 3, 4}.


   
Цитата
Поделиться: