数字随机排序

假设有一组数字 1~1000,请将它们随机填充在一个数组中

要求：

1、数组中无重复数字

2、整个程式运算很快！

william 兄解答

var

Nums: array[1..1000] of integer;

i,j,k,temp: integer;

begin

for i := Low(Nums) to High(Nums) do

Nums[i] := i;

for i := 0 to 1000 do begin // 1001 round may not be enough

j := random(High(Nums))+1;

k := random(High(Nums))+1;

temp := Nums[j];

Nums[j] := Nums[k];

Nums[k] := temp;

end;

end;

Fishman 兄解答

我有一些新的想法，與大家共同分享、討論

PRocedure TForm1.Button11Click(Sender: TObject);

VAR

I,R : Integer;

S : TStrings;

begin

ListBox1.Items.Clear;

for i := 1 to 1000 do

begin

ListBox1.Items.Add(IntToStr(I));

end;

S := TStringList.Create;

S.Assign(ListBox1.Items);

ListBox2.Items.Clear;

FOR I := 1000 DOWNTO 1 DO

BEGIN

R := Random(I) + 1;

ListBox2.Items.Add(S.Strings[R - 1]);

S.Delete(R - 1);

END;

S.Free;

end;

在此我用ListBox 來代替 Array，以方便直接觀看執行結果

--------------------------------

小弟才疏學湥粲兄囌`請不吝指教

--------------------------------