看你们比较闲蛋疼，给你们布置一个作业....

Suky

  

子程序名	返回值类型	公开	备 注
子程序1
参数名	类 型	参考	可空	数组	备 注
P_文本数组	文本型
P_长的在前	逻辑型				为真 文本长度从大到小排列，否则从小到大

变量名	类 型	静态	数组	备 注
n	整数型
i	整数型

如果真 (P_长的在前)
计次循环首 (取数组成员数 (P_文本数组) － 1, n)
计次循环首 (取数组成员数 (P_文本数组) － n, i)
如果真 (取文本长度 (P_文本数组 [i]) ＜ 取文本长度 (P_文本数组 [i ＋ 1]))
交换变量 (P_文本数组 [i], P_文本数组 [i ＋ 1])

计次循环尾 ()
计次循环尾 ()
返回 ()

计次循环首 (取数组成员数 (P_文本数组) － 1, n)
计次循环首 (取数组成员数 (P_文本数组) － n, i)
如果真 (取文本长度 (P_文本数组 [i]) ＞ 取文本长度 (P_文本数组 [i ＋ 1]))
交换变量 (P_文本数组 [i], P_文本数组 [i ＋ 1])

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

.版本 2<br /> <br /> .子程序 子程序1<br /> .参数 P_文本数组, 文本型, 参考 数组<br /> .参数 P_长的在前, 逻辑型, , 为真 文本长度从大到小排列，否则从小到大<br /> .局部变量 n, 整数型<br /> .局部变量 i, 整数型<br /> <br /> .如果真 (P_长的在前)<br />     .计次循环首 (取数组成员数 (P_文本数组) － 1, n)<br />         .计次循环首 (取数组成员数 (P_文本数组) － n, i)<br />             .如果真 (取文本长度 (P_文本数组 <i>) ＜ 取文本长度 (P_文本数组 [i ＋ 1]))<br />                 交换变量 (P_文本数组 <i>, P_文本数组 [i ＋ 1])<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />     .计次循环尾 ()<br />     返回 ()<br /> .如果真结束<br /> <br /> .计次循环首 (取数组成员数 (P_文本数组) － 1, n)<br />     .计次循环首 (取数组成员数 (P_文本数组) － n, i)<br />         .如果真 (取文本长度 (P_文本数组 <i>) ＞ 取文本长度 (P_文本数组 [i ＋ 1]))<br />             交换变量 (P_文本数组 <i>, P_文本数组 [i ＋ 1])<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()

补充内容 (2023-7-15 17:45):
补充一句，我不闲

笨来无一悟

等下试着挑战一下楼上的大佬们 看看能不能研究一个效率更高的算法

笨来无一悟

  

子程序名	返回值类型	公开	备 注
文本长度排序
参数名	类 型	参考	可空	数组	备 注
原文本	文本型
短到长	逻辑型

变量名	类 型	静态	数组	备 注
L	整数型
A	整数型
B	整数型
长度乱序	整数型		0
长度排序	整数型		0

L ＝ 取数组成员数 (原文本)
重定义数组 (长度乱序, 假, L)
计次循环首 (L, A)
长度乱序 [A] ＝ 取文本长度 (原文本 [A])
计次循环尾 ()
长度排序 ＝ 长度乱序
数组排序 (长度排序, 短到长)
计次循环首 (L, A)
计次循环首 (L － A, B)
如果真 (长度排序 [A] ＝ 长度乱序 [A ＋ B])
交换变量 (长度乱序 [A], 长度乱序 [A ＋ B])
交换变量 (原文本 [A], 原文本 [A ＋ B])

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

.版本 2<br /> <br /> .子程序 文本长度排序<br /> .参数 原文本, 文本型, 参考 数组<br /> .参数 短到长, 逻辑型<br /> .局部变量 L, 整数型<br /> .局部变量 A, 整数型<br /> .局部变量 B, 整数型<br /> .局部变量 长度乱序, 整数型, , "0"<br /> .局部变量 长度排序, 整数型, , "0"<br /> <br /> L ＝ 取数组成员数 (原文本)<br /> 重定义数组 (长度乱序, 假, L)<br /> .计次循环首 (L, A)<br />     长度乱序 [A] ＝ 取文本长度 (原文本 [A])<br /> .计次循环尾 ()<br /> 长度排序 ＝ 长度乱序<br /> 数组排序 (长度排序, 短到长)<br /> .计次循环首 (L, A)<br />     .计次循环首 (L － A, B)<br />         .如果真 (长度排序 [A] ＝ 长度乱序 [A ＋ B])<br />             交换变量 (长度乱序 [A], 长度乱序 [A ＋ B])<br />             交换变量 (原文本 [A], 原文本 [A ＋ B])<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()

补充内容 (2023-7-16 01:26):
交换变量的后面加一句 :  跳出循环()

Suky

@笨来无一悟 有没有一种可能，我就是只想简单丢出这么几行代码，优化的事情交给他自己搞定？