数字随机排序 关键字：程序开发 来源：8844软件服务 pqspqs创建于 2006-12-27 23:07 阅读 730次   网友评论 0条 假设有一组数字 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; cellpadding=0 height=18> 在此我用ListBox 來代替 Array，以方便直接觀看執行結果 --------------------------------小弟才疏學淺，若有謬誤請不吝指教--------------------------------（完）>

『打印』 『收藏』 『导出Word』

发表评论：共有 0条 评论 查看全部评论

验证码：

关键字：