Сортировка элементов массива

Одним из часто используемых алгоритмов является сортировка элементов массива. Пусть дан массив чисел:

Отсортировать его — значит упорядочить числа массива либо по возрастанию:

либо по убыванию:

Обмен значениями. При обмене значениями двух переменных обязательно требуется третья переменная. При присваивании переменной нового значения её старое значение теряется.

Например, при обмене значениями переменных А и В последовательность операторов:

А = 4

В = 7

…

А = В –> А = 7

В = А –> В = 7

не приведёт к желаемому результату, т.к. после выполнения оператора А = В переменная А примет значение переменной В (т.е. 7), но при этом будет утеряно её первоначальное значение (т.е. 4). Выполнение следующего оператора (В = А) уже не имеет смысла, т.к. переменной В присваивается новое значение переменной А (т.е. 7).

Возьмём, при обмене значениями переменных А и В, в качестве дополнительной переменную С. Правильная последовательность операторов будет следующей:

С = А –> С = 4

А = В –> А = 7

В = С –> В = 4

В переменной С сохраняем первоначальное значение переменной А, затем присваиваем переменной А значение переменной В, и только после этого присваиваем переменной В значение переменной С (т.е. первоначальное значение переменной А).

ЗАВДАННЯ 10.10. Постановка задачи: ВЫПОЛНИТЕ ПРОЕКТ, В КОТОРОМ:

ü ПРИ НАЖАТИИ НА ОДНУ ИЗ КОМАНДНЫХ КНОПОК ПРОИСХОДИТ ОБМЕН НАДПИСЯМИ МЕЖДУ ДВУМЯ ТЕКСТОВЫМИ ОКНАМИ;

ü ПРИ НАЖАТИИ НА ВТОРУЮ КОМАНДНУЮ КНОПКУ ТЕКСТОВЫЕ ОКНА МЕНЯЮТСЯ ЦВЕТАМИ ФОНА И ТЕКСТА.

После того как будет сформирован графический интерфейс пользователя, форма должна выглядеть следующим образом (рис. 10.6):

Рис. 10.6

Порядок действий:

1. Расположите элементы управления на экранной форме в соответствии с рисунком.

2. Значения свойств элементов управления, которые определяют внешний вид приложения установите в соответствии с рисунком.

3. Установите значения свойств объектов в соответствии со следующей таблицей (табл. 10.3):

Табл. 10.3

4. Подробно разберите программный код, а затем наберите его:

Private Sub cmdПУСК1 _Click()