随机数(10分)

蓝

蓝蒙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-19

• #1

怎样产生小于10 的8个不相同的随机整数？？

 

K

kerbcurb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-19

• #2

for i := 1 to 8 do
begin
RND := random(9);
Memo1.Lines.Add(IntToStr(RND));
end;

 

A

appfirst

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-19

• #3

好像有个函数较RandomRange

 

F

fadey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-19

• #4

首先要调用randmize，然后用random(10)产生小于10的数，需要不重复的话需要自己在程序中判断，重复的就不保存
var
a: array[1..8] of integer;
i,j: integer;
begin
randmize;
j := 1;
while j<=8 do
begin
a[j] := random(10);
inc(j);
for i:=1 to j-2 do
if a[j-1]=a then
begin
dec(j);
break;
end;
end;
end;

 

蓝

蓝蒙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-20

• #5

大家的都重复了啊