Сортировка одномерного массива

Вид материала

Документы

Подобный материал:

• Поняття масиву. Одновимірний масив, 62.45kb.
• Лабораторная работа «Сортировка массива», 19.68kb.
• Тест по теме: «Программирование. Массивы», 95.07kb.
• План урока. Общие замечания. Сортировка методом выбора. Сортировка методом обмена (метод, 168.32kb.
• Университетские исследования, 2010, 129.9kb.
• Тема Сортировка. Методы внутренней сортировки, 45.24kb.
• Использование программных массивов для обработки большого числа однотипных данных (на, 94.99kb.
• Поэтому при написании программы будьте особенно внимательны, не путайте индексы элементов, 363.59kb.
• Задача сводится к организации цикла по I и вычислению Ci=Ai+Bi при каждом значении, 96.83kb.
• План урока: Проверка домашнего задания. Объяснение нового материала, 64.98kb.

СОРТИРОВКА ОДНОМЕРНОГО МАССИВА

1. Метод всплывающего пузырька
   

Dim M(1 To 12) As Integer


Private Sub Command1_Click()

Print "=================================="

Randomize

Print "Исходный массив:"

For i = 1 To 12

M(i) = CInt(Rnd * 40) – 20 'Создание в цикле элементов массива

Print M(i); " "; ' Печать в одну строку

Next i

Print

' начинаем сортировку массива по возрастанию

For k = 1 To 11 ' очередной проход массива для обработки пар чисел

For i = 1 To (12 – k) 'внутренний цикл – один "проход" массива или его части


Если в паре соседних чисел справа число меньшее, меняем местами числа пары. Обрабатываем так выбранные пары массива, после чего наибольшее число окажется самым правым за один проход массива ("пузырёк всплыл").
If M(i + 1) < M(i) Then

W = M(i)

M(i) = M(i + 1)

M(i + 1) = W

End If

Next i

Next k

For i = 1 To 12 ' выводим отсортированный массив:

Print M(i); " ";

Next i

Print : Print "=========================="

End Sub