连续数字长度归类判断

DDSGXQ

RT

一串数字：1、4、8、9、10、11、12、17、22、24、25、26、27、40、41、42、48、49


整理为：1、4、8（长度为5：8-12）、17、22、24（长度为4：24-27）、40（长度为3：40-42）、48（长度为2：48-49）


怎么循环归类成这样的，如果是任意一段数字呢？

点通粉丝

  

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

变量名	类 型	静态	数组	备 注
data	整数型		0
i	整数型
size	整数型

data ＝ { 1, 4, 8, 9, 10, 11, 12, 17, 22, 24, 25, 26, 27, 40, 41, 42, 48, 49 }
size ＝ 1
计次循环首 (取数组成员数 (data), i)
如果真 (i ＜ 取数组成员数 (data) 且 data [i] ＋ 1 ＝ data [i ＋ 1])
size ＝ size ＋ 1
到循环尾 ()
如果真 (size ＞ 1)
调试输出 (到文本 (data [i － size ＋ 1]) ＋ “(长度为:” ＋ 到文本 (size) ＋ “：” ＋ 到文本 (data [i － size ＋ 1]) ＋ “-” ＋ 到文本 (data [i]) ＋ “)”)
size ＝ 1
到循环尾 ()
调试输出 (到文本 (data [i]))
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 data, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 size, 整数型<br /> <br /> data ＝ { 1, 4, 8, 9, 10, 11, 12, 17, 22, 24, 25, 26, 27, 40, 41, 42, 48, 49 }<br /> size ＝ 1<br /> .计次循环首 (取数组成员数 (data), i)<br />     .如果真 (i ＜ 取数组成员数 (data) 且 data <i> ＋ 1 ＝ data [i ＋ 1])<br />         size ＝ size ＋ 1<br />         到循环尾 ()<br />     .如果真结束<br />     .如果真 (size ＞ 1)<br />         调试输出 (到文本 (data [i － size ＋ 1]) ＋ “(长度为:” ＋ 到文本 (size) ＋ “：” ＋ 到文本 (data [i － size ＋ 1]) ＋ “-” ＋ 到文本 (data <i>) ＋ “)”)<br />         size ＝ 1<br />         到循环尾 ()<br />     .如果真结束<br />     调试输出 (到文本 (data <i>))<br /> .计次循环尾 ()

white9

你这个长度是怎么算的

DDSGXQ

white9 发表于 2018-5-15 15:24
你这个长度是怎么算的

文章提到了。比如：4,5,6,7,8,9,   共6个数字连读，就是长度6。起始点是4，长度为6。

走一回

是不是闲得空了荒

补充内容 (2018-5-15 15:31):
这样的整理对计算机来说一点都不友好

寒潮

这样？

LXP

  

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

变量名	类 型	静态	数组	备 注
数	整数型		0
集	文本型		0
文	文本型
位	整数型
长	整数型

数 ＝ { 1, 4, 8, 9, 10, 11, 12, 17, 22, 24, 25, 26, 27, 40, 41, 42, 48, 49 }
长 ＝ 取数组成员数 (数)
判断循环首 (位 ≠ 长)
位 ＝ 位 ＋ 1
文 ＝ 到文本 (数 [位])
判断循环首 (位 ＋ 1 ＜ 长 且 数 [位] ＋ 1 ＝ 数 [位 ＋ 1])
位 ＝ 位 ＋ 1
文 ＝ 文 ＋ “, ” ＋ 到文本 (数 [位])
判断循环尾 ()
加入成员 (集, 文)
判断循环尾 ()
调试输出 (集)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .局部变量 数, 整数型, , "0"<br /> .局部变量 集, 文本型, , "0"<br /> .局部变量 文, 文本型<br /> .局部变量 位, 整数型<br /> .局部变量 长, 整数型<br /> <br /> 数 ＝ { 1, 4, 8, 9, 10, 11, 12, 17, 22, 24, 25, 26, 27, 40, 41, 42, 48, 49 }<br /> 长 ＝ 取数组成员数 (数)<br /> .判断循环首 (位 ≠ 长)<br />     位 ＝ 位 ＋ 1<br />     文 ＝ 到文本 (数 [位])<br />     .判断循环首 (位 ＋ 1 ＜ 长 且 数 [位] ＋ 1 ＝ 数 [位 ＋ 1])<br />         位 ＝ 位 ＋ 1<br />         文 ＝ 文 ＋ “, ” ＋ 到文本 (数 [位])<br />     .判断循环尾 ()<br />     加入成员 (集, 文)<br /> .判断循环尾 ()<br /> 调试输出 (集)

企鹅号525150138

.版本 2
.支持库 spec

.子程序 __启动窗口_创建完毕
.局部变量 数字文本, 文本型
.局部变量 数字文本数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 文本, 文本型
.局部变量 ii, 整数型
.局部变量 局文本, 文本型
.局部变量 长度, 整数型
.局部变量 总文本, 文本型

数字文本 ＝ “1、4、8、9、10、11、12、17、22、24、25、26、27、40、41、42、48、49”
数字文本数组 ＝ 分割文本 (数字文本, “、”, )
长度 ＝ 2
总文本 ＝ “整理为：”
.计次循环首 (取数组成员数 (数字文本数组), i)
    文本 ＝ 数字文本数组 [i]
    .如果真 (长度 － 2 ≠ 0)
        长度 ＝ 长度 － 1
        到循环尾 ()
    .如果真结束


    .如果 (i ≠ 1)
        .如果 (到整数 (文本) － 到整数 (数字文本数组 [i － 1]) ＝ 1)
            ii ＝ i － 1
            .循环判断首 ()
                ii ＝ ii ＋ 1
                .如果真 (ii ＞ 取数组成员数 (数字文本数组))
                    跳出循环 ()
                .如果真结束

                局文本 ＝ 数字文本数组 [ii]
            .循环判断尾 (到整数 (局文本) － 到整数 (数字文本数组 [ii － 1]) ＝ 1)
            长度 ＝ ii － i ＋ 1

            局文本 ＝ 数字文本数组 [i － 1] ＋ “-” ＋ 数字文本数组 [ii － 1]
            总文本 ＝ 总文本 ＋ “（长度为” ＋ 到文本 (长度) ＋ “：” ＋ 局文本 ＋ “)”
        .否则
            总文本 ＝ 总文本 ＋ 文本

        .如果结束

    .否则
        总文本 ＝ 总文本 ＋ 文本

    .如果结束

    .如果真 (i ≠ 取数组成员数 (数字文本数组))
        总文本 ＝ 总文本 ＋ “、”
    .如果真结束

.计次循环尾 ()
调试输出 (总文本)