希尔排序算法

winzhi

// Shell's Sort
(*
插入排序，缩小增量排序
把数组元素按下标的一定增量分组，对每组使用直接插入排序算法排序；
随着增量逐渐减少，每组包含的元素越来越多，当增量减至1时，排序结束。
*)

#len := 10;
#gap := 10/2;
#sort_temp := #Sort_IN;

WHILE #gap > 0 DO
    FOR #i := 0 TO #gap - 1 DO
        FOR #j := #i + #gap TO #len - 1 BY #gap DO   // 插入排序
            #k := #j - #gap;
            WHILE #k >= 0 AND ((#Asc_Des AND #sort_temp[#k] > #sort_temp[#k + #gap]) OR (NOT #Asc_Des AND #sort_temp[#k] < #sort_temp[#k + #gap])) DO
                #temp := #sort_temp[#k];
                #sort_temp[#k] := #sort_temp[#k + #gap];
                #sort_temp[#k + #gap] := #temp;
                #k := #k - #gap;
                IF #k < 0 THEN
                    EXIT;
                END_IF;
            END_WHILE;
        END_FOR;
    END_FOR;
    #gap := #gap / 2;    // 增量减半
END_WHILE;

#Sort_OUT := #sort_temp;