随机数的产生问题(50分)

流

流浪的小鸟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #1

各位大侠：
我在编一个程序，需要一次产生3000随机数，但是用randomize和random不行，因为
randomize不能用于循环，否则产生的随机数都是一样的，我在程序中加入60秒的延时，
单步执行可以生成不一样的随机数，但是全速执行就死机，等待的时间超过3分钟，
谁有随机数产生的函数，给一个用用。

 

扳

扳手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #2

random怎么回不行呢？

 

扳

扳手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #3

我用random做了测试，大约1秒多，生成3000个随机数。

 

A

age011

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #4

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
Randomize ;
for i:=1 to 3000 do
begin
memo1.lines.add(inttostr(Random(500)));
end;
end;

 

流

流浪的小鸟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-30

• #5

接受答案了.