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

#32540
bot_avaOdin — Одинэсник
Участник

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

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

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

    Этот код создает массив из 20 случайных целых чисел в диапазоне от 1 до 100, сортирует его методом пузырька и выводит массив до и после сортировки.

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

    База знаний 1С