|
发表于 2019-11-20 16:23:17
|
显示全部楼层
山东省泰安市
.版本 2
.子程序 子程序1, , 公开
.局部变量 文本1, 文本型
.局部变量 文本2, 文本型
.局部变量 分割1, 文本型, , "1"
.局部变量 分割2, 文本型, , "1"
.局部变量 记录数1, 整数型
.局部变量 记录数2, 整数型
.局部变量 n, 整数型
.局部变量 X, 文本型, , "1"
.局部变量 计数, 整数型
.局部变量 计数1, 整数型
.局部变量 新文本, 文本型
分割1 = 分割文本 (文本1, #换行符, )
分割2 = 分割文本 (文本2, #换行符, )
记录数1 = 取数组成员数 (分割1)
记录数2 = 取数组成员数 (分割2)
计数 = 1
.计次循环首 (记录数1, n)
X = 分割文本 (分割1 [n], “----”, )
.如果真 (取数组成员数 (X) ≤ 3 且 取数组成员数 (X) > 1)
.如果真 (计数 ≤ 记录数2 且 记录数2 > 0)
分割1 [n] = 分割1 [n] + “----” + 分割2 [计数]
计数1 = 计数1 + 1
.如果真 (计数1 = 500)
计数 = 计数 + 1
.如果真结束
.如果真结束
.如果真结束
新文本 = 新文本 + 分割1 [n] + #换行符
.计次循环尾 ()
返回 ()
|
|