怎样检测连续性数字缺少那些数字？

hehuaqiang001

连续性数字数组：{1，2，6，7，8，9，11，12，14，15}。（数组缺少3，4，5，10，13），怎样检测连续性数字缺少那些数字，并按规则显示到文本框，显示结果这样：3-5，10，13

（规则：连接性数字，中间加“-”，单个数字，单独显示。）



补充内容 (2025-9-8 12:51):
我通过查找数组最小和最大值，生成一个连接数组，二数组查重，速度找到缺失数字（3，4，5，10，13），但这方法不能检测连接性。

补充内容 (2025-9-8 14:53):
有答案了。晚点处理。因为都没问题，最佳答案只有一人。。所以先各打赏10币以上。

企鹅号525150138

  

变量名	类 型	静态	数组	备 注
a	整数型		0
i	整数型
开头	整数型
结果	文本型
结束	整数型

a ＝ { 1, 2, 6, 7, 8, 9, 11, 12, 14, 15 }
数组排序 (a, 真)
判断循环首 (i ＜ 取数组成员数 (a) － 1)
i ＝ i ＋ 1
' 暂停 ()
如果真 (a [i] ＋ 1 ≠ a [i ＋ 1])
开头 ＝ a [i] ＋ 1
结束 ＝ 开头
判断循环首 (结束 ＜ a [取数组成员数 (a)])
如果 (结束 ＋ 1 ＝ a [i ＋ 1])
跳出循环 ()
结束 ＝ 结束 ＋ 1

判断循环尾 ()
结果 ＝ 结果 ＋ 到文本 (开头) ＋ 选择 (结束 ＞ 开头, “-” ＋ 到文本 (结束) ＋ “，”, “，”)

判断循环尾 ()
调试输出 (取文本左边 (结果, 取文本长度 (结果) － 2))
调试输出 (“3-5，10，13”)

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 a, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 开头, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 结束, 整数型<br /> <br /> a ＝ { 1, 2, 6, 7, 8, 9, 11, 12, 14, 15 }<br /> 数组排序 (a, 真)<br /> .判断循环首 (i ＜ 取数组成员数 (a) － 1)<br />     i ＝ i ＋ 1<br />     ' 暂停 ()<br />     .如果真 (a <i> ＋ 1 ≠ a [i ＋ 1])<br />         开头 ＝ a <i> ＋ 1<br />         结束 ＝ 开头<br />         .判断循环首 (结束 ＜ a [取数组成员数 (a)])<br />             .如果 (结束 ＋ 1 ＝ a [i ＋ 1])<br />                 跳出循环 ()<br />             .否则<br />                 结束 ＝ 结束 ＋ 1<br />             .如果结束<br /> <br />         .判断循环尾 ()<br />         结果 ＝ 结果 ＋ 到文本 (开头) ＋ 选择 (结束 ＞ 开头, “-” ＋ 到文本 (结束) ＋ “，”, “，”)<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> 调试输出 (取文本左边 (结果, 取文本长度 (结果) － 2))<br /> 调试输出 (“3-5，10，13”)

冷冷的吹风

[e=2].版本 2
.支持库 spec

.子程序 测试子程序
.局部变量 原数组, 整数型, , "10"
.局部变量 缺失数字, 整数型, , "0"
.局部变量 i, 整数型
.局部变量 当前数字, 整数型
.局部变量 结果字符串, 文本型
.局部变量 开始数字, 整数型
.局部变量 结束数字, 整数型

' 初始化数组
原数组 ＝ { 1, 2, 6, 7, 8, 9, 11, 12, 14, 15 }

' 查找缺失数字
当前数字 ＝ 原数组 [1]
.计次循环首 (取数组成员数 (原数组), i)
    .判断循环首 (当前数字 ＜ 原数组 [i])
        加入成员 (缺失数字, 当前数字)
        当前数字 ＝ 当前数字 ＋ 1
    .判断循环尾 ()
    当前数字 ＝ 原数组 [i] ＋ 1
