主题：本人的问题
sunny88
[专家分：0] 发布于 2005-04-17 10:54:00
不知道大家对产生随机函数那个程序是否熟悉，能否给我解释一下。谢谢！
回复列表 （共8个回复）
沙发
47 [专家分：590] 发布于 2005-04-17 11:33:00
什么随机函数？
哪个题？
说清楚好解答
3 楼
小小的草根 [专家分：0] 发布于 2005-04-19 07:51:00
到底在问什么 ？？是不是问随机函数产生的原理啊？？
4 楼
smallboat [专家分：60] 发布于 2005-04-19 22:41:00
random(x);
产生一个0到x只见的随机数，所产生数据类型与x类型相同。
但是因为随机根相同，所以重复多次的会发现每次的随机数是相同的。
5 楼
faintzw [专家分：2660] 发布于 2005-04-19 22:54:00
细节问题，random(x)产生[0,x-1]的伪随机整数
6 楼
lyn532226 [专家分：230] 发布于 2005-04-22 13:28:00
我来试下吧，用函数来实现
function rand(var seed:real):real;
const
a=84;
m=8194;
c=1;
begin
seed:=a*seed+c;
seed:=round((seed/m-trunc(seed/m))*m);
rand:=seed/m;
end;
在开始的说明部分说明seed为实型，最后在程序体的开始部分为将变量seed初始化为一个小数，如：0。7835，那么该函数的作用是产生一个0至1之间的小数.
[em15]
7 楼
xuzhenyi [专家分：850] 发布于 2005-04-22 18:57:00
不要randomize初始化随机数码
8 楼
泡泡糖 [专家分：230] 发布于 2005-05-04 08:12:00
randomize；先初始化随机数码
rondom(a) 产生0到a之间的随机数（包括a)；
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 本人的问题