有界随机数

Delphi中产生有界随机数：
var
   RN, i:integer;
begin
   Randomize; //初始化随机种子
   for i:=0 to 10 do
      RN:=1+Random(63); //产生1－63的随机数，默认的Random下界是0，可以根据需要进行加减产生有界范围随机数
end;

转载于:https://www.cnblogs.com/neoyao/archive/2008/05/05/1183787.html