数字牌分析 判断4个3个2个的数字

zl229827

比如333344446669910 不白嫖 有大神来一个吧

houtian

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
局_文本	文本型
局_数组1	整数型		10
局_数组2	文本型		4
i	整数型
局_数值	整数型
局_数字	文本型
局_结果	文本型

局_文本 ＝ “333344446669910”
计次循环首 (取文本长度 (局_文本), i)
局_数值 ＝ 到整数 (取文本中间 (局_文本, i, 1))
如果真 (局_数值 ＝ 0)
局_数值 ＝ 10
局_数组1 [局_数值] ＝ 局_数组1 [局_数值] ＋ 1
计次循环尾 ()
计次循环首 (10, i)
局_数值 ＝ 局_数组1 [i]
如果真 (局_数值 ＜ 2 或 局_数值 ＞ 4)
到循环尾 ()
如果 (i ＝ 10)
局_数字 ＝ “0”
局_数字 ＝ 到文本 (i)
局_数组2 [局_数值] ＝ 局_数组2 [局_数值] ＋ 局_数字 ＋ “,”
计次循环尾 ()
变量循环首 (2, 4, 1, i)
局_结果 ＝ 局_结果 ＋ 到文本 (i) ＋ “个的数字为:”
如果 (局_数组2 [i] ＝ “”)
局_数组2 [i] ＝ “空”
局_数组2 [i] ＝ 取文本左边 (局_数组2 [i], 取文本长度 (局_数组2 [i]) － 1)
局_结果 ＝ 局_结果 ＋ 局_数组2 [i] ＋ #换行符
变量循环尾 ()
调试输出 (局_结果)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .局部变量 局_文本, 文本型<br /> .局部变量 局_数组1, 整数型, , "10"<br /> .局部变量 局_数组2, 文本型, , "4"<br /> .局部变量 i, 整数型<br /> .局部变量 局_数值, 整数型<br /> .局部变量 局_数字, 文本型<br /> .局部变量 局_结果, 文本型<br /> <br /> 局_文本 ＝ “333344446669910”<br /> .计次循环首 (取文本长度 (局_文本), i)<br />     局_数值 ＝ 到整数 (取文本中间 (局_文本, i, 1))<br />     .如果真 (局_数值 ＝ 0)<br />         局_数值 ＝ 10<br />     .如果真结束<br />     局_数组1 [局_数值] ＝ 局_数组1 [局_数值] ＋ 1<br /> .计次循环尾 ()<br /> .计次循环首 (10, i)<br />     局_数值 ＝ 局_数组1 <i><br />     .如果真 (局_数值 ＜ 2 或 局_数值 ＞ 4)<br />         到循环尾 ()<br />     .如果真结束<br />     .如果 (i ＝ 10)<br />         局_数字 ＝ “0”<br />     .否则<br />         局_数字 ＝ 到文本 (i)<br />     .如果结束<br />     局_数组2 [局_数值] ＝ 局_数组2 [局_数值] ＋ 局_数字 ＋ “,”<br /> .计次循环尾 ()<br /> .变量循环首 (2, 4, 1, i)<br />     局_结果 ＝ 局_结果 ＋ 到文本 (i) ＋ “个的数字为:”<br />     .如果 (局_数组2 <i> ＝ “”)<br />         局_数组2 <i> ＝ “空”<br />     .否则<br />         局_数组2 <i> ＝ 取文本左边 (局_数组2 <i>, 取文本长度 (局_数组2 <i>) － 1)<br />     .如果结束<br />     局_结果 ＝ 局_结果 ＋ 局_数组2 <i> ＋ #换行符<br /> .变量循环尾 ()<br /> 调试输出 (局_结果)

2个的数字为:9
3个的数字为:6
4个的数字为:3,4

茶白

  

子程序名	返回值类型	公开	备 注
分析数字重复情况	文本型		分析数字序列中的重复情况
参数名	类 型	参考	可空	数组	备 注
数字序列	文本型				需要分析的数字序列（如："333344446669910"）

变量名	类 型	静态	数组	备 注
数字统计	整数型		0,10	数组索引0-9对应数字0-9的出现次数
i	整数型
当前数字	整数型
结果文本	文本型
存在重复	逻辑型

' 初始化数字统计数组（0-9）
重定义数组 (数字统计, 假, 10)
计次循环首 (10, i)
数字统计 [i - 1] ＝ 0
计次循环尾 ()
' 统计每个数字的出现次数
计次循环首 (取文本长度 (数字序列), i)
当前数字 ＝ 到整数 (取文本中间 (数字序列, i, 1))
如果真 (当前数字 ≥ 0 且 当前数字 ≤ 9)
数字统计 [当前数字] ＝ 数字统计 [当前数字] ＋ 1

