插入排序算法

winzhi

// Insertion Sort
(*
将第一待排序序列第一个元素看做一个有序序列，把第二个元素到最后一个元素当成是未排序序列；
从头到尾依次扫描未排序序列，将扫描到的每个元素插入有序序列的适当位置。
*)
#sort_temp := #Sort_IN;

FOR #i := 2 TO #LEN DO
    #key := #sort_temp[#i];
    #j := #i - 1;
    WHILE (#j >= 1) AND ((#Asc_Des AND #sort_temp[#j] > #key) OR (NOT #Asc_Des AND #sort_temp[#j] < #key)) DO
        // #sort_temp[#j] > #key，升序
        #sort_temp[#j + 1] := #sort_temp[#j];
        #j := #j - 1;
        IF #j = 0 THEN
            EXIT;
        END_IF;
    END_WHILE;
    #sort_temp[#j + 1] := #key;
END_FOR;

#Sort_OUT := #sort_temp;