程序执行到分支处,计算函数function(odd:double):boolean,返回值为true则执行A分支,否则执行B分支。若希望对任意指定的odd,在程序循环中多次执行后,能够以接近odd的概率执行A分支,1-odd的概率执行B分支。
解决方案 »
- record赋值问题
- 一个dll函数调用的问题(指针参数)
- 求下载代码
- 如何把DBGrid中的数据导出成一个二进制文件,希望有源码或者例子??????
- delphi 程序员的未来之路-充满了悬念
- ado控件哪些比较常用,与传统的ado对象比较,使用哪些比较好。
- 关于打印报表按页汇总时出现的问题?
- 图片如何存入SQL Server的table中?
- toolbar上的按钮,偶用actionlist控制,但偶怎么能实现这些按钮与菜单的选项关联呢?偶设置了菜单选项的action属性,但运行后,按钮都不
- 求助:delphi 语句修改Sql Server 自定义函数无响应求助
- Delphi对文件的操作
- 小问题,该如何办.
begin
randomize;
if random(2)=1 then A
else B;
end;
var
r:double;
begin
randomize;
r:=random;
result:=r<odd;
end;
var
r:double;
begin
randomize;
r:=random(1);
result:=r<odd;
end;
function TForm1.GenerateOdd(const odd:double):boolean;
begin
Randomize;
Result:=Random(10000)<10000*odd;
end;
是我粗心了,我没注意到参数是可选的