取数组里面重复出现次数最多的值

xiaolonghu01

比如有一串数组
（“25”，“28”，“28”，“28”，“29”，“28”，“29”，“27”，“22”，“29”）
28重复了4次，29重复了3次，就取出28
如果有2个值重复次数一样就都取出来

来一个简单好用的模板。谢谢各位大佬

企鹅号525150138

  

变量名	类 型	静态	数组	备 注
a	文本型		0
j	整数型
b	文本型		0
出现次数	整数型
出现最多的数	文本型

a ＝ { “25”, “28”, “28”, “28”, “29”, “28”, “29”, “27”, “22”, “29”, “29” }
b ＝ a
数组_去重复 (b)
计次循环首 (取数组成员数 (b), j)
如果 (数组_取次数 (a, b [j]) ≥ 出现次数)
出现次数 ＝ 数组_取次数 (a, b [j])



计次循环尾 ()
计次循环首 (取数组成员数 (b), j)
如果真 (数组_取次数 (a, b [j]) ＝ 出现次数)
调试输出 (b [j], 出现次数)

计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 a, 文本型, , "0"<br /> .局部变量 j, 整数型<br /> .局部变量 b, 文本型, , "0"<br /> .局部变量 出现次数, 整数型<br /> .局部变量 出现最多的数, 文本型<br /> <br /> a ＝ { “25”, “28”, “28”, “28”, “29”, “28”, “29”, “27”, “22”, “29”, “29” }<br /> b ＝ a<br /> 数组_去重复 (b)<br /> .计次循环首 (取数组成员数 (b), j)<br /> <br />     .如果 (数组_取次数 (a, b [j]) ≥ 出现次数)<br />         出现次数 ＝ 数组_取次数 (a, b [j])<br />     .否则<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (b), j)<br />     .如果真 (数组_取次数 (a, b [j]) ＝ 出现次数)<br />         调试输出 (b [j], 出现次数)<br />     .如果真结束<br /> <br /> .计次循环尾 ()

企鹅号525150138

  

变量名	类 型	静态	数组	备 注
a	文本型		0
j	整数型
b	文本型		0
出现次数	整数型
出现最多的数	文本型

a ＝ { “25”, “28”, “28”, “28”, “29”, “28”, “29”, “27”, “22”, “29” }
b ＝ a
数组_去重复 (b)
计次循环首 (取数组成员数 (b), j)
如果真 (数组_取次数 (a, b [j]) ＞ 出现次数)
出现次数 ＝ 数组_取次数 (a, b [j])
出现最多的数 ＝ b [j]

计次循环尾 ()
调试输出 (出现最多的数, 出现次数)

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 a, 文本型, , "0"<br /> .局部变量 j, 整数型<br /> .局部变量 b, 文本型, , "0"<br /> .局部变量 出现次数, 整数型<br /> .局部变量 出现最多的数, 文本型<br /> <br /> a ＝ { “25”, “28”, “28”, “28”, “29”, “28”, “29”, “27”, “22”, “29” }<br /> b ＝ a<br /> 数组_去重复 (b)<br /> .计次循环首 (取数组成员数 (b), j)<br /> <br />     .如果真 (数组_取次数 (a, b [j]) ＞ 出现次数)<br />         出现次数 ＝ 数组_取次数 (a, b [j])<br />         出现最多的数 ＝ b [j]<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (出现最多的数, 出现次数)

LEOONL

  

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

变量名	类 型	静态	数组	备 注
数组	文本型		0
节点	节点
n	整数型
次数	整数型
最大次数	整数型

数组 ＝ { “25”, “28”, “28”, “28”, “29”, “28”, “29”, “27”, “22”, “29”, “29” }
计次循环首 (取数组成员数 (数组), n)
如果真 (节点.加入属性 (数组 [n], 1) ＝ 假)
节点.取数值 (数组 [n], 次数)
节点.修改属性 (数组 [n], 次数 ＋ 1)
如果真 (次数 ＋ 1 ＞ 最大次数)
最大次数 ＝ 次数 ＋ 1


计次循环尾 ()
节点.取全部属性名 (数组)
计次循环首 (取数组成员数 (数组), n)
节点.取数值 (数组 [n], 次数)
如果真 (次数 ＝ 最大次数)
调试输出 (数组 [n])

计次循环尾 ()

i支持库列表	支持库注释
EDataStructure	数据结构支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EDataStructure<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 节点, 节点<br /> .局部变量 n, 整数型<br /> .局部变量 次数, 整数型<br /> .局部变量 最大次数, 整数型<br /> <br /> 数组 ＝ { “25”, “28”, “28”, “28”, “29”, “28”, “29”, “27”, “22”, “29”, “29” }<br /> .计次循环首 (取数组成员数 (数组), n)<br />     .如果真 (节点.加入属性 (数组 [n], 1) ＝ 假)<br />         节点.取数值 (数组 [n], 次数)<br />         节点.修改属性 (数组 [n], 次数 ＋ 1)<br />         .如果真 (次数 ＋ 1 ＞ 最大次数)<br />             最大次数 ＝ 次数 ＋ 1<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 节点.取全部属性名 (数组)<br /> .计次循环首 (取数组成员数 (数组), n)<br />     节点.取数值 (数组 [n], 次数)<br />     .如果真 (次数 ＝ 最大次数)<br />         调试输出 (数组 [n])<br />     .如果真结束<br /> <br /> .计次循环尾 ()

xiaolonghu01

企鹅号525150138 发表于 2024-9-22 16:03
[e=0].版本 2
.支持库 spec

测试了，可以。就是差一个重复同样次数的。一起取出

企鹅号525150138

xiaolonghu01 发表于 2024-9-22 16:14
测试了，可以。就是差一个重复同样次数的。一起取出

我最后给你发的28跟29都是重复四次，都取出来了