Question

请教个易语言问题 我要做个统计数组的程序 想实现的功能是连续出现的次数 反复试了很多方法得出的都是

请教个易语言问题 我要做个统计数组的程序 想实现的功能是连续出现的次数 反复试了很多方法得出的都是总共出现的次数 我想要连续出现的次数加1 没有连续出现的加0 例如有这样一组数组:1,2,1,1,1,1,2,2,1,2,1（最终显示结果是:0-0-1-2-3-4-1-2-0-0-0） 谁能帮我写下思路或代码，谢谢各位老师了！

Answer 1

.版本 2

.支持库 spec

.子程序 __启动窗口_创建完毕

.局部变量 数值统计, 整数型, , "0"

.局部变量 返回数组, 整数型, , "0"

数值统计 ＝ { 1, 2, 1, 1, 1, 1, 2, 2, 1, 2, 1 }

统计 (数值统计, 返回数组)

调试输出 (返回数组)

.子程序 统计

.参数 统计数组, 整数型, 参考 数组

.参数 返回数组, 整数型, 参考 数组

.局部变量 上一个, 整数型

.局部变量 j, 整数型

.局部变量 记录, 整数型

重定义数组 (返回数组, 假, 取数组成员数 (统计数组))

上一个 ＝ 统计数组 [1]

记录 = 1

.计次循环首 (取数组成员数 (统计数组) － 1, j)

    .如果 (上一个 ＝ 统计数组 [j ＋ 1])

        记录 ＝ 记录 ＋ 1

        返回数组 [j ＋ 1] ＝ 记录

        .如果真 (记录 ＝ 2)

            返回数组 [j] ＝ 1

        .如果真结束

    .否则

        记录 ＝ 1

        上一个 ＝ 统计数组 [j ＋ 1]

    .如果结束

.计次循环尾 ()

‘好了 哈哈 采纳’

追问

谢谢 太谢谢了 基本就是这个意思
还有一点显示的不是很到位 数组显示的是一直相加的 我要怎么修改才能让见到零就从头在开始重新相加？比如这样子显示是我要的:0123400001200001000123456000120.
谢谢你

问题搞定了 原来是我写错了你给我的代码 回家重新写了 问题解决了 谢谢你！！ 能再向你提问一个问题吗？

追答

好啊