关于数据的排列组合序列

[wildhorse01]

我有20个数据，要在其中列出所有的N位数的排列和组合，本来是想用嵌套，可是的层数不定，我不知道该怎么做：）

[wildhorse01]

N个数中不能有重复：）
是不是罗嗦？
哎，高中和大学的排列组合，还有概率都没学好：（

[ghostwang]

要用递归函数来实现。

[wildhorse01]

给个简单点的源码吧？
要多少分数都行：）

[wildhorse01]

快来帮帮忙吧！

[clasj]

我用database desktop编辑数据库。
其中有一个字段的type属性我设为memo,但是我在哪里编辑这一字段的内容呢？

[BCB]

递归肯定可以,但我编过非递归的,在家里的机上,后天才能带来

[wildhorse01]

帮忙看看吧？

[BCB]

我专门搞过,排列与组合,很成功
待找到,给你贴上

[yuanque]

估计用递归可以做到，可以一试

[BCB]

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//--------组合C(m,n)--------------------------------------------------------------
typedef
class Combination
{
private:
int m,n;
public:
int *Array; // 存放数
Combination(int m0,int n0);
~Combination();
void GetFirst(); // 初始化
bool GetNext(); // 取下一组
} Combination;
Combination::Combination(int m0,int n0)
{
m=m0;n=n0;
Array=new int[m+1];
GetFirst();
}
Combination::~Combination()
{
delete[] Array;
}
void Combination::GetFirst() // 无重复
{
for (int i=1;i<=m;i++)
Array[i]=i; // 首组下标,M个数
}
bool Combination::GetNext()
{ // 求下一组,若有返true,否则为假
for (int i=m;i>=1;i--)
{
int b=Array[i];
if (b<n-m+i) //x[i]是否到了极限n-m+i
{
for (int j=i;j<=m;j++)
{
b+=1;
Array[j]=b;
}
return(true);
}
}
return(false); // 元素全到了极限，该结束了
}

//----------排列P(m,n)---------------------------------------------------------
typedef
class Permutation
{
private:
int m,n;
bool *set; // 集合1..n
int Greater(int x); // 取集合中更大的元素
public:
int *Array; // 存放数
Permutation(int m0,int n0);
~Permutation();
void GetFirst(); // 初始化
bool GetNext(); // 取的下一组
} Permutation;
Permutation::Permutation(int m0,int n0)
{
m=m0;n=n0;
Array=new int[m+1];
set=new bool[n+1];
GetFirst();
}
Permutation::~Permutation()
{
delete[] Array;
delete[] set;
}
void Permutation::GetFirst()
{
for (int i=1;i<=m;i++)
{
Array[i]=i; // 首组下标,M个数
set[i]=false;
}
for (int i=m+1;i<=n;i++)
set[i]=true;
}
int Permutation::Greater(int x)
{ // 取集合中比x大的一个数，没有返0
for (int i=x+1;i<=n;i++)
if (set[i])
{
set[i]=false;
return(i);
}
return(0);
}
bool Permutation::GetNext()
{ // 求下一组,若有返true,否则为假
for (int i=m;i>=1;i--)
{
int b=Array[i];
int b1=Greater(b);
set[b]=true; // 放回集合中
if (b1!=0)
{
Array[i]=b1;
b=0;
for (int j=i+1;j<=m;j++)
{
b=Greater(b);
Array[j]=b;
}
return(true);
}
}
return(false); // 元素全到了极限，该结束了
}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
char *d[100]; // 存放待排列的串
int m=4,n=6; // 从N数中取M个排列数
int js=0; // 组计数

d[1]="1"; d[2]="2";
d[3]="3"; d[4]="4";
d[5]="5"; d[6]="6";
Combination p(m,n); //C(4,6)=15组
do
{
String s="";
for (int i=1;i<=m;i++)
s=s+String(d[p.Array[i]])+" ";
Memo1->Lines->Add(s); // 显示
js=js+1;
}
while (p.GetNext()); //找下一组排列
Memo1->Lines->Add("共 "+String(js)+" 组");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
char *d[100]; // 存放待排列的串
int m=4,n=6; // 从N数中取M个排列数
int js=0; // 组计数

d[1]="1"; d[2]="2";
d[3]="3"; d[4]="4";
d[5]="5"; d[6]="6";
Permutation p(m,n); //P(4,6)=360组

do
{
String s="";
for (int i=1;i<=m;i++)
s=s+String(d[p.Array[i]])+" ";
Memo1->Lines->Add(s); // 显示
js=js+1;
}
while (p.GetNext()); //找下一组排列
Memo1->Lines->Add("共 "+String(js)+" 组");

}