Ошибки в реализации сортировки пузырьком на Delphi

Delphi , Базы данных , Сортировка и Фильтр

Одной из самых простых и известных сортировок является сортировка пузырьком (Bubble Sort). Несмотря на свою простоту, эта сортировка может вызвать ошибки при неправильной реализации. В этой статье мы рассмотрим типичные ошибки при реализации сортировки пузырьком на Delphi и способы их устранения.

Ошибка 1: Неверный порядок выполнения операций

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

Пример неправильной реализации:

program BubbleSortError;
const N = 20;
var
  d: array[1..N] of integer;
  i, j, x: integer;
begin
  randomize;
  for i := 1 to N do
    d[i] := random(100);
  writeln('Before sorting:');
  for i := 1 to N do
    write(d[i], ' ');
  writeln;
  for j := 1 to N - 1 do
  begin
    for i := 1 to N - 1 do
    begin
      write(d[i], ' ');
      if d[i] > d[i + 1] then
      begin
        x := d[i];
        d[i] := d[i + 1];
        d[i + 1] := x;
      end;
    end;
  end;
  writeln('After sorting:');
  for i := 1 to N do
    write(d[i], ' ');
  writeln;
end.

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

Пример правильной реализации:

program BubbleSortCorrect;
const N = 20;
var
  d: array[1..N] of integer;
  i, j, x: integer;
begin
  randomize;
  for i := 1 to N do
    d[i] := random(100);
  writeln('Before sorting:');
  for i := 1 to N do
    write(d[i], ' ');
  writeln;
  for j := 1 to N - 1 do
  begin
    for i := 1 to N - 1 do
    begin
      if d[i] > d[i + 1] then
      begin
        x := d[i];
        d[i] := d[i + 1];
        d[i + 1] := x;
      end;
    end;
  end;
  writeln('After sorting:');
  for i := 1 to N do
    write(d[i], ' ');
  writeln;
end.

Ошибка 2: Неправильное условие выхода из цикла

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

Пример неправильной реализации:

program BubbleSortError2;
const N = 20;
var
  d: array[1..N] of integer;
  i, j, x: integer;
  swapped: boolean;
begin
  randomize;
  for i := 1 to N do
    d[i] := random(100);
  writeln('Before sorting:');
  for i := 1 to N do
    write(d[i], ' ');
  writeln;
  for j := 1 to N - 1 do
  begin
    swapped := false;
    for i := 1 to N - 1 do
    begin
      if d[i] > d[i + 1] then
      begin
        x := d[i];
        d[i] := d[i + 1];
        d[i + 1] := x;
        swapped := true;
      end;
    end;
    if not swapped then
      break;
  end;
  writeln('After sorting:');
  for i := 1 to N do
    write(d[i], ' ');
  writeln;
end.

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

Пример правильной реализации:

program BubbleSortCorrect2;
const N = 20;
var
  d: array[1..N] of integer;
  i, j, x: integer;
begin
  randomize;
  for i := 1 to N do
    d[i] := random(100);
  writeln('Before sorting:');
  for i := 1 to N do
    write(d[i], ' ');
  writeln;
  for j := 1 to N - 1 do
  begin
    for i := 1 to N - 1 do
    begin
      if d[i] > d[i + 1] then
      begin
        x := d[i];
        d[i] := d[i + 1];
        d[i + 1] := x;
      end;
    end;
    if d[j] <= d[j + 1] then
      break;
  end;
  writeln('After sorting:');
  for i := 1 to N do
    write(d[i], ' ');
  writeln;
end.

Вывод

При реализации сортировки пузырьком на Delphi важно правильно

Создано по материалам из источника по ссылке.

Описывается распространенные ошибки при реализации сортировки пузырьком на языке программирования Delphi и пути их решения.

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

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

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