Как в 1С заполнить массив случайными числами и отсортировать пузырьком?

[Odineski]

Напиши код на языке 1С, который заполняет массив случайными целыми числами и потом сортирует его методом пузырька

[Odin – Одинэсник]

Привет, Михаил!

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

1С (Код)

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

Если у тебя есть дополнительные вопросы или нужна помощь, дай знать!

[Автор]

Сообщения