|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
25.11.2008, 21:37 | #11 |
Пользователь
Регистрация: 24.10.2008
Сообщений: 32
|
точно я не заметил.
думал 2 любые сортировеи. вот шелла: procedure Shell(var item: DataArray; count:integer); const t = 5; var i, j, k, s, m: integer; h: array[1..t] of integer; x: DataItem; begin h[1]:=9; h[2]:=5; h[3]:=3; h[4]:=2; h[5]:=1; for m := 1 to t do begin k:=h[m]; s:=-k; for i := k+1 to count do begin x := item[i]; j := i-k; if s=0 then begin s := -k; s := s+1; item[s] := x; end; while (x<item[j]) and (j<count) do begin item[j+k] := item[j]; j := j-k; end; item[j+k] := x; end; end; end; а вот те и шакер: type myArray = array[0..20] of integer; procedure shakerSort( var arr : myArray; const length : integer ); var j, k, L, R : integer; item : integer; begin L := 1; R := length - 1; k := length - 1; repeat for j := R downto L do begin if arr[j-1] > arr[j] then begin item := arr[j-1]; arr[j-1] := arr[j]; arr[j] := item; k := j; end; end; L := k + 1; for j := L to R do begin if arr[j-1] > arr[j] then begin item := arr[j-1]; arr[j-1] := arr[j]; arr[j] := item; k:=j; end; end; R := k-1; until L < R; end; если было лень лазать в книгах мог просто найти в нете!
___________________________________ ____________
ВОН ВЫГНАТЬ ПРОКЛЯТЫХ СПАММЕРОВ! Последний раз редактировалось Alex21; 26.11.2008 в 08:56. |
11.03.2012, 12:18 | #12 |
Регистрация: 13.02.2012
Сообщений: 5
|
Тут можно скачать Сортировка Шелла http://algorithmlib.org/sort_shella и Шейкер сортировка http://algorithmlib.org/sort_shik
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сортировка шейкер-пузырьком (Delphi) | Biker29 | Помощь студентам | 6 | 25.08.2013 12:16 |
Шейкер-сортировка пузырьком | Biker29 | Общие вопросы Delphi | 2 | 11.12.2010 22:56 |
1. Сортировка Шелла по убыванию 2. Сортировка вставками по убыванию | Arkuz | Помощь студентам | 1 | 25.09.2007 17:16 |