5,388
社区成员
发帖
与我相关
我的任务
分享隨機函數怎麼創建？
我現在用到另一個開發工具，Centura Builder，需要用到隨機函數，或是系統不提供，不知道，隨機函數怎麼寫，各位高手多多指教！
...全文
请发表友善的回复…
发表回复
耙子 2002-09-11
- 打赏
- 举报
如果要自己写函数，看看这个文章
http://our93611.51.net/upload/showtitle.php?fn=000031.dat
http://our93611.51.net/upload/showtitle.php?fn=000031.dat
oracle_lover 2002-09-10
- 打赏
- 举报
更正错误：
i:=Random(100); //返回一个0到100间的随机数，可以等于0
i:=Random(100); //返回一个0到100间的随机数，可以等于0
oracle_lover 2002-09-10
- 打赏
- 举报
var i:integer;
begin
Randomize; //必须有
i:=Random(100); //返回一个1到100间的随机数
end;
begin
Randomize; //必须有
i:=Random(100); //返回一个1到100间的随机数
end;
耙子 2002-09-10
- 打赏
- 举报
R=(s * m) mod n;
S是种子，
m 和 n是个常数；
m足够大就行，
n 是 随机函数的范围。 比如 想得到 0~99的随机函数，那么n = 100
这个是伪随机函数，种子的选择很重要，如果种子相同，那么得到的随机数列也是相同的。
S是种子，
m 和 n是个常数；
m足够大就行，
n 是 随机函数的范围。 比如 想得到 0~99的随机函数，那么n = 100
这个是伪随机函数，种子的选择很重要，如果种子相同，那么得到的随机数列也是相同的。
