一个随机抽取专家的系统,如何能让程序做到随机性呢?

解决方案 »

  1.   

    Randomize函数初始化随机数。random函数取得随机数。
      

  2.   

    真正的随机可是难说
    random用当前的时间做种子试试可以吗?
      

  3.   

    同意楼上;random函数也是人为的随机;
    楼主可以试试好不好用先;
      

  4.   

    random不是一个好的随机发生器,周期很小,随机因子取的是主板脉冲,一个好的随机发生器要靠好的算发
      

  5.   

    看看这个例子var
       I: Integer;
     begin
       Randomize;
       for I := 1 to 50 do begin
         { Write to window at random locations }
         Canvas.TextOut(Random(Width), Random(Height), 'Boo!');
       end;
     end;