请问怎么将彩票29选7的所有组合都显示出来(100分)

O

owen2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-26

• #1

请问怎么将彩票29选7的所有组合都显示出来
别说是一大堆FOR循环

 

B

bswilson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-26

• #2

你怎么来存放这一百多万个组合呢?

 

M

mengjie_lz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-26

• #3

我写过，不是很难，但产生的文件很大。

 

哈

哈利波特

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-26

• #4

[]

 

金

金圣叹

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-26

• #5

存放这一百多万个组合呢?

 

M

mlzhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-26

• #6

关注。感兴趣

 

M

mengjie_lz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #7

我不知道你是想要一个算法还是显示这几百个组合。
算法：
procedure Tform1.plzh(m,r:integer);
var
a:array[0..100] of integer;
i,j:integer;
hm:string;
begin
i:=0;
a:=1;
repeat
if(a-i<=m-r+1) then
begin
if(i=r-1) then
begin
hm:='';

for j:=0 to r-1 do
hm:=hm+'、'inttostr(a[j]);
memo1.Lines.Add(hm);
a:=a+1;
continue;
end;
i:=i+1;
a:=a[i-1]+1;
end
else
begin
if(i=0) then
exit;
i:=i-1;
a:=a+1;
end;
until(1<>1)
end;

m是要组合的总数　如　29
r是要抽取的数 如　7
如果是要组合29选7，文件很大，在MEMO是显示不完的，你可把它输出到一个文本文件后再用WORD打开

 

O

owen2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #8

又是一个新的算法
回去看一下