【Delphi 产生了范围随机数 条件可以自己改】

最新推荐文章于 2021-02-01 01:56:16 发布
原创 最新推荐文章于 2021-02-01 01:56:16 发布 · 1k 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文介绍了两种使用Delphi生成特定范围内的随机数的方法。第一种方法通过循环确保生成的随机整数位于100到999之间；第二种方法利用了usermath单元，生成50到99之间的随机数。

procedure TForm1.Button1Click(Sender: TObject);

var
i:Integer;
begin   //产生了100-999的数 条件可以自己改
Randomize;
i := random(999);
while (i < 100) do
i := random(999);
edit1.Text:=inttostr(i);

end;

 

第二种方法  单元添加user math

procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;
begin
randomize;
a:=randomrange(50,99);
edit1.Text:=inttostr(a);
end;

Qt开发经验总结
草上爬的博客
12-02 1万+
增加了很多轮子，同时原有模块拆分的也更细致，估计为了方便拓展个管理。把一些过度封装的东西移除了（比如同样的功能有多个函数），保证了只有一个函数执行该功能。把一些Qt5中兼容Qt4的方法废弃了，必须用Qt5中对应的新的函数。跟随时代脚步，增加了不少新特性以满足日益增长的客户需求。对某些模块和类型及处理进行了革命性的重写，运行效率提高不少。有参数类型的变化，比如 long * 到 qintptr * 等，更加适应后续的拓展以及同时对32 64位不同系统的兼容。
delphi 编写的多功能的随机数生成器 支持任意位数，任意区间，保留任意位小数（小于9），支持导出csv,excel格式,绿色无限制
03-01
delphi 编写的多功能的随机数生成器，支持任意位数，任意区间，保留任意位小数（小于9），支持导出csv,excel格式,绿色无限制.
Delphi 中生成指定范围不重复的随机数
LMin_HDS的博客
11-23 6391
刚开始学习Dephi，写这个相当于学习笔记，有不正确的地方，请各位大神多多指教 生成指定范围的不重复大的随机数  指定随机数的范围，生成不重复的随机数 while si             begin               randSum[si]:= Random(maxSum-minSum)+minSum;               //maxSu
生成一定范围内的随机小数
09-29
生成一定范围内的的随机小数，以时间为种子，参数可调
delphi生成随机数
06-18
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<l;i++){ if(x<k[0][i]){ //小于当前值时插入，数组是按自然顺序存储的 //如果生成的随机数与当前值的偏差为1，与当前值合并 if(k[0][i]-x==1){ k[0][i]=x; if (k[0][i]-k[1][i-1]==1) //如果与前一个范围值的最大值的值差为1与前一个值合并 {k[1][i-1]=k[1][i]; move(l-1,i); l--;} break;} //如果与但前范围值差大于1 else{ for(int j=l;j>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<m;j++){ k[0][j]=k[0][j+1]; k[1][j]=k[1][j+1];} k[0][m]=0; k[0][m]=0; } public void r(){ //生成随机数的主函数 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<count;i++){ int z; if(l>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<rr.count;i++) }*/ }
delphi提取任意长度随机数
hello simon
01-16 4158
设定随机数范围, 返回数组长度, 得到一组不重复的随机数 unit Unit11; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm11 = class(TForm) btn
Delphi Random() 随机函数
qq_33577118的博客
12-11 1341
Delphi Random() 随机函数 函数原型：function Random ( Range: Integer) :integer; 参数：Range:整数， 返回值：整数，其范围为： 0 <= Random(Range) < Range (指定Range) 0 <= Random< 1 (不带参数Range) Random（）生成随机数。（运行几次会发现取得的随机数一样，因为系统的随机种子没有改变，Ramdomize; 用来改变随机种子）。 例： begin Ra
delphi 开发经验技巧宝典源码
08-12
0143　使用Random函数产生7个随机数　91 0144　使用DiskFree函数返回磁盘驱动器的剩余空间　91 0145　如何使用Printer函数　92 0146　使用SetPriner函数修改打印机信息　93 0147　使用BeginThread函数产生线程　94 ...
基于Delphi的小学四则运算出题器源码
从描述“用Delphi编写的小学四则运算出题器源码”可以判断，该项目是以Delphi作为开发语言实现的完整源代码工程。Delphi是一种基于Object Pascal语言的集成开发环境（IDE），由Borland公司推出，广泛用于Windows平台...
delphi 开发经验技巧宝典源码06
08-12
0143　使用Random函数产生7个随机数　91 0144　使用DiskFree函数返回磁盘驱动器的剩余空间　91 0145　如何使用Printer函数　92 0146　使用SetPriner函数修改打印机信息　93 0147　使用BeginThread函数产生线程　94 ...
delphi产生不同随机数
10-14
产生不同随机数，利用delphi产生不同随机数。
delphi Random（）函数
slj_win的专栏
05-14 2万+
Random() 在Delphi中，有一随机函数，是这样定义的： function Random [ ( Range: Integer) ]; 其中，参数Range为一整数， 该函数返回值也为整数，其范围为： 0 0 Random（）用来取得随机数，不过如果多运行几次会发现每次取得的随机数都是一样的。这是因为系统的随机种子没有改变，每次运行都是用同一个随机种子取的数。Ramd
Delphi常用随机函数
热门推荐
kimifdw的专栏
02-19 3万+
1. Random function Random [ ( Range: Integer) ];：产生一个0 Random(10); //随机产生一个大于等于0小于10的数 使用Random之前，要先用Randomize过程或RandSeed函数来初始化随机数产生器。   2. RandomFrom function RandomFrom(const AValues: array o
delphi随机数种子
qq_27977921的博客
09-02 1170
randseed
delphi random_delphi随机数random，随机数种子randseed，获取不重复随机整数，随机0-1小数的方法...
weixin_39554021的博客
12-21 2538
说到delphi获取随机数，很多人可能会说直接用random取随机数就好了，其实不然，如果只是单纯的random的话，那么获得随机数是伪随机数，产生的随机数序列是相同的，就会出现重复的情况。那么，怎么获得真正的随机数呢？那就不得不说一下randseed(随机数种子)这个函数了。我们今天就来详细的说一下delphi获取不重复随机数、以及获得随机整数，随机小数，获取某范围内的随机数的方法。前面已经说了...
delphi random_Delphi 7 中的随机函数
weixin_39669769的博客
02-01 694
Delphi 7 中的随机函数1、RandSeed：随机数发生的“种子”。如果不赋值那么每次执行产生的随机数列是一样的。 所以该值必须每次调用均应是不同值。如：unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;type...
Delphi中随机函数Random应用两则
wozengcong的专栏
01-16 4491
1. 自动随机出题 　　你也许有这样的经历：孩子刚上学，数学老师要你每天给出10或者20道算术题，作为你孩子的家庭作业，你是否有点烦？别着急，电脑可帮你忙！ 在Delphi中，有一随机函数，是这样定义的： function Random [ ( Range: Integer) ]; 其中，参数Range为一整数， 该函数返回值也为整数，其范围为： 0 0 　　下面的过程fo
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

再创世纪

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值