.计次循环尾 ()

' 处理最后一个数字之后的缺失值
.判断循环首 (当前数字 ≤ 原数组 [取数组成员数 (原数组)])
    加入成员 (缺失数字, 当前数字)
    当前数字 ＝ 当前数字 ＋ 1
.判断循环尾 ()

' 分组并格式化输出
i ＝ 1
.判断循环首 (i ≤ 取数组成员数 (缺失数字))
    开始数字 ＝ 缺失数字 [i]
    结束数字 ＝ 开始数字

    ' 查找连续范围
    .判断循环首 (i ＜ 取数组成员数 (缺失数字) 且 缺失数字 [i ＋ 1] ＝ 结束数字 ＋ 1)
        结束数字 ＝ 缺失数字 [i ＋ 1]
        i ＝ i ＋ 1
    .判断循环尾 ()

    ' 添加到结果字符串
    .如果 (结果字符串 ≠ “”)
        结果字符串 ＝ 结果字符串 ＋ “,”
    .否则

    .如果结束

    .如果 (开始数字 ＝ 结束数字)
        结果字符串 ＝ 结果字符串 ＋ 到文本 (开始数字)
    .否则
        结果字符串 ＝ 结果字符串 ＋ 到文本 (开始数字) ＋ “-” ＋ 到文本 (结束数字)
    .如果结束

    i ＝ i ＋ 1
.判断循环尾 ()

' 显示结果
调试输出 (结果字符串)

飞羽软件

计次循环 遍历数组，判断当前数是否等于循环次数

Ruang

  

子程序名	返回值类型	公开	备 注
功能_检测连续性数组并返回缺少数组	文本型
参数名	类 型	参考	可空	数组	备 注
欲操作整数数组	整数型
不存在整数数组	整数型

变量名	类 型	静态	数组	备 注
当前值	整数型
计次2	整数型
待返回文本	文本型
最大值	整数型

数组排序 (欲操作整数数组, 真)
清除数组 (不存在整数数组)
计次2 ＝ 1
计次循环首 (欲操作整数数组 [取数组成员数 (欲操作整数数组)], 当前值)
如果 (欲操作整数数组 [计次2] ＝ 当前值)
待返回文本 ＝ 待返回文本 ＋ 到文本 (欲操作整数数组 [计次2]) ＋ “-”
计次2 ＝ 计次2 ＋ 1
加入成员 (不存在整数数组, 当前值)

计次循环尾 ()
待返回文本 ＝ 取文本左边 (待返回文本, 取文本长度 (待返回文本) － 1)
返回 (待返回文本)

.版本 2<br /> <br /> .子程序 功能_检测连续性数组并返回缺少数组, 文本型<br /> .参数 欲操作整数数组, 整数型, 数组<br /> .参数 不存在整数数组, 整数型, 参考 可空 数组<br /> .局部变量 当前值, 整数型<br /> .局部变量 计次2, 整数型<br /> .局部变量 待返回文本, 文本型<br /> .局部变量 最大值, 整数型<br /> <br /> 数组排序 (欲操作整数数组, 真)<br /> 清除数组 (不存在整数数组)<br /> 计次2 ＝ 1<br /> .计次循环首 (欲操作整数数组 [取数组成员数 (欲操作整数数组)], 当前值)<br />     .如果 (欲操作整数数组 [计次2] ＝ 当前值)<br />         待返回文本 ＝ 待返回文本 ＋ 到文本 (欲操作整数数组 [计次2]) ＋ “-”<br />         计次2 ＝ 计次2 ＋ 1<br />     .否则<br />         加入成员 (不存在整数数组, 当前值)<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 待返回文本 ＝ 取文本左边 (待返回文本, 取文本长度 (待返回文本) － 1)<br /> 返回 (待返回文本)

laji2015

前面的你弄出来了，我直接写后面的吧。

千面萌萌

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 arr, 整数型, , "0"
.局部变量 arr2, 整数型, , "0"
.局部变量 n, 整数型
.局部变量 X, 整数型
.局部变量 i, 整数型
.局部变量 返回, 文本型

