寻找连续的数字。

菜鸟会读书

连续数字的问题，如题：

40000
40020
40040
40060
40080
40100
40120
40140
40160
40200
40220
40240
40280
一直到41000

如何找到连续的9个数字，就是都是+20的数字，
有时候其中某个数字会被去掉，那么就无法连续+20了。
上方红色的就是连续的数字，有时候中间会断掉一个数字，那么就要从后面再找一个连续的9个+20的数字
只需要寻找到一个连续+20数字即可。

鹏书

  

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

变量名	类 型	静态	数组	备 注
atxt	文本型		0
aint	整数型		0
i	整数型
i1	整数型

' 分割成数组
atxt ＝ 分割文本 ( #常量1, #换行符, )
' 转整数数组 排序
计次循环首 (取数组成员数 (atxt), i)
加入成员 (aint, 到整数 (atxt [i]))
计次循环尾 ()
数组排序 (aint, 真)
计次循环首 (取数组成员数 (aint) － 8, i)
如果真 (aint [i] ＋ 20 × 8 ＝ aint [i ＋ 8])  ' 收尾相加8个20 就说明符合条件
计次循环首 (9, i1)  ' 这个是输出结果
调试输出 (aint [i ＋ i1 － 1])
计次循环尾 ()
跳出循环 ()

计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮5_被单击<br /> .局部变量 atxt, 文本型, , "0"<br /> .局部变量 aint, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 i1, 整数型<br /> <br /> ' 分割成数组<br /> atxt ＝ 分割文本 (#常量1, #换行符, )<br /> ' 转整数数组 排序<br /> .计次循环首 (取数组成员数 (atxt), i)<br />     加入成员 (aint, 到整数 (atxt <i>))<br /> .计次循环尾 ()<br /> 数组排序 (aint, 真)<br /> <br /> .计次循环首 (取数组成员数 (aint) － 8, i)<br />     .如果真 (aint <i> ＋ 20 × 8 ＝ aint [i ＋ 8])  ' 收尾相加8个20 就说明符合条件<br />         .计次循环首 (9, i1)  ' 这个是输出结果<br />             调试输出 (aint [i ＋ i1 － 1])<br />         .计次循环尾 ()<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()

afu45

  

变量名	类 型	静态	数组	备 注
arr	文本型		0
i	整数型
arr2	文本型		0

arr ＝ 分割文本 ( #常量1, #换行符, )
计次循环首 (取数组成员数 (arr), i)
如果 (取数组成员数 (arr2) ＝ 0 或 取数组成员数 (arr2) ＞ 0 且 到整数 (arr [i]) ＝ 到整数 (arr2 [取数组成员数 (arr2)]) ＋ 20)
加入成员 (arr2, arr [i])
清除数组 (arr2)

如果真 (取数组成员数 (arr2) ＝ 9)
调试输出 (arr2)
跳出循环 ()

计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 arr, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 arr2, 文本型, , "0"<br /> <br /> arr ＝ 分割文本 (#常量1, #换行符, )<br /> .计次循环首 (取数组成员数 (arr), i)<br />     .如果 (取数组成员数 (arr2) ＝ 0 或 取数组成员数 (arr2) ＞ 0 且 到整数 (arr <i>) ＝ 到整数 (arr2 [取数组成员数 (arr2)]) ＋ 20)<br />         加入成员 (arr2, arr <i>)<br />     .否则<br />         清除数组 (arr2)<br />     .如果结束<br /> <br />     .如果真 (取数组成员数 (arr2) ＝ 9)<br />         调试输出 (arr2)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()

深寒

没看懂是什么意思

走一回

  

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

变量名	类 型	静态	数组	备 注
t	文本型		0
i
num

t ＝ 分割文本 ( #长文本常量1, #换行符, )
计次循环首 (取数组成员数 (t) － 1, i)
如果真 (到整数 (t [i]) － 到整数 (t [i ＋ 1]) ＝ -20)
num ＝ num ＋ 1
如果真 (num ＝ 9)
调试输出 (“num达到9次相差20了”)
跳出循环 ()

计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 t, 文本型, , "0"<br /> .局部变量 i<br /> .局部变量 num<br /> <br /> t ＝ 分割文本 (#长文本常量1, #换行符, )<br /> .计次循环首 (取数组成员数 (t) － 1, i)<br />     .如果真 (到整数 (t <i>) － 到整数 (t [i ＋ 1]) ＝ -20)<br />         num ＝ num ＋ 1<br />     .如果真结束<br />     .如果真 (num ＝ 9)<br />         调试输出 (“num达到9次相差20了”)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()

补充内容 (2024-5-13 08:41):
思路跟第一个差不多，不过只是记录次数，没有用到加入数组成员，应该是能己点的

补充内容 (2024-5-13 08:42):
这段代码不需要考虑数组越界问题