yzdz66
级别: 探索解密
精华主题: 0
发帖数量: 60 个
工控威望: 162 点
下载积分: 640 分
在线时间: 51(小时)
注册时间: 2016-09-23
最后登录: 2024-09-13
查看yzdz66的 主题 / 回贴
楼主  发表于: 2022-03-23 22:40
图片:
//冒泡排序算法
IF SM402 THEN
  wData[0]:=50;
  wData[1]:=41;
  wData[2]:=23;
  wData[3]:=1;
  wData[4]:=58;
  wData[5]:=77;
  wData[6]:=42;
  wData[7]:=3;
  wData[8]:=9;
  wData[9]:=99;
END_IF;

IF bLabel2 THEN
   FOR wi:=0 TO 9 BY 1 DO  
      // wj:=wi+1;
       FOR wj:=wi+1 TO 9 BY 1 DO
         IF wData[wi]<wData[wj] THEN
             wdata1:=wData[wi];
             wData[wi]:=wData[wj];
             wData[wj]:=wdata1;
         END_IF;
       END_FOR;
   END_FOR;
END_IF;  
    
myjyweixin
级别: 探索解密
精华主题: 0
发帖数量: 21 个
工控威望: 192 点
下载积分: 351 分
在线时间: 748(小时)
注册时间: 2007-06-19
最后登录: 2024-11-04
查看myjyweixin的 主题 / 回贴
1楼  发表于: 2024-01-03 15:52
简洁,明了!