久久99精品视频一区97_亚洲a免费在线观看_美欧日韩av无码一区二区_国产精品视频123_东京热一本无码av_99精品国产闺蜜国产在线闺蜜

程序里寫的是自己用從小到大排序的。
如果要從大到小也很簡單，自己改一下比較指令就行。
管理員看見了，記的加精，程序?qū)懹凶⑨專�大家都能看懂�?div class="bzjhrh9f5x7n" id="alert_tpc" style="color:gray;margin-top:30px">[ 此帖被仙居人家在2023-02-02 15:53重新編輯 ]

BMOV(TRUE,D100,K20,D200);
D0:=K20;
  
FOR D2 := 0 TO 19 BY 1 DO
    Z0:=K0;
    Z1:=K1;
    SUBP(TRUE,D0, K1, D1);
    FOR D3 := 1 TO D1 BY 1 DO
        IF   D200Z0>D200Z1  THEN
            XCH(TRUE,D200Z0,D200Z1);
        END_IF;
        INC(TRUE,Z0);
        INC(TRUE,Z1);
    END_FOR;
    DEC(TRUE,D0);
END_FOR;
;;