Сортировка массива по алгоритму ShellDelphi , Синтаксис , СортировкаСортировка массива по алгоритму Shell
Оформил: DeeCo { The following procedure sorts an Array with the fast Shell-Sort algorithm. Invented by Donald Shell in 1959, the shell sort is the most efficient of the O(n2) class of sorting algorithms } { Die folgende Prozedur Sortiert ein Array mit dem schnellem Shell-Sort Algorithmus. } Procedure Sort_Shell(var a: array of Word); var bis, i, j, k: LongInt; h: Word; begin bis := High(a); k := bis shr 1;// div 2 while k > 0 do begin for i := 0 to bis - k do begin j := i; while (j >= 0) and (a[j] > a[j + k]) do begin h := a[j]; a[j] := a[j + k]; a[j + k] := h; if j > k then Dec(j, k) else j := 0; end; // {end while] end; // { end for} k := k shr 1; // div 2 end; // {end while} end; Статья Сортировка массива по алгоритму Shell раздела Синтаксис Сортировка может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Сортировка ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |