数字随机排序

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

　　william 兄解答

varNums: array[1..1000] of integer;i,j,k,temp: integer;beginfor 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;

Fishman  兄解答

　　我有一些新的想法，與大家共同分享、討論
（本文来源于图老师网站，更多请访问https://m.tulaoshi.com/bianchengyuyan/）
　　
procedure TForm1.Button11Click(Sender: TObject);VARI,R : Integer;S : TStrings;beginListBox1.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，以方便直接觀看執行結果
　　 
　　
　　--------------------------------
　　小弟才疏學湥粲兄囌`請不吝指教
　　--------------------------------
（本文来源于图老师网站，更多请访问https://m.tulaoshi.com/bianchengyuyan/）