关于随机数的简单问题，在线给分！！

Question

我想不断显示一些随机数，这些随机数有这种特点：
大部分时间在一个小范围内变换，偶尔会有一个突变，应该怎么实现？

Answer 1

你可以设置两个随即函数，其中一个辅助产生随机数（称做A，另一个称做B），你判断，当辅助随机数函数（A）产生的一个值超过一定的范围的时候调用，你让B的生成范围改变(Random的参数范围扩大)，这样就ok了

Answer 2

var
  i,j : integer;
  x,y : integer;
  const
  xleng=10;
begin
  randomize;
  for i :=0 to 10000000 do
  begin  //大范围内取一个随机数
    y := random(10000) ;
    for i := 0 to 30 do
    begin//小范围内每个循环取一个随机数与上面的随机数相加。
      x := y+ random (xleng);   
    end;
  end;
end;