假设有一组数字 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] ...[ 查看全文 ]
利用oracle的dbms_random包结合rownum来实现,示例如下,随机取499户: select * from ( select * from busi.t_ar_userinfo order by dbms_random.value) where rownum 500; 有关dbms_random的参考文献,链接为:http://www.psoug.org/reference/dbms_random.html Deprecated. Use the methods in the DBMS_CRYPTO built-in package,这个包已经不建议使用了 附,dbms_random几个参数的介绍: fun...[ 查看全文 ]