请问大家delphi中产生随机数的函数是什么?

chen6191 2003-10-15 03:40:23
请问大家delphi中产生随机数的函数是什么?
...全文
253 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
divers 2003-10-16
  • 打赏
  • 举报
回复
ramdomize.
ramdom()
一起结合起来用。
tiger19760407 2003-10-16
  • 打赏
  • 举报
回复
同意 noil0125(珏心)
slchen 2003-10-16
  • 打赏
  • 举报
回复
up
IORILI 2003-10-16
  • 打赏
  • 举报
回复
同意
xinglinshu 2003-10-16
  • 打赏
  • 举报
回复
一定要用Randomize,不然产生随机数有规律。
reallike 2003-10-16
  • 打赏
  • 举报
回复
嘿嘿,大富翁有一个随机数的例子。

自己的随机数函数和random得比较。很有意思,可以看看。
EastBuBai 2003-10-15
  • 打赏
  • 举报
回复
Random [ ( Range: Integer) ]
tiexinliu 2003-10-15
  • 打赏
  • 举报
回复
function Random [ ( Range: Integer) ];
如果没有指定range,返回一个实形的数
wolf2005 2003-10-15
  • 打赏
  • 举报
回复
Random [ ( Range: Integer) ]
noil0125 2003-10-15
  • 打赏
  • 举报
回复
Random [ ( Range: Integer) ];

返回的随机数范围在 0 <= X < Range

I: Integer;
begin
Randomize;
for I := 1 to 50 do begin
{ Write to window at random locations }
Canvas.TextOut(Random(Width), Random(Height), 'Boo!');
end;
end;

