西门子博图冒泡排序程序块
- 前言
- 程序
前言
设计中涉及到排序,西门子本身没有找到有排序的指令,按冒泡排序的原理写了一个小块。
程序
整体程序如图
#i_tmp := #size - 2;FOR #i := 0 TO #i_tmp BY 1 DO#j_tmp := #size - #i - 2;FOR #j := 0 TO #j_tmp BY 1 DOIF #arr[#j] > #arr[#j + 1] THEN#tmp := #arr[#j];#arr[#j] := #arr[#j + 1];#arr[#j + 1] := #tmp;END_IF;END_FOR;
END_FOR;#MaxValue := #arr[#i_tmp + 1];