求一简单算法,在线等! 数据:1 1.5 2 2.5 3 3.5 4 4.5 5 5.5 6 6.5 7 7.5 8 8.5 9 9.5 为随机产生,写一函数,运算一次取比较大的数的概率升高一倍。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 function getRandom: single;var i: integer;begin Randomize; i := Random(27);//0--26 if i < 9 then//0-8对应1-5 Result := i / 2 + 1 else//9-26对应5.5-9.5 Result := (i - 7) div 2 / 2 + 5;end; 近似解法set1 1 1.5 2 2.5 3 3.5 4 4.5 5set2 5.5 6 6.5 7 7.5 8 8.5 9 9.5以前可能等价为set1,set2先随机先择,再随机选择相应集合内的数.现可以加set3 5.5 6 6.5 7 7.5 8 8.5 9 9.5选择方法先3选1,再选择数.不过这不是楼主说的提高一倍,不知解的对否? 遍历硬盘文件时,第一次都会比较慢 恭喜小虫喜获小小虫 关于窗体的问题 棘手!如何显示一个较大的文本文件 关于认证 打包问题??非常急用。。。 如何在W2K下屏蔽键盘上的Window键,请干过这类好人好事的高手指点一二:) dhtmledit控件问题,100分,马上给分!! 见鬼了!!我的WIN2000的riched32.dll只有4K.复制一个正常的替换后,自己立刻就变成4k!晕呀!!在线给分!! 继续请教各位前辈:当用table与database 控件连接SQL数据库时,如何将dbgrid与数据表相连? 如何修改这个过程?? 怎么把一个数据库里的图片在TDBImage里显示出来啊?急
var
i: integer;
begin
Randomize;
i := Random(27);//0--26
if i < 9 then//0-8对应1-5
Result := i / 2 + 1
else//9-26对应5.5-9.5
Result := (i - 7) div 2 / 2 + 5;
end;
set1 1 1.5 2 2.5 3 3.5 4 4.5 5
set2 5.5 6 6.5 7 7.5 8 8.5 9 9.5
以前可能等价为set1,set2先随机先择,再随机选择相应集合内的数.现可以加set3 5.5 6 6.5 7 7.5 8 8.5 9 9.5
选择方法先3选1,再选择数.不过这不是楼主说的提高一倍,不知解的对否?