选择排序算法

winzhi

// Selection Sort
(*
首先在未排序序列中找到最小(大)元素，存放到排序序列的起始位置；
再从剩余未排序元素中继续寻找最小(大)元素，然后放到已排序序列的末尾；
重复第二步，直到所有元素均排序完毕。
*)
#sort_temp := #Sort_IN;

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

#Sort_OUT := #sort_temp;