有关用delphi写排列组合的技术问题请教

[cnhxjtoa]

条件：给出一组从1到30连续30个数字，如：1，2，3，4...30

1、列出所有的2个组合   ,如 (1，2)  (1,3) (1,4).....(29,30)一共有435组  求代码

 

为什么问这个问题？我在玩足球北单数字彩，因为一次最多只能选择15场，超出的部份就不能串了，所以我来请教大神

因为注数比较多，希望尽可能能用复式组合，多几注也没有关系，但愿能够全部覆盖

[BlueStorm]

你要这个东西?

procedure TForm1.FormCreate(Sender: TObject);
var
  S: String;
  I, J, Cnt: Integer;
begin
  Memo1.Lines.Clear;

  Cnt := 0;
  for I := 1 to 29 do
  begin
    S := '';
    for J := I+1 to 30 do
    begin
      if S <> '' then S := S + ', ';
      S := S + '(' + I.ToString + ',' + J.ToString + ')';
    end;
    Memo1.Lines.Add(S)
  end;
end;