“下标”为数组变量,当下标为0时,数组2[下标]表示数组2[0],为1时表示数组2[1]以此类推。循环记录1和循环记录2为FOR循环要使用的变量,记录当前循环到第几次。交换中转用于交换时临时存储中转数据。程序编写如下:黑色字体为程序部分,//后红色字体部分为注释。#数组2 := #数组1;// 将数组1赋值给数组2,用数组2去进行排序,这样可以保留数组1中数据的完整性。FOR #循环记录1 := 0 TO 8 DO//与Zui下面END_FOR配对,表示从第0次开始到第8次结束,总共循环9次。 FOR#循环记录2 := 0 TO 8 DO//与倒数第二个END_FOR配对,表示从第0次开始到第8次结束,总共循环9次。 IF#数组2[#下标] < #数组2[#下标 + 1] THEN//如果前一个数小于后一个则交换。 #交换中转:= #数组2[#下标];//先将数组2[下标]赋值给交换中转变量。 #数组2[#下标]:=#数组2[#下标+ 1];//再将数组2[下标+1]赋值给数组2[#下标] #数组2[#下标+ 1] := #交换中转; //再将交换中转赋值给数组2[#下标+1],这样就实现了数组2[下标]与数组2[下标+1]交换。 END_IF; #下标:= #下标 + 1;//将下标偏移一位,实现下一组比较 END_FOR; #下标:=0;//比完一轮后跳出内循环,将下标清零重头再来下一轮比较END_FOR;完整程序如下图所示: