将1个整数(20000)随机分割为45个整数(200,400等),求源码

桃桃 · 发表于 2019-4-30 22:07:01

将1个整数(20000)随机分割为45个整数(200,400等),求源码45个整数最小200,最大800
需要源码,不要思路.

zenpon · 发表于 2019-4-30 22:07:02

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

变量名	类型	静态	数组	备注
拆分组	整数型		45
基础点	整数型
剩余	整数型
i	整数型
当前加	整数型
取整	逻辑型

取整＝假 ' 真整面数，假零数
剩余＝ 11000

计次循环首 (45, i)

拆分组 [i] ＝ 200

计次循环尾 ()
置随机数种子 ()

判断循环首 (剩余＞ 0)

i ＝ i ＋ 1

如果真 (i ＞ 45)

i ＝ 1

如果 (取整)

如果真 (拆分组 [i] ＜ 800)

当前加＝选择 (取随机数 (1, 10) ＝ 1, 100, 0)

当前加＝取随机数 (0, 取随机数 (拆分组 [i], 800) －拆分组 [i])

拆分组 [i] ＝拆分组 [i] ＋当前加

剩余＝剩余－当前加

判断循环尾 ()
' 数组排序 (拆分组, )
调试输出 (拆分组)

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

冯古屋 · 发表于 2019-4-30 22:19:05

类似红包一样的取随机数
http://bbs.125.la/forum.php?mod=viewthread&tid=14053760
(出处: 精易论坛)
你可以参考下

jiangqi360 · 发表于 2019-5-1 00:38:00

.版本 2 .支持库 spec .程序集窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 置随机数种子 () .子程序 _按钮1_被单击 .局部变量 n1, 整数型 .局部变量是否循环, 逻辑型 .局部变量数存, 整数型 .局部变量原数, 整数型 .局部变量拆分范围, 整数型, , "7" 原数＝ 20000 ' 200-800每个整数最少出现一次，每个整数出现次数取随机数，如果他们的总和等于原数（20000）就不在循环否则继续循环，直到等于原数（20000） .循环判断首 () .计次循环首 (7, n1) 拆分范围 [n1] ＝取随机数 (1, 取整 (原数 ÷ 100 ÷ n1)) .如果 (n1 ＝ 1) 数存＝拆分范围 [n1] .否则 数存＝数存＋拆分范围 [n1] .如果结束 .计次循环尾 () .如果 (数存＝ 200) 是否循环＝真 .否则 是否循环＝假 .如果结束 .循环判断尾 (是否循环＝假) 调试输出 (拆分范围, 数存)

jiangqi360 · 发表于 2019-5-1 00:42:43

.版本 2
.支持库 spec

.局部变量 n1, 整数型
.局部变量是否循环, 逻辑型
.局部变量数存, 整数型
.局部变量原数, 整数型
.局部变量拆分范围, 整数型, , "7"

原数＝ 20000

' 200-800每个整数最少出现一次，每个整数出现次数取随机数，如果他们的总和等于原数（20000）就不在循环否则继续循环，直到等于原数（20000）
.循环判断首 ()
.计次循环首 (7, n1)
      拆分范围 [n1] ＝取随机数 (1, 取整 (原数 ÷ 100 ÷ n1))
      .如果 (n1 ＝ 1)
         数存＝拆分范围 [n1]
      .否则
         数存＝数存＋拆分范围 [n1]
      .如果结束

.计次循环尾 ()
.如果 (数存＝ 200)
      是否循环＝真
.否则
      是否循环＝假

.如果结束

.循环判断尾 (是否循环＝假)

调试输出 (拆分范围, 数存)

补充内容 (2019-5-1 00:44):
不知道怎么发易代码，只好这样发了，200-800每个整数最少出现一次，每个整数出现次数取随机数，如果他们的总和等于原数（20000）就不在循环否则继续循环，直到等于原数（20000）

jiangqi360 · 发表于 2019-5-1 01:14:22

jiangqi360 发表于 2019-5-1 00:42
.版本 2
.支持库 spec

拆分范围 [n1] ＝取随机数 (1, 取整 (原数 ÷ 100 ÷ n1)) (这里n1后面加个1，我忘加了，要不然范围是100-700)

		自动登录	找回密码
密码			注册

[已解决] 将1个整数(20000)随机分割为45个整数(200,400等),求源码

最佳答案