有"a,b,c,d,e......"每三个一组，能有多少种组合模式？

[aa20000]

有"a,b,c,d,e......"每三个一组，能有多少种组合模式？
我需要获得的情况如下：

a-b-c, b-c-d, a-c-d....不能出现重复组合

请给出实例，谢！

[aa20000]

这个帖子我可能没有说的清楚，重新开帖。

[披着虎皮的石头]

组合关系，而非排列关系，可以查询排列组合公式。

[andwo]

n个字母的话，公式是C(n,3) = n*(n-1)*(n-2)/3! = n*(n-1)*(n-2)/6 如a,b,c,d,e 则有a-b-c,a-b-d,a-b-e,a-c-d,a-c-e,a-d-e,b-c-d,b-c-e,b-d-e,c-d-e共10，公式为5*4*3/6 = 10

[hsfzxjy]

26C3=2600种，算法若要简单可用递归

[aa20000]

我意思是如何把组合的结果生成出来。

[aa20000]

把组合结果显示出来，如下： ======================== a-b-c, a-b-d, a-b-e, a-c-d, a-c-e, a-d-e, b-c-d, b-c-e, b-d-e, c-d-e ....

[andwo]

参考http://bbs.csdn.net/topics/401579

[猴子先生大宝贝]

procedure TForm1.btn1Click(Sender: TObject); var a, b, c: Integer; begin mmo1.Clear ; for a := 97 to 120 do begin for b := (a + 1) to 121 do begin for c := (b + 1) to 122 do begin mmo1.Lines.Add(chr(a) + '-' + chr(b) + '-' + chr(c)); end; end; end; end;

[aa20000]

你好，请问只能局限于“ABC”这三个组合对象吗？

引用 7 楼 mysterx 的回复:

procedure TForm1.btn1Click(Sender: TObject); var a, b, c: Integer; begin mmo1.Clear ; for a := 97 to 120 do begin for b := (a + 1) to 121 do begin for c := (b + 1) to 122 do begin mmo1.Lines.Add(chr(a) + '-' + chr(b) + '-' + chr(c)); end; end; end; end;

[猴子先生大宝贝]

我写的是所有组合。你执行下看看即可。你要求的所有。