1234随机组成一个8位的整数有什么好算法吗。(50分)

Y

yunxi126

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-20

• #1

1234随机组成一个8位的整数有什么好算法吗。
1234随机组成一个8位的整数有什么好算法吗。

 

Y

yunxi126

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-20

• #2

没人会吗。 。。。加分。。。300分。。

 

超

超级牛X

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-20

• #3

for i := 0 to 7 do
begin
.....
end

 

B

bmsr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-20

• #4

function Get8weiInt:integer;
var
i:integer;
st:string;
begin
st:='';
Randomize;
for i:=0 to 7 do
begin
st:=st+inttostr(random(3)+1);
end;
result:= strtoint(st);
end;

 

Z

zbr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-20

• #5

用RandomFrom函数。

 

X

xiammy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-21

• #6

1 2 3 4 都转换成二进制为 01 10 11 00
最简单的写法是Random，但是考虑到数目比较小，效率最高的是采用查询表方式：
P(4,4) = 4*3*2=24;
CDataTable = array[1..24] of Byte= (108, 177, ...); // 可以自动生成！
因此
begin
Randomize;
Result := CDataTable[Random(24)];
end;

 

A

asiasmm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-21

• #7

用　bmsr 的方法吧

 

B

bmsr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-21

• #8

to xiammy
好像应该是4的8次方65536种排列吧？

 

X

xiammy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-21

• #9

一个数字占2位：）

 

B

bmsr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-21

• #10

哦！你是这样理解的，那我也不知道了，看楼主是什么要求！

 

冰

冰力不足

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-21

• #11

搜密码字典代码 也许就能够解决问题

 

Y

yunxi126

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-21

• #12

我要把所有的从11111111 到44444444
全显出来。。。到memo1.text里面。

 

Y

yunxi126

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-21

• #13

把这65536个数全显到memo1.text 中。。

 

Q

qiu5211

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-21

• #14

randomize;
for I ;= 1 to 4 do
Result := Result + Inttostr(random(3)+1);

 

Q

qiu5211

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-21

• #15

哦，是8位，改到8 ，在strtoint下

 

Q

qiu5211

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-21

• #16

11111111 到 44444444 ？
最苯的办法
For I := 11111110 to 44444443 do
begin
s := Inc(i);
Memo1.lines.add(inttostr(s));
end;

 

Y

yunxi126

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-21

• #17

现在我不要随机数了。我想要从11111111到4444444都排出来
例如
11111111
11111112
11111113
11111114
11111121
.
.
44444443
44444444

 

Y

yunxi126

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-21

• #18

http://www.delphibbs.com/delphibbs/dispq.asp?lid=3578219 加到200分了。

 

Y

yunxi126

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-21

• #19

接受答案了.