Delphi 生成指定范围和个数的不重复的随机整数-木庄网络博客

本文整理自网络，侵删。
 生成指定范围内的随机数，有相应的随机函数（如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
Delphi 生成指定范围和个数的不重复的随机整数

相关推荐

评论
