易语言数组排序、成员索引

.如果真 (取数组成员数 (参_要排序数组) ＝ 0)
返回 (0)
.如果真结束
.变量循环首 (2, 取数组成员数 (参_要排序数组) × 2, 2, 局_i)
局_i2 ＝ 局_i2 ＋ 1
插入成员 (参_要排序数组, 局_i, 局_i2) ' //记录原数组成员的索引值
.变量循环尾 ()
重定义数组 (参_要排序数组, 真, 取整 (取数组成员数 (参_要排序数组) ÷ 2), 2)
局_总数 ＝ 取数组下标 (参_要排序数组, 1)
.计次循环首 (局_总数, 局_i)
.计次循环首 (局_总数 － 局_i, 局_i2)
.如果真 (参_要排序数组 [局_i2 ＋ 1] [1] ＞ 参_要排序数组 [局_i2] [1])
交换变量 (参_要排序数组 [局_i2 ＋ 1] [1], 参_要排序数组 [局_i2] [1]) ' //对成员数值大到小排序 ，同时处理对应关系的成员索引值
交换变量 (参_要排序数组 [局_i2 ＋ 1] [2], 参_要排序数组 [局_i2] [2])
.如果真结束

.计次循环尾 ()
.计次循环尾 ()