频道分类

Delphi 生成指定范围和个数的不重复的随机整数

作者:admin 来源: 日期:2020/1/19 15:00:36 人气: 标签:

 
生成指定范围内的随机数,有相应的随机函数(如RandomRange(x, y)可生成x <= d < y的随机整数),或者在基本的随机函数上稍加修改也可生成;生成 n 个随机数,只需调用 n 次随机函数即可;生成 n 个不重复的随机数,就会有一点点小麻烦。

常规思路
一般来说,要生成n个不重复的随机数,只需判断每次生成的随机数有没有和这前生成的随机数重复即可,若重复即抛弃,不重复则记录。

但是,这样要进行很多额外的判断,而且当生成的量变大时,这样的判断次数也几乎是呈指数级的增加(具体复杂度没有进行详细分析)。

另一种思路
如果每生成一个随机整数,就在一个整数序列上对应的位置做一个标记,那么只需要判断标记的个数有没有达到n即可,然后把有标记的整数取出就是 n 个不重复的随机整数。(其实该思路是借鉴了某个排序算法的思路,具体算法名称不记得了)

首先来考虑生成 n 个[0, m)的不重复的随机数方法,n < m。

var
  i: Integer;
  tmpMark: array of Integer;
begin
  SetLength(tmpMark, m);
  repeat
    Randomize;
    i := RandomRange(0, m); //[0,m)半开半闭区间
    tmpMark[i] := 1;
  until SumInt(tmpMark) = n;
  for i := 0 to m - 1 do
    if tmpMark[i] = 1 then
      i; //i即为随机出的不重复的整数
end;
本例中借助长度为m的数组tmpMark来进行标记,同时使用delphi自带的SumInt(在Math单元)函数来计算标记的个数,有标记的tmpMark下标即为随机出的整数。

对于[x, y)区间,可以在[0, m)的基础上进行平移来实现,n < y - x。

var
  l, i: Integer;
  tmpMark: array of Integer;
begin
  l := y - x;
  SetLength(tmpMark, l);
  repeat
    Randomize;
    i := RandomRange(x, y); //[x,y)半开半闭区间
    tmpMark[i - x] := 1;
  until SumInt(tmpMark) = n;
  for i := 0 to l - 1 do
    if tmpMark[i] = 1 then
      i + x; //i+x即为随机出的不重复的整数
end;

来源:https://my.oschina.net/afrusrsc/blog/3001060