Реализация сортировки Шелла

[beginner]

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

Кто-нибудь сможет помочь выполнить эту небольшую часть моей программы. Могу выслать на мейл делфи-проект программы.

PS Уважаемый модератор, переместите пожалуйста тему в соответсвующий раздел. Поздно заметил о его существовании.

//Да ничего, бывает. Уже перемещено.

PPS Залил наработанное - помогите подредактировать сортировку, чтобы заработала! Буду вам признателен.

[beginner]

Срочно нужна помощь! Горю с программой...

Все добавил. Спасибо, что сообщили...

[Umen]

Я такого ещё не видел - просишь помощи, а на архив с программой пароль поставил

[zetrix]

Мда.. Значит так помощь нужна...
ЗЫ: Тратить 6 часов на взлом пароля мне не охота.

[beginner]

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

[-=Domestos=-]

Вот тебе сортировка Шелла:

procedure Shall;
Var d, i, t : integer;
k : boolean; { пpизнак пеpестановки }
begin
d:=N div 2; { начальное значение интеpвала }
while d>0 do begin { цикл с yменьшением интеpвала до 1 }
{ пyзыpьковая соpтиpовка с интеpвалом d }
k:=true;
while k do begin { цикл, пока есть пеpестановки }
k:=false;
for i:=1 to N-d do begin
{ сpавнение эл-тов на интеpвале d }
if A[i]>A[i+d] then
begin
t:=A[i];
A[i]:=A[i+d];
A[i+d]:=t; { пеpестановка }
k:=true; { пpизнак пеpестановки }
end;
end;
end;
d:=d div 2; { yменьшение интеpвала }
end;

[beginner]

Спасибо, я это нашел..делал по этому же алгоритму, но вот что-то не работает - наверное напутал что-то..сижу вот не могу сообразить.

[Tadas]

Сообщение от -=Domestos=-

Вот тебе сортировка Шелла:

procedure Shall;
Var d, i, t : integer;
k : boolean; { пpизнак пеpестановки }
begin
d:=N div 2; { начальное значение интеpвала }
while d>0 do begin { цикл с yменьшением интеpвала до 1 }
{ пyзыpьковая соpтиpовка с интеpвалом d }
k:=true;
while k do begin { цикл, пока есть пеpестановки }
k:=false;
for i:=1 to N-d do begin
{ сpавнение эл-тов на интеpвале d }
if A[i]>A[i+d] then
begin
t:=A[i];
A[i]:=A[i+d];
A[i+d]:=t; { пеpестановка }
k:=true; { пpизнак пеpестановки }
end;
end;
end;
d:=d div 2; { yменьшение интеpвала }
end;

Я конечно может не прав, но по моему это не сортировка Шелла, а какой то гибрид пузырьковой... Так как сортировка Шелла использует метод вставок.