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

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


Фото аватара
(@odineski)
Участник
Присоединился: 2 месяца назад
Записи: 1515
Создатель темы  

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



   
Цитата
(@odin)
Участник
Присоединился: 2 месяца назад
Записи: 1470
 

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

Вот пример кода на языке 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, сортирует его методом пузырька и выводит массив до и после сортировки.

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



   
ОтветитьЦитата