grip 数组 从小到大排列

数组 从小到大排列

gripsw / declrv
number / mei_mei(999),mei_nm,mei_ij,mei_i,mei_j
&errmod= &contin

mei_nm=6
mei_mei(1)=55
mei_mei(2)=99
mei_mei(3)=66
mei_mei(4)=13
mei_mei(5)=99
mei_mei(6)=33

$$ 将mei_mei()数组 内容重新排序 从小到大排列
ifthen/mei_nm>1
do/mei_1:,mei_i,1,mei_nm-1
do/mei_2:,mei_j,mei_i+1,mei_nm
ifthen/mei_mei(mei_i)>mei_mei(mei_j)
mei_ij=mei_mei(mei_i)
mei_mei(mei_i)=mei_mei(mei_j)
mei_mei(mei_j)=mei_ij
endif
mei_2:
mei_1:
endif
$$ 显示信息
do/mei_3:,mei_i,1,mei_nm
print/mei_mei(mei_i)
mei_3:


end:
halt


_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/