寻找文本和冒泡排序达到想要的数字字母顺序

.子程序 牌排序, 文本型
.参数 牌, 文本型
.局部变量 i, 整数型
.局部变量 牌数组, 整数型, , "0"
.局部变量 j, 整数型
.局部变量 t, 整数型
.局部变量 结果牌, 文本型

.计次循环首 (取文本长度 (牌), i)
加入成员 (牌数组, 取牌大小 (取文本中间 (牌, i, 1)))
.计次循环尾 ()
.计次循环首 (取数组成员数 (牌数组), i)
.计次循环首 (取数组成员数 (牌数组), j)
.如果真 (牌数组 [i] ＜ 牌数组 [j])
t ＝ 牌数组 [i]
牌数组 [i] ＝ 牌数组 [j]
牌数组 [j] ＝ t
.如果真结束

.计次循环尾 ()
.计次循环尾 ()
.计次循环首 (取数组成员数 (牌数组), i)
结果牌 ＝ 结果牌 ＋ 取牌名 (牌数组 [i])
.计次循环尾 ()
返回 (结果牌)