Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 787

•  TDictionary Custom Sort  5 902

•  Fast Watermark Sources  5 700

•  3D Designer  8 473

•  Sik Screen Capture  6 036

•  Patch Maker  6 480

•  Айболит (remote control)  6 472

•  ListBox Drag & Drop  5 336

•  Доска для игры Реверси  94 940

•  Графические эффекты  6 677

•  Рисование по маске  5 797

•  Перетаскивание изображений  4 859

•  Canvas Drawing  5 235

•  Рисование Луны  4 958

•  Поворот изображения  4 504

•  Рисование стержней  3 186

•  Paint on Shape  2 431

•  Генератор кроссвордов  3 306

•  Головоломка Paletto  2 619

•  Теорема Монжа об окружностях  3 402

•  Пазл Numbrix  2 248

•  Заборы и коммивояжеры  2 908

•  Игра HIP  1 878

•  Игра Go (Го)  1 792

•  Симулятор лифта  2 130

•  Программа укладки плитки  1 857

•  Генератор лабиринта  2 296

•  Проверка числового ввода  1 983

•  HEX View  2 293

•  Физический маятник  1 956

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Алгоритим быстрой сортировки массива



{ **** UBPFD *********** by delphibase.endimus.com ****
>> Алгоритим быстрой сортировки массива

Функция, показывающая пример реализации алгоритма быстрой сортировки
целочисленного массива. Легко может быть переработан для массивов
другого типа или объектов типа TList, TStringList и т. д.

Используемые параметры
IntArray - указатель на первый элемент массива. ВАЖНО! Индекс первого элемента
массива обязательно должен быть нулевым.

Low - минимальный индекс элемента массива
High - максимальный индекс элемента массива

Зависимости: нет
Автор:       Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург
Copyright:   http://www.rsdn.ru/article/?alg/bintree/sort.xml
Дата:        21 мая 2002 г.
***************************************************** }

type
  PIntArray = ^TIntArray;
  TIntArray = array[0..0] of Integer;

procedure QuickSort(IntArray: PIntArray; Low, High: Integer);

  procedure Swap(Index1, Index2: Integer);
  var
    N: Integer;
  begin
    N := IntArray[Index1];
    IntArray[Index1] := IntArray[Index2];
    IntArray[Index2] := N;
  end;

var
  Mid: Integer;
  Item: Integer;
  ScanUp, ScanDown: Integer;
begin
  // Здесь реализована сортировка по убыванию
  // Для реализации по возрастанию замените операции
  // сравнения на приведённые в комментариях
  if High - Low <= 0 then
    exit;
  if High - Low = 1 then
  begin
    if IntArray[High] {<} > IntArray[Low] then
      Swap(Low, High);
    Exit;
  end;
  Mid := (High + Low) shr 1;
  Item := IntArray[Mid];
  Swap(Mid, Low);
  ScanUp := Low + 1;
  ScanDown := High;
  repeat
    while (ScanUp <= ScanDown) and (IntArray[ScanUp] {<=} >= Item) do
      Inc(ScanUp);
    while (IntArray[ScanDown] {>} < Item) do
      Dec(ScanDown);
    if (ScanUp < ScanDown) then
      Swap(ScanUp, ScanDown);
  until (ScanUp >= ScanDown);
  IntArray[Low] := IntArray[ScanDown];
  IntArray[ScanDown] := Item;
  if (Low < ScanDown - 1) then
    QuickSort(IntArray, Low, ScanDown - 1);
  if (ScanDown + 1 < High) then
    QuickSort(IntArray, ScanDown + 1, High);
end;

Пример использования:

procedure TForm1.Button1Click(Sender: TObject);
var
  A: array[0..10] of Integer;
  i: Integer;
begin
  Randomize;
  for i := 0 to 10 do
    A[i] := Random(1000);
  QuickSort(@A, 0, 10);
  for i := 0 to 10 do
    Memo1.Lines.Add(IntToStr(A[i]));
end;







Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте