实在琢磨不明白了，求助数组计算的问题

year1970

传入数组：数组成员任意个数，都是从3.12到5.33之间
运算整理返回两个数组：
刻度存放数据的分隔区间，3.1,3.2,3.3.......5.2,5.3,5.4
成员数存放每个分隔区间内的数组N的成员个数

.版本 2

数组排序 (传入数组, 假)
最大刻度 ＝ 取整 (传入数组 [1] × 10) ＋ 1
数组排序 (传入数组, 真)
最小刻度 ＝ 取整 (传入数组 [1] × 10)
刻度数 ＝ 最大刻度 － 最小刻度
.计次循环首 (刻度数 ＋ 1, 循环数1)
    加入成员 (刻度, 最小刻度 ÷ 10 ＋ (循环数1 － 1) × 0.1)
.计次循环尾 ()

.计次循环首 (取数组成员数 (刻度) － 1, 循环数1)
    区间内个数 ＝ 0
    .计次循环首 (取数组成员数 (传入数组), 循环数2)
        .如果真 (传入数组 [循环数2] ≥ 刻度 [循环数1] 且 传入数组 [循环数2] ＜ 刻度 [循环数1 ＋ 1])
            区间内个数 ＝ 区间内个数 ＋ 1

        .如果真结束



    .计次循环尾 ()
    加入成员 (成员数, 区间内个数)
.计次循环尾 ()
加入成员 (成员数, 0)



单独编写都行，放到程序里面成员都是{1,1,1,......0,0,0,0}这种样子呢？


补充内容 (2023-11-19 12:12):
.版本 2

.子程序 数组To区间分布, 数组区间统计, , 把传入数组整理成区间分布数据，返回区间分隔值和区间分布值两个数组
.参数 传入数组, 小数型, ...

那小子少跟弦

新建文本文档.e (3.69 KB, 下载次数: 6)

2023-11-19 13:05 上传

点击文件名下载附件
是这个意思吗?

走一回

真没看懂，你再重新捋一下

幻想大人

这是啥玩意，都没看懂你想问什么

year1970

走一回 发表于 2023-11-19 11:47
真没看懂，你再重新捋一下

就是统计传入数组的成员，在每个刻度之间的分布个数

悟空科技

看不懂，理解能力有限

year1970

那小子少跟弦 发表于 2023-11-19 13:06
是这个意思吗?

是这个意思。单独运行，结果都对，当成模块放到程序里，结果就不对，见鬼了
rr_input ＝3.711，4.73，4.983，5.13
arr_res1=3.1；3.2；3.3；3.4；3.5；3.6；3.7；3.8；3.9；4；4.1；4.2；4.3；4.4；4.5；4.6；4.7；4.8；4.9；5；5.1；5.2；5.3；5.4；
arr_res2=1；1；1；1；0；0；0；0；0；0；0；0；0；0；0；0；0；0；0；0；0；0；0；0；

笨来无一悟

细节自己拿去改改

  

子程序名	返回值类型	公开	备 注
区间统计	文本型
参数名	类 型	参考	可空	数组	备 注
传入数组	双精度小数型				3.12 到 5.33

变量名	类 型	静态	数组	备 注
A	整数型
B	整数型
区间	整数型		23	32-54 = 1-23
文本	快速文本对象

计次循环首 (取数组成员数 (传入数组), A)
变量循环首 (32, 54, 1, B)  ' 值 ＜ 3.2 到 ＜ 5.4
如果真 (传入数组 [A] ＜ B ÷ 10)
区间 [B － 31] ＝ 区间 [B － 31] ＋ 1
跳出循环 ()

变量循环尾 ()
计次循环尾 ()
计次循环首 (23, A)
文本.添加 (“小于 ”, (A ＋ 31) ÷ 10, “ 共有 ”, 区间 [A], “ 组”, #换行符 )
计次循环尾 ()
返回 (文本.取文本 (, ))

i支持库列表	支持库注释
commobj	通用对象支持库

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 区间统计, 文本型<br /> .参数 传入数组, 双精度小数型, 数组, 3.12 到 5.33<br /> .局部变量 A, 整数型<br /> .局部变量 B, 整数型<br /> .局部变量 区间, 整数型, , "23", 32-54 = 1-23<br /> .局部变量 文本, 快速文本对象<br /> <br /> .计次循环首 (取数组成员数 (传入数组), A)<br />     .变量循环首 (32, 54, 1, B)  ' 值 ＜ 3.2 到 ＜ 5.4<br />         .如果真 (传入数组 [A] ＜ B ÷ 10)<br />             区间 [B － 31] ＝ 区间 [B － 31] ＋ 1<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br /> .计次循环尾 ()<br /> .计次循环首 (23, A)<br />     文本.添加 (“小于 ”, (A ＋ 31) ÷ 10, “ 共有 ”, 区间 [A], “ 组”, #换行符)<br /> .计次循环尾 ()<br /> 返回 (文本.取文本 (, ))