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

#2

冰蟾子2011-06-27 15:46

没看懂

#3

xiakexing2011-06-29 11:50

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

yuutian2011-06-29 16:08

编译通过
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

yuutian2011-06-29 16:24

这样也可以：
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

小雨毛毛下2011-07-01 16:00

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

#7

小雨毛毛下2011-07-01 16:04

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