Урок "Алгоритм пузырьковой сортировки" (Delphi)

Алгоритм пузырьковой сортировки в Delphi

Суть этого алгоритма состоит в том, что элемент сортируемого списка как бы "всплывает", подобно пузырьку (кстати, именно поэтому алгоритм получил свое название), и движется он до тех пор, пока не найден свое место. В реализации этот алгоритм очень прост, смотрите сами:

Если вы внимательно посмотрите на программу, то наверняка сразу зададите вопрос, почему первый цикл начинается со второго элемента?  Что бы ответить на него, посмотрим вложенный цикл. Он начинается с конца сортируемого списка и идет в обратном направлении до текущего элемента родительского цикла. Теперь обратим внимание на содержимое вложенного цикла:

Как видим, мы совершаем операции с элементом под номером j-1. На первом проходе это и будет элемент под номером 1 (потому что 2-1=1).

Как же работает алгоритм пузырьковой сортировки? Верхний цикл перемещает указать в прямом направлении, за указателем элементы оказываются отсортированными. А непосредственно сортировкой занимается вложенный цикл. Он то и как раз "проталкивает" элемент до своего места, делая это путем перестановок.

Естественно, перестановка нужна только в том случае, когда предыдущий элемент больше текущего - значит, его нужно "опустить", а текущий наоборот, "поднять".  Если мы сортируем по убыванию, тогда, естественно, все наоборот.

А теперь мы займемся тестированием алгоритма. Разместим на форме компоненты согласно скриншоту:

Разместим компоненты, которые отобразят массив до и после сортировки (TlistBox), поле для ввода количества элементов массива (TSpinEdit) и кнопку (TButton).

Теперь начнем программировать. В раздел типов добавим новые типы и объявим глобальную переменную Ar:DataArray;

У объекта SplinEdit установим свойство MinValue 1, а MaxValue 1000.

Напишем обработчик формы OnCreate:

и обработчик нажатия кнопки:

Теперь займемся тестирование алгоритма. Запускаем программу и проверяем, как она работает: