脑子瓦特了,求帮忙写个小算法

瑾色长安

就我要导入4个数字,怎么判断这个数字是什么类型呢
比如AABB类型的话,就是数字:1122,2233,3344,5566,6677....这种的

AAAB的话: 就比如数字 1112,2223,3335,5551,8882....前面3个是一样的

ABCD的话就是比如:1234   2345 7890 3478  就是四个都是不同的

凌哥

精易模块自己下载论坛的



新建 易程序 5.e (683.67 KB, 下载次数: 4, 售价: 2 枚 精币)

2024-4-26 03:12 上传

点击文件名下载附件


补充内容 (2024-4-26 03:14):
只需要几个循环就行了

958389481

只判断这三个类型吗

五花牛

取第一位和第二位比，不同就是ABCD 相同第二位和第三位比 不同就是 AABB 否则就是AAAB

风度猫

  

变量名	类 型	静态	数组	备 注
局_判断文本	文本型

局_判断文本 ＝ “1122”
如果 (取文本长度 (文本_去重复文本 (局_判断文本)) ＝ 2)
如果 (取文本长度 (文本_去重复文本 (取文本左边 (局_判断文本, 2))) ＝ 1)
调试输出 (“AABB”)
调试输出 (“ABAB”)

调试输出 (“ABCD”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 局_判断文本, 文本型<br /> <br /> 局_判断文本 ＝ “1122”<br /> .如果 (取文本长度 (文本_去重复文本 (局_判断文本)) ＝ 2)<br />     .如果 (取文本长度 (文本_去重复文本 (取文本左边 (局_判断文本, 2))) ＝ 1)<br />         调试输出 (“AABB”)<br />     .否则<br />         调试输出 (“ABAB”)<br />     .如果结束<br /> <br /> .否则<br />     调试输出 (“ABCD”)

东山小道童

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
a	文本型
转字节集	字节集
i	整数型

转字节集 ＝ 到字节集 (编辑框1.内容)
如果真 (转字节集 [1] ＝ 转字节集 [2] 且 转字节集 [2] ＝ 转字节集 [3])
调试输出 (“AAAB”)
如果真 (转字节集 [1] ＝ 转字节集 [2] 且 转字节集 [3] ＝ 转字节集 [4])
调试输出 (“AABB”)
如果真 (转字节集 [1] ≠ 转字节集 [2] 且 转字节集 [2] ≠ 转字节集 [3])
调试输出 (“abcd”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 a, 文本型<br /> .局部变量 转字节集, 字节集<br /> .局部变量 i, 整数型<br /> <br /> 转字节集 ＝ 到字节集 (编辑框1.内容)<br /> .如果真 (转字节集 [1] ＝ 转字节集 [2] 且 转字节集 [2] ＝ 转字节集 [3])<br />     调试输出 (“AAAB”)<br /> .如果真结束<br /> .如果真 (转字节集 [1] ＝ 转字节集 [2] 且 转字节集 [3] ＝ 转字节集 [4])<br />     调试输出 (“AABB”)<br /> .如果真结束<br /> .如果真 (转字节集 [1] ≠ 转字节集 [2] 且 转字节集 [2] ≠ 转字节集 [3])<br />     调试输出 (“abcd”)<br /> .如果真结束

风度猫

  

变量名	类 型	静态	数组	备 注
局_判断文本	文本型

局_判断文本 ＝ “1122”
如果 (取文本长度 (文本_去重复文本 (局_判断文本)) ＝ 2)
如果 (取文本长度 (文本_去重复文本 (取文本左边 (局_判断文本, 3))) ＝ 1)
调试输出 (“AAAB”)
如果 (取文本长度 (文本_去重复文本 (取文本左边 (局_判断文本, 2))) ＝ 1)
调试输出 (“AABB”)
调试输出 (“ABAB”)


调试输出 (“ABCD”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 局_判断文本, 文本型<br /> <br /> 局_判断文本 ＝ “1122”<br /> .如果 (取文本长度 (文本_去重复文本 (局_判断文本)) ＝ 2)<br />     .如果 (取文本长度 (文本_去重复文本 (取文本左边 (局_判断文本, 3))) ＝ 1)<br />         调试输出 (“AAAB”)<br />     .否则<br />         .如果 (取文本长度 (文本_去重复文本 (取文本左边 (局_判断文本, 2))) ＝ 1)<br />             调试输出 (“AABB”)<br />         .否则<br />             调试输出 (“ABAB”)<br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .否则<br />     调试输出 (“ABCD”)

刚的漏了个AAAB

fire9

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
a	整数型
b	整数型
c	整数型
d	整数型
arr	整数型		0

a ＝ 到整数 (编辑框1.内容)
b ＝ 到整数 (编辑框2.内容)
c ＝ 到整数 (编辑框3.内容)
d ＝ 到整数 (编辑框4.内容)
加入成员 (arr, a)
加入成员 (arr, b)
加入成员 (arr, c)
加入成员 (arr, d)
判断 (arr [1] ＝ arr [2] 且 arr [3] ＝ arr [4] 且 arr [1] ≠ arr [3])
调试输出 (“AABB类型”)
判断 (arr [1] ＝ arr [2] 且 arr [1] ＝ arr [3] 且 arr [1] ≠ arr [4])
调试输出 (“AAAB类型”)
判断 (arr [1] ≠ arr [2] 且 arr [3] ≠ arr [4] 且 arr [2] ≠ arr [4] 且 arr [1] ≠ arr [4])
调试输出 (“ABCD类型”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 c, 整数型<br /> .局部变量 d, 整数型<br /> .局部变量 arr, 整数型, , "0"<br /> <br /> a ＝ 到整数 (编辑框1.内容)<br /> b ＝ 到整数 (编辑框2.内容)<br /> c ＝ 到整数 (编辑框3.内容)<br /> d ＝ 到整数 (编辑框4.内容)<br /> <br /> 加入成员 (arr, a)<br /> 加入成员 (arr, b)<br /> 加入成员 (arr, c)<br /> 加入成员 (arr, d)<br /> <br /> .判断开始 (arr [1] ＝ arr [2] 且 arr [3] ＝ arr [4] 且 arr [1] ≠ arr [3])<br />     调试输出 (“AABB类型”)<br /> .判断 (arr [1] ＝ arr [2] 且 arr [1] ＝ arr [3] 且 arr [1] ≠ arr [4])<br />     调试输出 (“AAAB类型”)<br /> .判断 (arr [1] ≠ arr [2] 且 arr [3] ≠ arr [4] 且 arr [2] ≠ arr [4] 且 arr [1] ≠ arr [4])<br />     调试输出 (“ABCD类型”)<br /> .默认<br /> <br /> .判断结束

fire9

11111111111111

fire9

好像被吞了评论。。