Сортировка методом Пузырька

Delphi , Синтаксис , Сортировка

Автор: Cyber
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Обычная сортировка методом "пузырька"

ПРостой способ отсортировать массив данных

Зависимости: стандартный набор
Автор:       Oleg Yu. Borodin AKA Cyber, ICQ:52779990, Tomsk
Copyright:   Oleg Yu. Borodin AKA Cyber
Дата:        16 февраля 2004 г.
***************************************************** }

var
  l, m, mi, d: integer;
  mWin: array[0..8] of integer;
begin
  Randomize;
  for l := 0 to 8 do
    mWin[l] := Random(100);
  for l := 0 to 7 do //последний элемент не считаем - он уже будет
    //стоять на своем месте
  begin
    d := 0;
    mi := 0; //ищем максимальный элемент
    for m := l to 8 do
      if mWin[m] > mi then
      begin
        mi := mWin[m];
        d := m; //находим позицию максимального элемента массива
      end;
    mi := mWin[l]; //текущий сохраняем
    mWin[l] := mWin[d]; //вставляем максимальный
    mWin[d] := mi; //текущий переставляем на свободное место
  end;
end; //все

// Сортировка методом пузырька
procedure SortList(lbNum: TStrings);
var
  i, j, b_val, b_j: integer;
begin
  if lbNum.Count > 1 then
    for i := 0 to lbNum.Count - 2 do
    begin
      b_val := StrToInt(lbNum[i]);
      b_j := i;
      for j := i + 1 to lbNum.Count - 1 do
      begin
        if StrToInt(lbNum[j]) < b_val then
        begin
          b_val := StrToInt(lbNum[j]);
          b_j := j;
        end;
      end;
      lbNum[b_j] := lbNum[i];
      lbNum[i] := IntToStr(b_val);
    end;
end;

// Пример использования
procedure TForm1.Button1Click(Sender: TObject);
begin
  SortList(ListBox1.Items);
end;

Вот перевод текста на русский язык:

Это код на языке Pascal для реализации алгоритма сортировки "пузырька" (Bubble Sort) для сортировки массива mWin, содержащего целые числа.

Код состоит из трех частей:

1. Простая реализация алгоритма сортировки "пузырька" для сортировки массива mWin.
2. Процедура SortList, которая сортирует список lbNum с помощью того же алгоритма сортировки "пузырька".
3. Пример использования процедуры SortList в обработчике события клика кнопки на форме.

Разбиваем код:

Часть 1: Сортировка массива Код определяет массив mWin со 9 элементами и инициализирует его случайными целыми числами от 0 до 100. Затем он сортирует массив с помощью простой реализации алгоритма сортировки "пузырька".

Сортировочный процесс заключается в переборе массива, поиске максимального элемента в каждом шаге и обмене его с текущим элементом. Это делается с помощью трех переменных: l (индекс), mi (максимум) и d (позиция максимума).

Часть 2: Сортировка списка Процедура SortList принимает список lbNum в качестве входного параметра и сортирует его элементы с помощью того же алгоритма сортировки "пузырька". Процедура перебирает список, сравнивает каждый элемент с последующими и обменивает их, если необходимо.

Часть 3: Пример использования В обработчике события клика кнопки на форме код вызывает процедуру SortList для сортировки элементов в списке ListBox1. Это демонстрирует, как использовать процедуру SortList в практике.

Некоторые примечания к коду:

• Алгоритм сортировки "пузырька" имеет сложность O(n^2), что делает его неэффективным для больших данных. В практике более подходящими являются алгоритмы, такие как Quick Sort или Merge Sort.
• Код использует встроенные функции конвертации строк (StrToInt и IntToStr) для преобразования между строками и целыми числами.
• Код написан в стиле, характерном для более старых версий Delphi, с некоторыми устаревшими синтаксисом и конвенциями. Современный код на Delphi вероятно использовал бы более современный синтаксис и практики программирования.

В целом, код предоставляет простой пример реализации алгоритма сортировки "пузырька" в Pascal для сортировки массива или списка. Однако важно отметить, что этот алгоритм не подходит для больших данных и может быть неэффективен для реальных приложений.

Статья описывает алгоритм сортировки методом Пузырька, реализованный на языке Delphi с использованием случайного доступа к элементам массива для упрощения процесса сортировки.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Сортировка ::