delphi产生随机数2009-07-27 18:58//用delphi产生不重复的随机数 ****************************************************************************************** var aa : array[1..36] of string[2]; //aa数组为需要随机排列的数组,{先把1..36按顺序给aa数组赋值} procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin for i:=1 to 36 do begin aa[i]:=inttostr(i); bb[i]:=inttostr(i); end; end; {随机进行排列} procedure TForm1.Button1Click(Sender: TObject); var i,j:integer; swapa:string[2]; begin randomize; //随机数初始化*一定要有,不然下次运行时候产生的随机数仍然和这次相同* for i:=1 to 36 do begin j:=1+random(36); swapa:=aa[i]; aa[i]:=aa[j]; aa[j]:=swapa; end; //由此得到不重复的随机排列数字 ***************************************************************************************** 如何产生34-456之间的随机数 Randomize; 34+Random(456-34+1); ×××××××××××××××××××//下面是扫雷游戏的一个编法 procedure TForm1.Button1Click(Sender:TObject); begin Randomize; Memo1.Lines.Add(IntToStr(Random(20))); end; ×××××××××××× ***************************************************************************************** 随机数相关的几个函数: 1、RandSeed;//随时机数发生的“种子”。如果不赋值那么每次执行产生的随机数列是一样的。 所以该值必须每次调用均应是不同值。 2、Randomize;//用当前机器时间作为“种子”初始化随机数发生器。 3、Random() ;//由“种子”初始化的随机数出发,开始产生随机数序列 但是Delphi的Random()产生的是伪随机数,也就是说,程序的两次运行,Random()产生的随机数是一样的。 先运行一下Randomize,再Random就是真正的随机数了 即: Randomize //初始化随机数发生器 Random() ********************************************************************************************* delphi 如何产生不重复随机数 pascal里的随机数 随机数是指理论上没有规律可循、在指定范围内每个数的出现几率相等、无法根据之前的数来预测下一个数的数列。一般随机数生成器的基本原理是:首先初始化一个随机种子,其初始值可以是任意的整数;在每次获取随机数时,以随机种子为基础进行某种特殊的运算,获得一个随机数并返回之,然后再对随机种子进行某种运算,改变随机种子的值。这样,就可以生成许多比较随机的数,但同一个初始值的随机种子将会生成完全相同的随机数列。 Pascal的System单元提供了两个与随机数有关的子程序:Randomize和Random。 Randomize过程用于初始化随机种子,其初始值取决于当前的系统时钟。 Random函数用于获取随机数 它有两种调用形式: Random,返回一个0到1之间(不包括1)的随机实数; Random(N),返回0至N之间(不包括N)的随机整数,N为Word类型整数。 另外,System单元随机种子变量的标识符为RandSeed,你也可以手动修改它。随机数在信息学奥林匹克可用于随机化搜索、穷举等算法,以优化其性能,也可用于在快速排序选择关键数,以使其快速排序算法的最坏情况没有固定的相应数列。如果你希望使用了随机数的程序对同一个输入数据能有恒定的输出结果,可以设置RandSeed为一个定值。 ************************************************************************************************* 一个变态小算法 ******************************* 比较耗费机时,如果产生的数目少,就不要用这个算法了。 计算的是在一个范围内(如1-1000),随机抽取n个不相等的随机数。我的思想就是先定义一个用来存放的数组(这当然是必须的啦,废话),然后定义了一个二维数组(感觉很浪费空间),这个二维数组是用来存放已经生成随机数的范围,当然不是随意存放了,要按照自然顺序,但这还不必要定义二维的。二维主要是存放一个范围,即某一列的第一行存放的是范围的小值,而第二行存放的是范围的大值。这样新生成的随机数肯定是在范围之外的,因为范围是已生成随机数的范围啊。这样,每次取随机数时,先随机抽取在某两个范围数组值之间,再在这两个范围数组值之间取随机数。基本上就是这样了。 public class random { int count=500; //个数 int min=1; //最小值 int max=1000; //最大值 int[] r=new int[count]; //随机数存储数组 int[][] k=new int[2][count+2]; //存储范围数组,用于判断范围值 //一维数组用来存放范围的小值,二维用来存放大值 int l=0; //存储空间大小 public random() //初始化范围 {k[0][0]=min-1; k[1][0]=min-1; k[0][2]=max+1; k[1][2]=max+1; l=3; } public int ran(){ //来一个可以制造随机整数的东西 return (int)(Math.random()*1000000000); } public void p(int x,int c) //用来比较存储数组 { for(int i=0;ii;j--){ //后移数组为插入值留个位置 k[0][j]=k[0][j-1]; k[1][j]=k[1][j-1]; } k[0][i]=x; //插入值 k[1][i]=x; l++; if (k[0][i]-k[1][i-1]==1) //如果插入值与前一个范围值相差1,则与前一个值合并 {k[1][i-1]=k[1][i]; move(l-1,i); l--;} break; }} } } public void move(int m,int n) //与前一个范围值合并的函数 { for(int j=n;j函数 r[0]=ran()%max+min; //插入第一个值 if(r0==1) k[1][0]=r[0]; else{ k[0][1]=r[0]; k[1][1]=r[0];} for(int i=1;i2) z=ran()%(l-2); //判断有多少个空隙,就是有多少个范围,然后随机选取一个 else z=0; r[i]=ran2(k[0][z+1],k[1][z]); //在选取的范围制造随机数 p(r[i],i); } } public int ran2(int x,int y){ //在固定范围内制造随机数 int m=x-y; m=ran()%(m-1); return m+y+1; } /*public static void main(String[] args) { random rr=new random(); rr.r(); for(int i=0;i
内容简介 《Delphi 函数参考大全》详细地介绍了Delphi函数及其应用,是一本全面系统的Delphi函数参考大全。《Delphi 函数参考大全》通过大量的示例、典型应用帮助读者透彻理解Delphi函数及其应用。全书共分28章,包括字符串处理函数、数学计算函数、序数函数、三角函数、统计函数、金融函数、随机数函数、单位换算函数、日期函数、类型转换函数、异常处理函数、文件处理函数、图形计算与处理函数、格式转换函数、对话框函数、打印机函数、Com实用函数、窗口控制实用程序函数、菜单函数、向后兼容例程、行为支持函数与过程、Windows剪切板函数、流程控制、指针相关函数、线程管理函数、包支持函数、组件注册函数、内存管理函数等。 《Delphi 函数参考大全》配套光盘提供了书所有实例的源代码,所有源代码都经过精心调试,在Windows XP下测试通过,能够正常运行。 《Delphi 函数参考大全》内容精练、实例丰富,是各级程序开发人员必备的参考书,同时也非常适合大专院校师生阅读。 编辑推荐 《Delphi 函数参考大全》配套光盘提供了书所有实例的源代码,所有源代码都经过精心调试,在Windows XP下测试通过,能够正常运行。 《Delphi 函数参考大全》内容精练、实例丰富,是各级程序开发人员必备的参考书,同时也非常适合大专院校师生阅读。 作者简介 明日科技有限公司是一家以计算机软件技术为核心的高科技企业,多年来始终致力于行业管理软件开发、数字化出版物制作、计算机网络系统综合应用以及行业电子商务网站开发等领域,涉及生产、管理、控制、仓储、物流、营销、服务等行业。公司拥有软件开发和项目实施方面的资深专家和学习型技术团队,多年来积累了丰富的技术文档和学习资料,公司的开发团队不仅是开拓进取的技术实践者,更致力于成为技术的普及和传播者。

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