老师们请教下数字从小到大排序怎么写

hatsunemiku · 发表于 2019-1-2 03:47:30

78571272 发表于 2019-1-2 03:34
9-3-5-7-8-2-9-6-1
1-0-7-1-9-1-1-9-1
4-4-3-0-9-3-8-7-2

.版本 2
.支持库 spec

.局部变量文本数组, 文本型, , "0"
.局部变量 n, 整数型
.局部变量文本数组i, 文本型, , "0"
.局部变量文本, 文本型
.局部变量排序后, 文本型, , "0"
.局部变量 i, 整数型

文本数组＝分割文本 (#常量1, #换行符, )  ' 分割文本 (到文本 (读入文件 (“”)), #换行符, )
.计次循环首 (取数组成员数 (文本数组), n)

文本数组i ＝分割文本 (文本数组 [n], “-”, )
数组_排序 (文本数组i)
.计次循环首 (取数组成员数 (文本数组i), i)
      ' 调试输出 (文本数组i )
      .如果 (i ≠ 取数组成员数 (文本数组i))
         文本＝文本＋文本数组i ＋ “-”
      .否则
         文本＝文本＋文本数组i ＋ #换行符
      .如果结束

.计次循环尾 ()
加入成员 (排序后, 文本)
.计次循环尾 ()
.计次循环首 (取数组成员数 (排序后), n)
调试输出 (排序后 [n])
.计次循环尾 ()