关于随机数的问题~请大家看看(5分)

T

tiger_520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #1

label.caption为从0到9这十个数中任意一个数，caption一开始随机给一个数（假设为1），
那么caption的下一个数中只能从0、2、3、4、5、6、7、8、9中任意出一个（1除外），假如
caption为4，那么下一次caption只能从4除外的九个数中任意给一个。高手们看看该怎么个做
法，给个代码看看

 

来

来如风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #2

好办
假设这次为i，那么下次改为 （i+rodom(9))mod 10;肯定不会重复的
//随机数的生成的函数可能让我写错了，大概就是这个意思吧

 

来

来如风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #3

好办
j:=romdom(8)+1;
假设这次为i，那么下次改为 （i+j)mod 10;肯定不会重复的
//随机数的生成的函数可能让我写错了，大概就是这个意思吧

 

T

tiger_520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #4

TO如风：
我还是不怎么明白呢~我这里是响应BUTTON1的CLICK事件，label的caption就随机出
0~9的数字，每次都不相同。随机函数用random。能告诉我具体该如何来操作吗？

 

来

来如风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #5

闲着也是闲着，
助人乃快乐之本啊
时间里面写
var
i,j:integer;
begin

i:=strtoint(lable1.caption)://假设窗体初始化的时候已经有了
j:=random(8)+1;//j为1 到9
label.caption:=inttostr((i+j)mod 10);//这样的结果正好为i的值向后循环，最多是9次
//最少是一次，所以不会重复
end;

没解决的话下午说

 

T

tiger_520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #6

假如说数字并不是0到9，而是0到3，你的做法就行不通了。0到9可行。

 

T

tiger_520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #7

接受答案了.