【算法】产生多个随机数

 

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
var
  arr:array[0..9] of Integer;
procedure RandomNum;
var
  i,k,n:Integer;
  flag:Boolean;
begin
  arr[0]:=Random(10);
  for I := 1 to 9 do {for语句：保存互不相同的随机数到数组}
    begin
      flag:=True;
      while flag do  {while语句：循环算出不同于任一已存在数组元素的数值}
      begin
        n:=Random(10);
        flag:=False;
        for k := 0 to i - 1 do  {此for语句：将随机数n与已存在的数组元素作比较}
        begin
          if arr[k] = n then
          begin
            flag:=True;
            Continue;
          end;
        end;
      end;
      arr[i]:=n;
    end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  RandomNum;
  Edit1.Text:=IntToStr(arr[0]);
  Edit2.Text:=IntToStr(arr[1]);
  Edit3.Text:=IntToStr(arr[2]);
  Edit4.Text:=IntToStr(arr[3]);
  Edit5.Text:=IntToStr(arr[4]);
  Edit6.Text:=IntToStr(arr[5]);
  Edit7.Text:=IntToStr(arr[6]);
  Edit8.Text:=IntToStr(arr[7]);
  Edit9.Text:=IntToStr(arr[8]);
  Edit10.Text:=IntToStr(arr[9]);
end;

end.