社区
Delphi
帖子详情
请问大家delphi中产生随机数的函数是什么?
chen6191
2003-10-15 03:40:23
请问大家delphi中产生随机数的函数是什么?
...全文
253
10
打赏
收藏
请问大家delphi中产生随机数的函数是什么?
请问大家delphi中产生随机数的函数是什么?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用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
生成随机数
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;i
i;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;i
2) 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
函数
参考大全.zip 并解压 第1章 字符串处理
函数
第2章 数学计算
函数
第3章 序数
函数
第4章 三角
函数
第5章 统计
函数
第6章 金融
函数
第7章 随机数
函数
第8章 单位换算
函数
第9章 日期
函数
第10章 类型转换
函数
第11章 异常处理
函数
第12章 文件处理
函数
第13章 图形计算与处理
函数
第14章 格式化
函数
第15章 对话框
函数
第16章 打印机
函数
第17章 COM实用
函数
第18章 窗口控制实用程序 第19章 菜单
函数
第20章 向后兼容例程 第21章 行为支持
函数
与过程 第22章 Windows剪贴板
函数
第23章 流程控制 第24章 指针相关
函数
第25章 线程管理
函数
第26章 包支持
函数
第27章 组件注册
函数
第28章 内存管理
函数
附录
Delphi
函数
索引
尹成Python27天入门到项目实战
算学费输入数据求最大精确划分思维解决最大次大交换数据实现按行显示围棋棋盘绘制国际象棋绘制为什么要用
函数
函数
的四种类型
函数
的一般形式必须用
函数
的理由-哥德巴赫
函数
的本质就是地址
函数
变量意义
函数
变量用途...
Delphi
函数
参考大全---(下)
Delphi
函数
参考大全-(下) 共两部分(
Delphi
函数
参考大全.z01 和
Delphi
函数
参考大全.zip),分别下载放到同一个文件夹下面打开
Delphi
函数
参考大全.zip 并解压 第1章 字符串处理
函数
第2章 数学计算
函数
第3章 序数
函数
第4章 三角
函数
第5章 统计
函数
第6章 金融
函数
第7章 随机数
函数
第8章 单位换算
函数
第9章 日期
函数
第10章 类型转换
函数
第11章 异常处理
函数
第12章 文件处理
函数
第13章 图形计算与处理
函数
第14章 格式化
函数
第15章 对话框
函数
第16章 打印机
函数
第17章 COM实用
函数
第18章 窗口控制实用程序 第19章 菜单
函数
第20章 向后兼容例程 第21章 行为支持
函数
与过程 第22章 Windows剪贴板
函数
第23章 流程控制 第24章 指针相关
函数
第25章 线程管理
函数
第26章 包支持
函数
第27章 组件注册
函数
第28章 内存管理
函数
附录
Delphi
函数
索引
Delphi
函数
参考大全.pdf
内容简介 《
Delphi
函数
参考大全》详细地介绍了
Delphi
函数
及其应用,是一本全面系统的
Delphi
函数
参考大全。《
Delphi
函数
参考大全》通过大量的示例、典型应用帮助读者透彻理解
Delphi
函数
及其应用。全书共分28章,包括字符串处理
函数
、数学计算
函数
、序数
函数
、三角
函数
、统计
函数
、金融
函数
、随机数
函数
、单位换算
函数
、日期
函数
、类型转换
函数
、异常处理
函数
、文件处理
函数
、图形计算与处理
函数
、格式转换
函数
、对话框
函数
、打印机
函数
、Com实用
函数
、窗口控制实用程序
函数
、菜单
函数
、向后兼容例程、行为支持
函数
与过程、Windows剪切板
函数
、流程控制、指针相关
函数
、线程管理
函数
、包支持
函数
、组件注册
函数
、内存管理
函数
等。 《
Delphi
函数
参考大全》配套光盘
中
提供了书
中
所有实例的源代码,所有源代码都经过精心调试,在Windows XP下测试通过,能够正常运行。 《
Delphi
函数
参考大全》内容精练、实例丰富,是各级程序开发人员必备的参考书,同时也非常适合大
中
专院校师生阅读。 编辑推荐 《
Delphi
函数
参考大全》配套光盘
中
提供了书
中
所有实例的源代码,所有源代码都经过精心调试,在Windows XP下测试通过,能够正常运行。 《
Delphi
函数
参考大全》内容精练、实例丰富,是各级程序开发人员必备的参考书,同时也非常适合大
中
专院校师生阅读。 作者简介 明日科技有限公司是一家以计算机软件技术为核心的高科技企业,多年来始终致力于行业管理软件开发、数字化出版物制作、计算机网络系统综合应用以及行业电子商务网站开发等领域,涉及生产、管理、控制、仓储、物流、营销、服务等行业。公司拥有软件开发和项目实施方面的资深专家和学习型技术团队,多年来积累了丰富的技术文档和学习资料,公司的开发团队不仅是开拓进取的技术实践者,更致力于成为技术的普及和传播者。
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章