小问题？！~~~

[wsh1688]

怎么让计算机随机产生一组10位数的序号？？！~~~

给个代码：）

[flyforlove]

var
ai:array[1..10] of integer;
s:string;
i:integer;
begin
s:='';
randomize;
for i:=1 to 10 do
ai[i]:=random(9);
for i:=1 to 10 do
s:=s+inttostr(ai[i]);
end;

没有delphi,所以也没有调试,不知道对不对.

[wsh1688]

ok

我想问一下这个random这个我知道是随机产生数，那randomize是什么意思？？

[tonylk]

randomize 初始化随机种子

[wsh1688]

什么是随机种子

还有这种随机产生数的重复率有多高

[flyforlove]

说实话,我也不清楚randomize 到底是怎么工作的
现在计算机还无法产生真正的随即数,
用randomize是为了,每次产生的随即数列不同.
还有0=<random(i)<i
所以应该是random(10)