Сортировка Шелла (Седжвик)

@exgaming · Регистрация: 01.11.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте, помогите доработать алгоритм сортировки методом Шелла, здесь вібор длині шага идет делением на 2, а мне нужно сделать методом Седжвика

Pascal

procedure TForm1.Sort;
var krok, i, j, buffer: integer;
 
begin
    krok := count div 2;
    
    while krok > 0 do
    begin
    
    for i := 0 to count - krok do
    begin
              while (j >= 0) and (P[j] > P[j+krok]) do
        begin
                buffer := P[j];
                P[j] := P[j+krok];
                P[j+krok] := buffer;
 
                if j > krok then
                     j := j - krok
                else
                    j := 0;
            end;
        end;
    krok:= krok div 2;
end;

Где count - кол-во элементов массива, а P - сам массив

Добавлено через 57 минут
помогите пожалуйста

Добавлено через 3 часа 53 минуты
Попробовал код из С++ перевести, получилось так что шаги очень большие ( десятизначные)

	30.09.2013, 23:20