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

    // 定义数组,存储100个数
    VAR
        数组 : ARRAY[1..100] OF INT; // 定义一个名为“数组”的数组,用于存储100个整数
        临时变量 : INT; // 用于交换时的临时变量
        外层循环索引 : INT; // 外层循环变量
        内层循环索引 : INT; // 内层循环变量
    END_VAR

    // 初始化数组,这里以示例值填充,实际应用中可能需要从外部输入或其他方式获取
    FOR 外层循环索引 := 1 TO 100 DO
        数组[外层循环索引] := RANDOM(); // 使用随机数填充数组,实际应用中可能需要其他方式
    END_FOR;

    // 冒泡排序算法,从小到大排序
    FOR 外层循环索引 := 1 TO 99 DO // 外层循环,控制比较的轮数
        FOR 内层循环索引 := 1 TO 100 - 外层循环索引 DO // 内层循环,控制每轮比较的次数
            IF 数组[内层循环索引] > 数组[内层循环索引 + 1] THEN // 如果当前元素比下一个元素大,则交换
                临时变量 := 数组[内层循环索引]; // 交换前,将当前元素值赋给临时变量
                数组[内层循环索引] := 数组[内层循环索引 + 1]; // 将下一个元素值赋给当前元素
                数组[内层循环索引 + 1] := 临时变量; // 将临时变量的值赋给下一个元素
            END_IF;
        END_FOR;
    END_FOR;

    // 排序完成后,输出结果,这里仅示例输出第一个元素,实际应用中可能需要输出全部或部分元素
    // 输出第一个元素,作为排序完成的示例
    数组[1] := 数组[1]; // 这里仅为示例,实际应用中可能不需要这行代码
    ```
    三人行必有我师焉,择其善者而从之 ,学而不思则罔,思而不学则殆