【導(dǎo)讀】通過冒泡法升序或降序模式排序數(shù)組。該例程已在博途V15.1環(huán)境下測試通過! (1)升降序排序算法說明: 升降序排列時,冒泡排序算法的運作如下:
(2)OB1中子程序調(diào)用,如下圖所示: (3)子程序變量聲明表,如下圖所示: (4)模式為1為升序,其運行結(jié)果,如下圖所示: (5)模式為0為降序,其運行結(jié)果,如下圖所示: (6)SCL代碼,如下圖所示: (7)SCL代碼(復(fù)制可用) IF #Enable THEN //獲取數(shù)組上限 #L := LOWER_BOUND(ARR := #Array, DIM := 1); //獲取數(shù)組下限 #H := UPPER_BOUND(ARR := #Array, DIM := 1); //冒泡法排序 FOR #i := #L TO #H-1 DO FOR #j := #L TO #H-1-#i DO IF #Mode THEN //升序排列 IF #Array[#j] > #Array[#j + 1] THEN #temp1 := #Array[#j]; #Array[#j] := #Array[#j + 1]; #Array[#j + 1] := #temp1; END_IF; ELSE //降序排列 IF #Array[#j] < #Array[#j + 1] THEN #temp1 := #Array[#j]; #Array[#j] := #Array[#j + 1]; #Array[#j + 1] := #temp1; END_IF; END_IF; END_FOR; END_FOR; END_IF; (8)程序編制注意事項:
|
|