03.04.2008, 18:34
|
|
Участник форума
Регистрация: 26.02.2006
Сообщений: 209
Провел на форуме:
2418438
Репутация:
93
|
|
разбираюсь с сортировкой шелла, но чего то не получается у меня проверить все элементы находящиеся на одинаковом расстоянии:
Вот код навоял, типа проверка первого элемента с элементами через расстояния:
g1 := kolvo div 2; //расстояние между элементами
repeat
if mass[j1]<=mass[j1+g1] then
begin
end
else
begin
Tmp1 := mass[j1];
mass[j1] := mass[j1+g1];
mass[j1+g1] := Tmp1;
end;
j1:=j1+g1;
until (g1<kolvo);
|
|
|