arr ＝ { 1, 2, 6, 7, 8, 9, 11, 12, 14, 15 }
冒泡法排序_整数型 (arr)
n ＝ 取数组成员数 (arr)


X ＝ arr [1]

i ＝ 2
.判断循环首 (X ＜ arr [n])
    X ＝ X ＋ 1
    ' 调试输出 ()
    .判断开始 (X ＜ arr [i])
        调试输出 (X)
        加入成员 (arr2, X)


    .判断 (X ＝ arr [i])
        i ＝ i ＋ 1
    .默认

    .判断结束


.判断循环尾 ()

n ＝ 取数组成员数 (arr2)
.计次循环首 (n, i)

    .如果 (i ＋ 1 ＜ n)
        .如果 (arr2 [i] ＋ 1 ＝ arr2 [i ＋ 1])
            返回 ＝ 返回 ＋ 到文本 (arr2 [i]) ＋ “-”
        .否则
            返回 ＝ 返回 ＋ 到文本 (arr2 [i]) ＋ “,”
        .如果结束

    .否则
        返回 ＝ 返回 ＋ 到文本 (arr2 [i]) ＋ “,”
    .如果结束


.计次循环尾 ()

.如果真 (取文本右边 (返回, 1) ＝ “,”)
    返回 ＝ 取文本左边 (返回, 取文本长度 (返回) － 1)
.如果真结束


调试输出 (返回)
' “3-4-5,10,13”



.子程序 冒泡法排序_整数型, , 公开, 冒泡法
.参数 分数, 整数型, 参考 数组
.局部变量 Z, 整数型
.局部变量 i, 整数型
.局部变量 j, 整数型

Z ＝ 取数组成员数 (分数)
.计次循环首 (Z, i)
    .计次循环首 (Z － i, j)
        .如果真 (分数 [j] ＞ 分数 [j ＋ 1])
            强制交换变量 (分数 [j], 分数 [j ＋ 1])
        .如果真结束

    .计次循环尾 ()
.计次循环尾 ()

千面萌萌

.版本 2
.支持库 spec

.子程序 __启动窗口_创建完毕
.局部变量 arr, 整数型, , "0"
.局部变量 arr2, 整数型, , "0"
.局部变量 n, 整数型
.局部变量 X, 整数型
.局部变量 i, 整数型
.局部变量 返回, 文本型

arr ＝ { 1, 2, 6, 7, 8, 9, 11, 12, 14, 15 }
冒泡法排序_整数型 (arr)
n ＝ 取数组成员数 (arr)
X ＝ arr [1]
i ＝ 2
.判断循环首 (X ＜ arr [n])
    X ＝ X ＋ 1
    .判断开始 (X ＜ arr [i])
        调试输出 (X)
        加入成员 (arr2, X)
    .判断 (X ＝ arr [i])
        i ＝ i ＋ 1
    .默认

    .判断结束

.判断循环尾 ()

n ＝ 取数组成员数 (arr2)
.计次循环首 (n, i)
    .如果 (i ＋ 1 ＜ n)
        .如果 (arr2 [i] ＋ 1 ＝ arr2 [i ＋ 1])
            返回 ＝ 返回 ＋ 到文本 (arr2 [i]) ＋ “-”
        .否则
            返回 ＝ 返回 ＋ 到文本 (arr2 [i]) ＋ “,”
        .如果结束

    .否则
        返回 ＝ 返回 ＋ 到文本 (arr2 [i]) ＋ “,”
    .如果结束

.计次循环尾 ()

.如果真 (取文本右边 (返回, 1) ＝ “,”)
    返回 ＝ 取文本左边 (返回, 取文本长度 (返回) － 1)
.如果真结束
调试输出 (返回)
' “3-4-5,10,13”



.子程序 冒泡法排序_整数型, , 公开, 冒泡法
.参数 分数, 整数型, 参考 数组
.局部变量 Z, 整数型
.局部变量 i, 整数型
.局部变量 j, 整数型

