假设有一组数字 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，以方便直接觀看執行結果
--------------------------------
小弟才疏學淺，若有謬誤請不吝指教
--------------------------------
本文地址：http://com.8s8s.com/it/it4912.htm