請問 七個數字中取得六個數字成一組共可組成七組如下    計算方式 (7*6*5*4*3*2)div(720)= 7 組 123456 123457 123467 123567 124567 134567 234567 以上如何用 DELPHI 程式來完成上列的排列組合 謝謝

1.請問是七位數, 還是七個數? 2.若是七位數, 則此七位數是否每位的數字皆須不同,不可重複? 比如說2334566 每位數字需依大小排列? 比如說: 9274135這個可以嗎? 3.取出的數字是否需按大小排列? PS:七個取六個的排列組合結果不是7. 當七個裡頭都不重複時,七個取六個的結果才是七 發表人 - johnnychang 於 2003/02/27 08:30:49

阿要寫樂透組合程式喔??

procedure xx(a:array of byte; l:TStrings);
var i,j:integer;
   s:string;
begin
  for i:=0 to 6 do begin
    s:='';
    for j:=0 to 6 do begin
      if j<> i then
        s:=s inttostr(a[j]) ' ';
    end;
    l.add(s);
  end;
end;    procedure TfmIBTest.Button1Click(Sender: TObject);
begin
  xx([1,3, 5, 42,23,12,13],memo1.lines);
end;

ccchen 版主 謝謝你 正確答案