仙居人家
我来了。
级别: 网络英雄
精华主题: 2 篇
发帖数量: 737 个
工控威望: 5418 点
下载积分: 24735 分
在线时间: 1367(小时)
注册时间: 2016-06-08
最后登录: 2024-11-19
查看仙居人家的 主题 / 回贴
楼主  发表于: 2023-02-02 13:06
全看 | 小 中 大
程序里写的是自己用从小到大排序的。
如果要从大到小也很简单，自己改一下比较指令就行。
管理员看见了，记的加精，程序写有注释，大家都能看懂。
[ 此帖被仙居人家在2023-02-02 15:53重新编辑 ]
附件： 比较大小排序，从小到大排队.zip (448 K) 下载次数:2166
网站提示: 请不要用迅雷下载附件，容易出错
本帖最近评分记录：
  • 下载积分:+1(似水流年ol)
  • 下载积分:+1(思考使人进步)
  • 下载积分:+5(加勒比海带)
  • 下载积分:+1(天天向上学习) 感谢分享！
  • 下载积分:+5(jiangwei) 真诚感谢！
  • 下载积分:+5(langui) 热心助人！
  • 下载积分:+1(智趣黄sir) 感谢分享！
    • 永无止境 !@#$%^&*
    天下风云出我辈，一入江湖岁月催。
    皇图霸业谈笑中，不胜人间一场醉。
    提剑跨骑挥鬼雨，白骨如山鸟惊飞。
    尘事如潮人如水，只叹江湖几人回。
    wu1111bin
    12345
    级别: 略有小成
    精华主题: 0
    发帖数量: 60 个
    工控威望: 360 点
    下载积分: 3514 分
    在线时间: 39(小时)
    注册时间: 2023-04-03
    最后登录: 2024-10-24
    查看wu1111bin的 主题 / 回贴
    1楼  发表于: 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;
    ;;