易截截图软件、单文件、免安装、纯绿色、仅160KB

Delphi 排列组合 - Delphi / 语言基础/算法/系统设计

比如 4,6,8,12,16,17,20,28,29,30,31这几个数中取8个数
怎么得出 这组数可以组成哪些组合?
穷举法

引用
比如 4,6,8,12,16,17,20,28,29,30,31这几个数中取8个数
怎么得出 这组数可以组成哪些组合?


问题 是我不会写啊 你写过吗 可以发段代码 我参考参考吗

简单的用for循环,一个个去排列

for i := 1 to 8 do
  begin
  for j:= (i+1) to 8 do
  begin
  Memo1.Lines.Add(IntToStr(a[i]) + ',' + IntToStr(a[j]));
  end;
  end;

这是选出数据后排列的代码,但选出数据的代码我也不知道,查了下网站需要用到递归,比较复杂,等待高手能够写出从M个数中取中N个数的组合代码

递归算法
Delphi(Pascal) code:

procedure TForm1.Button1Click(Sender: TObject);
var
s1,s2:string;
str,str1:TStrings;
i,j,m,n:Integer;
begin
s1:=Trim(self.Edit1.Text);//这里就是你的字符串‘4,6,8,12,16,17,20,28,29,30,31’
s2:=Trim(self.Edit2.Text);//这里输入8
if (s1='') or (s2='') then
Exit;
str:=TStringList.Create;
str.Clear;
str1:=TStringList.Create;
str1.Clear;
self.getn(s1,'',StrToInt(s2),str);
i:=str.Count;
self.Memo1.Lines.Clear;
for j:=0 to i-1 do
begin
s1:=str.Strings[j];
self.Memo1.Lines.Add(s1);
end;
end;

procedure TForm1.getn(ss,


相关问答:

请教下,用DELPHI做SOHU的 - Delphi / 非技术区

一般都是怎么接活的?
收入怎么样
sohu?soho?

sohu 可能是small office house unit
小办公室,把家变成单位。

去威客网啊,很多个呢,还有外包的网站

学习学习。

现在Delphi做东西不行了,处于淘汰状 ......

delphi书写格则? - Delphi / 非技术区

在网上看到很多人写程序代码,写的代码每一行都是要么就空一个空格,要么就空好几个,这个有规定吗?怎么看?
以下是我在网上找的一段程序代码
===================================================================== ......

delphi 转 bcb - C++ Builder / 基础类

function ReadTime(intDevno: Integer; var strGet: Pchar): Integer; stdcall; external 'ast.dll'; //读取日期时
bcb调用delphi 的dll这句在bcb中如何转化。
应该是C/C++ code:
int __stdcall ReadTime(int in ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号