Question

delphi中random取不重复的随机数。

我贴了代码，各位大神看看，我重复取了3次，为什么第一次取不到0，后面又能取到0。而且我把代码改成l:x:=random(num)，就变成死循环了。

后面这张效果图。





Answer 1

1、前面0的问题是因为（假定你现在输入的是5，即num为5），数组长度为5，但是随机数取值是random(5+1)，也就是随机数值是从0-5一共6个数，那自然有一个取不到。
2、改成random(num)的时候，for k:=0 to i do个滑虚尘人感觉应该是for k:=0 to i-1 do
3、随机数算法有很多简单的方法，比goto什么简单的多，比如最常见的伪算法
a.创建数组x[n]，并对每个元素赋值（比如说随机数在0-n之间信禅），那就誉笑x[0]=0、x[1]=1至x[n]=n;
b.从x[0]开始至x[n]，将元素随机与x[0-n]之间的任意一个数字交换
如果是delphi2010以上，也有TDictionary这类东西

Answer 2

你每次取的是0-5这6个数字，历闹只保存其中5个显示出来，肯定有一个数字没有。

就像第2次宽迟里面没有5一样。肢巧罩

为什么要用 goto ，continue就可以了

Answer 3

看起来程序一般情况下是死循环不了的.就是要求输入的num要不小于2,不然程序会出错的.

Answer 4

加入判断就行了，如果已经有这个数，重新取。直到找到不重复的。

Answer 5

初始化时将数组置为了0。由于你for k:=0 to i do 这个地方循环向后推了一位，导致当随机到0时，总是检查到0已存在，从而导致第一次宏纳不可能出现0这种情况则拆。这个地方应该改为for k:=0 to i-1 do
改成l:x:=random(num)出现死循环的原因跟前面一样，都是for k:=0 to i do的问题。循环到最后一次了，只剩下0没有被赋值蔽盯没，而又一直检测到0已存在。