91美女视频-亚洲免费观看视频-欧美a∨-久热在线视频-日韩黄网站-成av人片在线观看www-久操综合-超碰av在线播放-性欧美欧美巨大69-婷婷二区-av男人的天堂网-中文字幕一区在线播放-玖草在线观看-国产网址在线观看-免费在线不卡av

程序里寫的是自己用從小到大排序的。
如果要從大到小也很簡單，自己改一下比較指令就行。
管理員看見了，記的加精，程序寫有注釋，大家都能看懂。

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;
;;