Упражнения по внутреннему языку программирования 1С 8.3: функции

Автор упражнений и преподаватель школы: Владимир Милькин

Упражнение №19. Напишите программу, которая:

1. Создаёт массив на 10 элементов.
2. Заполняет его числами от 1 до 10.
3. Выводит массив пользователю:
   1. Для этого напишите процедуру, которая принимает в качестве параметра массив, перебирает все его элементы и выводит их пользователю.
4. Затем массив перемешивается:
   1. Для этого напишите процедуру, которая принимает в качестве параметра массив и случайным образом меняет местами его элементы.
5. Затем массив снова выводится пользователю (при помощи написанной выше процедуры).
6. Затем массив сортируется:
   1. Для этого напишите процедуру, которая принимает в качестве параметра массив и сортирует его.
7. И, наконец, снова выводится пользователю (опять используя готовую процедуру).

Подсказки

Примеры работы с процедурами в 1С даны здесь и здесь.

Сами процедуры пишите в одном из общих модулей. О том как добавить общий модуль в конфигурацию читайте здесь.

А уже код, который использует процедуры можно писать в модуле управляемого приложения. Но учтите, что перед вызовом процедуры из общего модуля необходимо сначала указать имя модуля, затем точку и только потом имя процедуры.

В качестве подсказки приведу реализацию процедуры, которая выводит массив пользователю:

Процедура ВывестиПользователю(М) Экспорт
    Для Индекс = 0 По М.Количество() - 1 Цикл
        Сообщить(М[Индекс]);
    КонецЦикла;
КонецПроцедуры

Пусть наша процедура располагается в общем модуле Уроки, тогда её использование в управляемом модуле приложения может быть, например, таким:

Числа = Новый Массив;
Числа.Добавить(10);
Числа.Добавить(2);
Числа.Добавить(56);
Уроки.ВывестиПользователю(Числа);

//*** модуль управляемого приложения ***//
 
объявить массив Числа на 10 элементов
 
цикл для А от 1 до 10:
{
    Числа[А - 1] = А
}
 
ВывестиМассив(Числа)
 
ПеремешатьМассив(Числа)
 
ВывестиМассив(Числа)
 
СортироватьМассив(Числа)
 
ВывестиМассив(Числа)
 
//*** общий модуль Уроки ***//
 
процедура ВывестиМассив(М)
{
    цикл для А от 0 до (количество М) - 1:
    {
        вывести М[А]
    }
}
 
процедура ПеремешатьМассив(М)
{
    объявить генератор случайных чисел ГСЧ
    цикл для А от 0 до (количество М) - 1:
    {
        Б = случайное число от 0 до (количество М) - 1
        меняем местами элементы М[А] и М[Б]
    }
}
 
процедура СортироватьМассив(М)
{
    бесконечный цикл:
    {
        БылиПерестановки = Ложь
 
        цикл для Б от 0 до (количество М) - 2:
        {
            если М[Б] > М[Б + 1] тогда
            {
                меняем местами М[Б] и М[Б + 1]
                БылиПерестановки = Истина
            }
        }
 
        если БылиПерестановки = Ложь тогда
            прервать цикл
    }
}