//冒泡排序算法
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;  
    

引用

引用第1樓夢雨天涯于2022-03-23 23:07發表的  :
大佬這個最后怎么輸出到D地址呢

冒泡排序，就是將一組數列按照從大到小或者從小到大的順序重新排列
現在最后排列好的數據還在數組wData里面，要賦值到D，之間加一個循環賦值就好

引用

引用第2樓胡志立于2022-03-24 10:03發表的  :
大佬，看不懂

冒泡排序，一種基本的數值排序方法，程序中是對數值進行從大到小排序。
首先，依次將wData[0]中的數值與后面的wData[1...9]中數值相比較，如果后面的數值大，就將其與wData[0]中的數值交換。一個循環下來，就能保證wData[0]中的數組為最大值；
然后，依次將wData[1]中的數值與后面的wData[2...9]中數值相比較，如果后面的數值大，就將其與wData[1]中的數值交換。這樣就能保證wData[1]中的數值為wData[1...9]中的最大值；。。。最后，比較wData[8]與wData[9]，如果wData[9]大，就將其與wData[8]中的數值交換。全部循環完，數組wData中的數值就按照從大到小排序好了。