文本_按长度排序

笨来无一悟

解答 看你们比较闲蛋疼，给你们布置一个作业....https://bbs.125.la/forum.php?mod=viewthread&tid=14789294
(出处: 精易论坛)

  

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

变量名	类 型	静态	数组	备 注
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])
跳出循环 ()
' 时间复杂度 (N ÷ 2) × (N ＋ 1)
计次循环尾 ()
计次循环尾 ()

.版本 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 />         ' 时间复杂度 (N ÷ 2) × (N ＋ 1)<br />     .计次循环尾 ()<br /> .计次循环尾 ()

hxdqdqp

很给力，YYDS~

wuqingg

支开感享

已注销571294

不错不错

一指温柔

感谢分享

亿万

        支持开源~！感谢分享

bianyuan456

已经顶贴，感谢您对论坛的支持！

ytbihay

6666666666666666

一指温柔

支持开源~！感谢分享

luckydragon

支持大佬