计次循环尾 ()
' 分析重复情况
结果文本 ＝ "数字序列分析结果：" ＋ #换行符
存在重复 ＝ 假
计次循环首 (10, i)
判断 (数字统计 [i - 1] ≥ 4)
结果文本 ＝ 结果文本 ＋ "数字" ＋ 到文本 (i - 1) ＋ "出现4次或以上（实际：" ＋ 到文本 (数字统计 [i - 1]) ＋ "次）" ＋ #换行符
存在重复 ＝ 真
判断 (数字统计 [i - 1] ＝ 3)
结果文本 ＝ 结果文本 ＋ "数字" ＋ 到文本 (i - 1) ＋ "出现3次" ＋ #换行符
存在重复 ＝ 真
判断 (数字统计 [i - 1] ＝ 2)
结果文本 ＝ 结果文本 ＋ "数字" ＋ 到文本 (i - 1) ＋ "出现2次" ＋ #换行符
存在重复 ＝ 真

计次循环尾 ()
如果真 (取文本长度 (结果文本) ＝ 0 或 存在重复 ＝ 假)
结果文本 ＝ "未发现2次、3次或4次重复的数字"

返回 (结果文本)

.版本 2<br /> <br /> .子程序 分析数字重复情况, 文本型, 公开, 分析数字序列中的重复情况<br /> .参数 数字序列, 文本型, , 需要分析的数字序列（如："333344446669910"）<br /> .局部变量 数字统计, 整数型, , "0,10", 数组索引0-9对应数字0-9的出现次数<br /> .局部变量 i, 整数型<br /> .局部变量 当前数字, 整数型<br /> .局部变量 结果文本, 文本型<br /> .局部变量 存在重复, 逻辑型<br /> <br /> ' 初始化数字统计数组（0-9）<br /> 重定义数组 (数字统计, 假, 10)<br /> .计次循环首 (10, i)<br />     数字统计 [i - 1] ＝ 0<br /> .计次循环尾 ()<br /> <br /> ' 统计每个数字的出现次数<br /> .计次循环首 (取文本长度 (数字序列), i)<br />     当前数字 ＝ 到整数 (取文本中间 (数字序列, i, 1))<br />     .如果真 (当前数字 ≥ 0 且 当前数字 ≤ 9)<br />         数字统计 [当前数字] ＝ 数字统计 [当前数字] ＋ 1<br />     .如果真结束<br /> .计次循环尾 ()<br /> <br /> ' 分析重复情况<br /> 结果文本 ＝ "数字序列分析结果：" ＋ #换行符<br /> 存在重复 ＝ 假<br /> <br /> .计次循环首 (10, i)<br />     .判断开始 (数字统计 [i - 1] ≥ 4)<br />         结果文本 ＝ 结果文本 ＋ "数字" ＋ 到文本 (i - 1) ＋ "出现4次或以上（实际：" ＋ 到文本 (数字统计 [i - 1]) ＋ "次）" ＋ #换行符<br />         存在重复 ＝ 真<br />     .判断 (数字统计 [i - 1] ＝ 3)<br />         结果文本 ＝ 结果文本 ＋ "数字" ＋ 到文本 (i - 1) ＋ "出现3次" ＋ #换行符<br />         存在重复 ＝ 真<br />     .判断 (数字统计 [i - 1] ＝ 2)<br />         结果文本 ＝ 结果文本 ＋ "数字" ＋ 到文本 (i - 1) ＋ "出现2次" ＋ #换行符<br />         存在重复 ＝ 真<br />     .默认<br />     .判断结束<br /> .计次循环尾 ()<br /> <br /> .如果真 (取文本长度 (结果文本) ＝ 0 或 存在重复 ＝ 假)<br />     结果文本 ＝ "未发现2次、3次或4次重复的数字"<br /> .如果真结束<br /> <br /> 返回 (结果文本)

zainex

  

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

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
文本	文本型
节点	节点
数	整数型
字符	文本型
临时	整数型
属性名	文本型		0
数组	整数型		0
值	整数型

文本 ＝ “333344446669910”
计次循环首 (取文本长度 (文本), 数)
字符 ＝ 取文本中间 (文本, 数, 1)
如果真 (节点.加入属性 (字符, 1) ＝ 假)
节点.取数值 (字符, 临时)
节点.修改属性 (字符, 临时 ＋ 1)