Z ＝ 取数组成员数 (分数)
.计次循环首 (Z, i)
    .计次循环首 (Z － i, j)
        .如果真 (分数 [j] ＞ 分数 [j ＋ 1])
            强制交换变量 (分数 [j], 分数 [j ＋ 1])
        .如果真结束

    .计次循环尾 ()
.计次循环尾 ()

Ruang

  

子程序名	返回值类型	公开	备 注
功能_检测连续性数字返回缺少数字	文本型		返回缺少的整数数组并按格式返回文本
参数名	类 型	参考	可空	数组	备 注
欲操作整数数组	整数型

变量名	类 型	静态	数组	备 注
当前值	整数型
计次	整数型
待返回文本	文本型
不存在数组	整数型		0
最大值	整数型

数组排序 (欲操作整数数组, 真)
计次 ＝ 1
变量循环首 (欲操作整数数组 [1], 欲操作整数数组 [取数组成员数 (欲操作整数数组)], 1, 当前值)
如果 (欲操作整数数组 [计次] ＝ 当前值)
计次 ＝ 计次 ＋ 1
' 待返回文本 ＝ 待返回文本 ＋ 到文本 (当前值) ＋ “,”
加入成员 (不存在数组, 当前值)

变量循环尾 ()
计次 ＝ 1
变量循环首 (不存在数组 [1], 不存在数组 [取数组成员数 (不存在数组)], 1, 当前值)
如果 (不存在数组 [计次] ＝ 当前值)
待返回文本 ＝ 待返回文本 ＋ 到文本 (当前值) ＋ “-”
计次 ＝ 计次 ＋ 1
待返回文本 ＝ 取文本左边 (待返回文本, 取文本长度 (待返回文本) － 1) ＋ “,”

变量循环尾 ()
待返回文本 ＝ 取文本左边 (待返回文本, 取文本长度 (待返回文本) － 1)
返回 (待返回文本)

.版本 2<br /> <br /> .子程序 功能_检测连续性数字返回缺少数字, 文本型, , 返回缺少的整数数组并按格式返回文本<br /> .参数 欲操作整数数组, 整数型, 数组<br /> .局部变量 当前值, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 待返回文本, 文本型<br /> .局部变量 不存在数组, 整数型, , "0"<br /> .局部变量 最大值, 整数型<br /> <br /> 数组排序 (欲操作整数数组, 真)<br /> 计次 ＝ 1<br /> .变量循环首 (欲操作整数数组 [1], 欲操作整数数组 [取数组成员数 (欲操作整数数组)], 1, 当前值)<br />     .如果 (欲操作整数数组 [计次] ＝ 当前值)<br />         计次 ＝ 计次 ＋ 1<br />     .否则<br />         ' 待返回文本 ＝ 待返回文本 ＋ 到文本 (当前值) ＋ “,”<br />         加入成员 (不存在数组, 当前值)<br />     .如果结束<br /> <br /> .变量循环尾 ()<br /> 计次 ＝ 1<br /> .变量循环首 (不存在数组 [1], 不存在数组 [取数组成员数 (不存在数组)], 1, 当前值)<br />     .如果 (不存在数组 [计次] ＝ 当前值)<br />         待返回文本 ＝ 待返回文本 ＋ 到文本 (当前值) ＋ “-”<br />         计次 ＝ 计次 ＋ 1<br />     .否则<br />         待返回文本 ＝ 取文本左边 (待返回文本, 取文本长度 (待返回文本) － 1) ＋ “,”<br />     .如果结束<br /> <br /> .变量循环尾 ()<br /> 待返回文本 ＝ 取文本左边 (待返回文本, 取文本长度 (待返回文本) － 1)<br /> 返回 (待返回文本)

照你的意思应该是这样不会错啦

frankiy

枚举。 从1-99999  ，只要在4位数内，耗时基本上不超过1-2秒。

关键的是连续数字的识别。推荐下面的代码：