数字随机排序

数字随机排序(1)

假设有一组数字 1~1000,请将它们随机填充在一个数组中
要求：
1、数组中无重复数字
2、整个程式运算很快！

Delphi.ktop.com.tw/pop_profile.ASP?mode=display&id=2494">william 兄解答

var Nums: array[1..1000] of integer; i,j,k,temp: integer;begin for i := Low(Nums) to High(Nums) doNums[i] := i; for i := 0 to 1000 do begin // 1001 round may not be enoughj := random(High(Nums))+1;k := random(High(Nums))+1;temp := Nums[j];Nums[j] := Nums[k];Nums[k] := temp; end;end;

Delphi.ktop.com.tw/pop_profile.ASP?mode=display&id=16495">Fishman兄解答

我有一些新的想法，與大家共同分享、討論
procedure TForm1.Button11Click(Sender: TObject);VAR I,R : Integer; S : TStrings;begin ListBox1.Items.Clear; for i := 1 to 1000 dobeginListBox1.Items.Add(IntToStr(I));end; S := TStringList.Create; S.Assign(ListBox1.Items); ListBox2.Items.Clear; FOR I := 1000 DOWNTO 1 DOBEGINR := Random(I) + 1;ListBox2.Items.Add(S.Strings[R - 1]);S.Delete(R - 1);END; S.Free;end;

在此我用ListBox 來代替 Array，以方便直接觀看執行結果
Delphi.ktop.com.tw/icon_smile.gif" align=middle border=0> 
--------------------------------
小弟才疏學淺，若有謬誤請不吝指教
--------------------------------