计次循环尾 ()
节点.取全部属性名 (属性名)
重定义数组 (数组, 假, 取数组成员数 (属性名))
计次循环首 (取数组成员数 (属性名), 数)
节点.取数值 (属性名 [数], 数组 [数])
计次循环尾 ()
计次循环首 (取数组成员数 (数组), 数)
计次循环首 (取数组成员数 (数组) － 数, 值)
如果真 (数组 [值] ＜ 数组 [值 ＋ 1])
交换变量 (数组 [值], 数组 [值 ＋ 1])
交换变量 (属性名 [值], 属性名 [值 ＋ 1])

计次循环尾 ()
计次循环尾 ()
计次循环首 (取数组成员数 (数组), 数)
如果真 (数组 [数] ＞ 1)
调试输出 (格式化文本 (“%s 出现 %d 次”, 属性名 [数], 数组 [数]))

计次循环尾 ()

i支持库列表	支持库注释
EDataStructure	数据结构支持库
spec	特殊功能支持库
eAPI	应用接口支持库

.版本 2<br /> .支持库 EDataStructure<br /> .支持库 spec<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本, 文本型<br /> .局部变量 节点, 节点<br /> .局部变量 数, 整数型<br /> .局部变量 字符, 文本型<br /> .局部变量 临时, 整数型<br /> .局部变量 属性名, 文本型, , "0"<br /> .局部变量 数组, 整数型, , "0"<br /> .局部变量 值, 整数型<br /> <br /> 文本 ＝ “333344446669910”<br /> .计次循环首 (取文本长度 (文本), 数)<br />     字符 ＝ 取文本中间 (文本, 数, 1)<br />     .如果真 (节点.加入属性 (字符, 1) ＝ 假)<br />         节点.取数值 (字符, 临时)<br />         节点.修改属性 (字符, 临时 ＋ 1)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 节点.取全部属性名 (属性名)<br /> 重定义数组 (数组, 假, 取数组成员数 (属性名))<br /> .计次循环首 (取数组成员数 (属性名), 数)<br />     节点.取数值 (属性名 [数], 数组 [数])<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (数组), 数)<br />     .计次循环首 (取数组成员数 (数组) － 数, 值)<br />         .如果真 (数组 [值] ＜ 数组 [值 ＋ 1])<br />             交换变量 (数组 [值], 数组 [值 ＋ 1])<br />             交换变量 (属性名 [值], 属性名 [值 ＋ 1])<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (数组), 数)<br />     .如果真 (数组 [数] ＞ 1)<br />         调试输出 (格式化文本 (“%s 出现 %d 次”, 属性名 [数], 数组 [数]))<br />     .如果真结束<br /> <br /> .计次循环尾 ()

开始运行被调试程序
* “3 出现 4 次”
* “4 出现 4 次”
* “6 出现 3 次”
* “9 出现 2 次”
被调试易程序运行完毕

Hoibben

这玩意儿用正则最简单方便~

trrz

  

子程序名	返回值类型	公开	备 注
如此简单

变量名	类 型	静态	数组	备 注
数字牌	文本型
temp	文本型		0
i	整数型
A	文本型
B	文本型
字数	整数型

字数 ＝ 1
数字牌 ＝ “333344446669910”
文本_逐字分割 (数字牌, temp)
计次循环首 (取数组成员数 (temp), i)
A ＝ temp [i]
判断 (A ＝ B)
字数 ＝ 字数 ＋ 1
如果真 (字数 ≠ 1)
调试输出 (字数)
字数 ＝ 1
B ＝ A
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 如此简单<br /> .局部变量 数字牌, 文本型<br /> .局部变量 temp, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 A, 文本型<br /> .局部变量 B, 文本型<br /> .局部变量 字数, 整数型<br /> <br /> 字数 ＝ 1<br /> 数字牌 ＝ “333344446669910”<br /> 文本_逐字分割 (数字牌, temp)<br /> .计次循环首 (取数组成员数 (temp), i)<br />     A ＝ temp <i><br />     .判断开始 (A ＝ B)<br />         字数 ＝ 字数 ＋ 1<br />     .默认<br />         .如果真 (字数 ≠ 1)<br />             调试输出 (字数)<br />         .如果真结束<br />         字数 ＝ 1<br />     .判断结束<br />     B ＝ A<br /> .计次循环尾 ()

lmy001

d.e (959.5 KB, 下载次数: 0, 售价: 1 枚 精币)

2025-9-4 16:46 上传

点击文件名下载附件
1