请教一个数据序列组合方法 - Delphi论坛

已结贴√ 问题点数：20 回复次数：6

请教一个数据序列组合方法

我知道一个连续的数组，如{1 2 3 4 5 6 7 8 9 10 11 12}组合成一个8个数以内不重复的数组可以用随机数来做，但是，一个不连续的数组如{1 2 3 5 6 7 11 12 15 18 19 20 26 31 35 39 40 52 55 56 57}将这些数组合成8个以内不重复的数，用DELPHI 7怎么编写程序。

搜索更多相关主题的帖子: 编写程序　

第 2 楼

得分:7

没看懂

欢迎到我的blog做客。。。。。。。。

第 3 楼

得分:7

var
a: array[0..20] of Integer =(1,2,3,5,6,7,11,12,15,18,19,20,26,31,35,39,40,52,55,56,57);

procedure TForm1.Button1Click(Sender: TObject);
var
b:TStrings;
i,c:Integer ;
s:string ;
begin
Randomize ;
b := TStringList .Create;
try
  for i := 0 to 20 do b.Add(IntToStr(a[i]));
  for i := 0 to 7 do  //这个选8个数
       begin
        c:= Random(21-i);
        s:=s+b[c]+'  ';
        b.Delete(c);
       end;
  mmo1.Lines.Add(s);
finally
   b.Free;
end;
end;

第 4 楼

得分:7

编译通过
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   a:array[0..20] of Integer;
   b:TStrings;
   i,c:Integer ;
   s:string ;
begin
   memo1.Clear;
   a[0]:=1;
   a[1]:=2;
   a[2]:=3;
   a[3]:=5;
   a[4]:=6;
   a[5]:=7;
   a[6]:=11;
   a[7]:=12;
   a[8]:=15;
   a[9]:=18;
   a[10]:=19;
   a[11]:=20;
   a[12]:=26;
   a[13]:=31;
   a[14]:=35;
   a[15]:=39;
   a[16]:=40;
   a[17]:=52;
   a[18]:=55;
   a[19]:=56;
   a[20]:=57;
Randomize;
b:=TStringList.Create;
try
  for i := 0 to 20 do
      b.Add(IntToStr(a[i]));
  for i := 0 to 7 do
       begin
        c:= Random(21-i);
        s:=s+b[c]+'  ';
        b.Delete(c);
       end;
  memo1.Lines.Add(s);
finally
   b.Free;
end;
end;

end.

第 5 楼

得分:0

这样也可以：
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   a:array[0..20] of Integer;
   i,c:Integer ;
   s:string ;
begin
   memo1.Clear;
   a[0]:=1;
   a[1]:=2;
   a[2]:=3;
   a[3]:=5;
   a[4]:=6;
   a[5]:=7;
   a[6]:=11;
   a[7]:=12;
   a[8]:=15;
   a[9]:=18;
   a[10]:=19;
   a[11]:=20;
   a[12]:=26;
   a[13]:=31;
   a[14]:=35;
   a[15]:=39;
   a[16]:=40;
   a[17]:=52;
   a[18]:=55;
   a[19]:=56;
   a[20]:=57;
Randomize;
  for i:=0 to 7 do
       begin
        c:=Random(21-i);
        s:=s+inttostr(a[c])+'  ';
       end;
  memo1.Lines.Add(s);
end;

end.

第 6 楼

得分:0

谢谢各位老大，最近比较忙没有及时结贴，大哥哥、大姐姐们多多包含。

第 7 楼

得分:0

新手上路，还请各位老大多多指教。