请教一个关于Random问题(100分)

R

renaihao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-17

• #1

比如 Random(6)

我想让他随机不到2应该怎么写呢 想了好半天也想不通

 

5

5207

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-18

• #2

要不你就在得到结果之后检查一下咯。呵呵。

 

I

iamy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-18

• #3

先初始化一下看看
Randomize
然后再调用
Random

 

L

lishanhu8457

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-18

• #4

function GetRandomValue: Integer;
begin
Result := Random(6);
while (Result = 2) do
Result := Random(6);
end;