求大神写个例子，刚刚忘记补充金币了

KiaPol · 发表于 2023-12-17 23:15:27

三种文本类型：
1: a,序号1|a,序号2|b,序号3|b,序号4
2: a,序号1|b,序号2|c,序号3|c,序号4
3: a,序号1|b,序号2|c,序号3|b,序号4
4: a,序号1|b,序号2|c,序号3|d,序号4

条件1：四种文本随机出现
条件2：分割成数组
条件3：判断是否有重复字
条件4：如果有重复字，赋值变量并且输出“有重复字，：（重复字）”
条件5：如果有重复字，例如aabb，走到a2输出重复字，并且输出a1的序号，例如a1b2c3b4，走到b2输出：重复字为：b,序号：2

左强 · 发表于 2023-12-17 23:15:28

.版本 2
.支持库 spec

.程序集程序集1

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量文本内容, 文本型
.局部变量文本数组1, 文本型, , "0"
.局部变量随机数, 整数型
.局部变量随机内容, 文本型
.局部变量文本数组2, 文本型, , "0"
.局部变量 i, 整数型
.局部变量序号数组1, 文本型, , "0"
.局部变量 j, 整数型
.局部变量局_当前序号, 整数型
.局部变量序号数组2, 文本型, , "0"

置随机数种子 ()
文本内容＝ “a,序号1|a,序号2|b,序号3|b,序号4;a,序号1|b,序号2|c,序号3|c,序号4;a,序号1|b,序号2|c,序号3|b,序号4;a,序号1|b,序号2|c,序号3|d,序号4”
文本数组1 ＝分割文本 (文本内容, “;”, )
随机数＝取随机数 (1, 取数组成员数 (文本数组1))
调试输出 (随机数)

随机内容＝文本数组1 [随机数]
调试输出 (“随机到”, 随机内容)

文本数组2 ＝分割文本 (随机内容, “|”, )
.计次循环首 (取数组成员数 (文本数组2), i)
序号数组1 ＝分割文本 (文本数组2 [i], “,”, )
j ＝ i ＋ 1
.判断循环首 (j ≤ 取数组成员数 (文本数组2))
      序号数组2 ＝分割文本 (文本数组2 [j], “,”, )
      .如果真 (序号数组1 [1] ＝序号数组2 [1])
         调试输出 (“重复”, 序号数组1 [1], “序号”, 序号数组1 [2])
         跳出循环 ()  ' 后面如果还要判断重复则不跳
      .如果真结束
      j ＝ j ＋ 1
.判断循环尾 ()
.计次循环尾 ()

返回 (0)  ' 可以根据您的需要返回任意数值

tiller · 发表于 2023-12-18 11:56:18

题目看得有点懵，我的理解

e.e (4.13 KB, 下载次数: 0)

		自动登录	找回密码
密码			注册

[完成] 求大神写个例子，刚刚忘记补充金币了

最佳答案

评分