DELPHI产生不重复随机数的简便算法
来源:互联网 发布:java api安卓版 编辑:程序博客网 时间:2024/05/20 16:01
产生不重复随机数的算法能够解决诸如随机洗牌,抽彩等问题,在网上的一些算法自觉较繁,现给出简单的算法。以下源程序为1..36个数字,随机排列,产生不重复随机数。
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; //由此得到不重复的随机排列数字
0 0
- DELPHI产生不重复随机数的简便算法
- 产生不重复随机数的简便算法
- 产生不重复随机数的简便算法
- 一个产生不重复随机数的算法
- C# 不重复随机数的产生算法!
- 关于产生不重复随机数的算法
- 产生不重复的随机数
- 产生不重复的随机数
- 产生不重复的随机数
- 产生不重复的随机数
- 产生不重复的随机数
- 产生不重复的随机数
- 产生不重复的随机数
- 产生不重复的随机数
- 产生不重复的随机数
- 产生不重复的随机数
- 产生N个不重复的随机数的快速算法
- 产生N个不重复的随机数的快速算法
- spark源码阅读笔记Dataset(三)structField、structType、schame
- 剑指Offer面试题35:第一个只出现一次的字符
- 初识C#线程
- portable python是个好东西
- 萌梦聊天室16.9.23.77更新
- DELPHI产生不重复随机数的简便算法
- BufferedWriter
- Exercise(25):Cantor表
- 设计模式之-建造者模式
- swift3新路程(6)参数的标签、自定义标签和"_"
- 51Nod-1460-连接小岛
- 二、ListView的高级优化
- oxford-cs-ml-2015/practical6 代码解读(LSTMs for language modelling)
- 循环队列的c语言实现