程序里寫(xiě)的是自己用從小到大排序的。
如果要從大到小也很簡(jiǎn)單，自己改一下比較指令就行。
管理員看見(jiàn)了，記的加精，程序?qū)懹凶⑨專(zhuān)�大家都能看懂�?div class="o3l6b6lxzth" id="alert_tpc" style="color:gray;margin-top:30px">[ 此帖被仙居人家在2023-02-02 15:53重新編輯 ]

感謝分享

冒泡程序

精華精華

精華精華

感謝分享，雖然沒(méi)看懂。

謝謝分享。。。。。。。。

程序思路就是相鄰數(shù)依次比較，選出最大數(shù)。
一重循環(huán)從99次比較到1次比較，依次減少，因每一次比較，最大數(shù)排在后面越來(lái)越多，到最后一次只有2個(gè)數(shù)據(jù)比較，
二重循環(huán)執(zhí)行一重循環(huán)99次。每一次選出比較剩下的最大數(shù)。
大概就是這樣，看不明白的話(huà)，看看變址的應(yīng)用，和FOR應(yīng)用。

優(yōu)秀的人到哪都優(yōu)秀！

模擬了一下，有點(diǎn)牛逼。我再好好研究研究   

謝謝大佬

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