如何取到0-9的随机数？（急）(30分)

S

sunnysheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-21

• #1

如何在0-9之间产生一个给定长度的随机数？若要长度达到20位应该怎样实现？<br>比如：长度为1 ，随机数为8<br>&nbsp; &nbsp; &nbsp; 长度为2， 随机数为38<br>&nbsp; &nbsp; &nbsp; 长度为3 ，随机数为558<br>&nbsp; &nbsp; &nbsp; ......<br>&nbsp; &nbsp; &nbsp; 长度为20 ，随机数为01234567890123456789

 

S

skadon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-21

• #2

function GetS(len:integer):string;<br>var<br>&nbsp; i:integer;<br>begin<br>&nbsp; Result:='';<br>&nbsp; for i:=1 to len do Result:=Result + inttostr(Random(10));<br>end;

 

Z

zhoufujin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-21

• #3

function GetS(len:integer):string;<br>var<br>&nbsp;i:integer;<br>begin<br>&nbsp;Result:='';<br>&nbsp;for i:=1 to len do <br>&nbsp;Begin<br>&nbsp; randomize;<br>&nbsp; Result:=Result + inttostr(Random(10));<br>End;<br>end; &nbsp;<br><br>

 

S

sunnysheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-07

• #4

多人接受答案了。