仙居人家
我來了。
級別: 網(wǎng)絡(luò)英雄
精華主題: 2 篇
發(fā)帖數(shù)量: 737 個
工控威望: 5418 點
下載積分: 24564 分
在線時間: 1364(小時)
注冊時間: 2016-06-08
最后登錄: 2024-10-26
查看仙居人家的 主題 / 回貼
樓主  發(fā)表于: 2023-02-02 13:06
程序里寫的是自己用從小到大排序的。
如果要從大到小也很簡單，自己改一下比較指令就行。
管理員看見了，記的加精，程序?qū)懹凶⑨�，大家都能看懂�?div class="vxbnxbf" id="alert_tpc" style="color:gray;margin-top:30px">[ 此帖被仙居人家在2023-02-02 15:53重新編輯 ]
附件： 比較大小排序，從小到大排隊.zip (448 K) 下載次數(shù):2087
網(wǎng)站提示: 請不要用迅雷下載附件，容易出錯
本帖最近評分記錄：
  • 下載積分:+1(思考使人進步)
  • 下載積分:+5(加勒比海帶)
  • 下載積分:+1(天天向上學習) 感謝分享！
  • 下載積分:+5(jiangwei) 真誠感謝！
  • 下載積分:+5(langui) 熱心助人！
  • 下載積分:+1(智趣黃sir) 感謝分享！
  • 下載積分:+1(菜鳥至尊.) 感謝分享！
    • 永無止境 !@#$%^&*
    天下風云出我輩，一入江湖歲月催。
    皇圖霸業(yè)談笑中，不勝人間一場醉。
    提劍跨騎揮鬼雨，白骨如山鳥驚飛。
    塵事如潮人如水，只嘆江湖幾人回。
    wu1111bin
    12345
    級別: 略有小成
    精華主題: 0
    發(fā)帖數(shù)量: 60 個
    工控威望: 360 點
    下載積分: 3514 分
    在線時間: 39(小時)
    注冊時間: 2023-04-03
    最后登錄: 2024-10-24
    查看wu1111bin的 主題 / 回貼
    1樓  發(fā)表于: 2023-10-06 15:41
    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;
    ;;