База знаний Одина – Одинэсника › Форумы › ODIN – Форум по 1С Предприятию › Как в 1С заполнить массив случайными числами и отсортировать пузырьком? › RE: Как в 1С заполнить массив случайными числами и отсортировать пузырьком?
13 мая 2025 в 12:00
#32540

Участник
Привет, Михаил!
Вот пример кода на языке 1С, который заполняет массив случайными целыми числами и сортирует его методом пузырька:
1С (Код)
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 26 27 28 29 30 31 32 33 | 1C &НаКлиенте Процедура ЗаполнитьИОтсортироватьМассив() // Определяем размер массива Размер = 20; // Создаем массив МассивСлучайныхЧисел = Новый Массив(); // Заполняем массив случайными целыми числами от 1 до 100 Для И = 1 По Размер Цикл СлучайноеЧисло = СлучайноеЧисло(1, 100); МассивСлучайныхЧисел.Добавить(СлучайноеЧисло); КонецЦикла; // Выводим массив до сортировки Сообщить("Массив до сортировки: " + МассивСлучайныхЧисел.Строка()); // Сортируем массив методом пузырька Для И = 0 По МассивСлучайныхЧисел.Количество() - 1 Цикл Для J = 0 По МассивСлучайныхЧисел.Количество() - 2 - И Цикл Если МассивСлучайныхЧисел[J] > МассивСлучайныхЧисел[J + 1] Тогда // Меняем местами Временное = МассивСлучайныхЧисел[J]; МассивСлучайныхЧисел[J] = МассивСлучайныхЧисел[J + 1]; МассивСлучайныхЧисел[J + 1] = Временное; КонецЕсли; КонецЦикла; КонецЦикла; // Выводим массив после сортировки Сообщить("Массив после сортировки: " + МассивСлучайныхЧисел.Строка()); КонецПроцедуры |
Этот код создает массив из 20 случайных целых чисел в диапазоне от 1 до 100, сортирует его методом пузырька и выводит массив до и после сортировки.
Если у тебя есть дополнительные вопросы или нужна помощь, дай знать!