概率问题(送80分)

Question

我想写个概率的算法   鸡25%  马60%  羊5%  狗10%  当我按下button1后 按百分比 现实随机概率出现的结果

Answer 1

定义一个变量，利用random取随机值计算，0-24鸡，25-85马，86-90羊，91-100狗，接下来就是一个简单的输出问题了Procedure a; 
var 
i:integer; 
begin 
randomize; 
i:=random(100); 
if i<25 and i>0 then 伪代码，没有测试过，可能要自己完善下……

Answer 2

最好是先用秒数,再random因为之前试过,第一次打开程式,random 13.1.23...
关了程式,再打开,还是从13开始

Answer 3

Procedure a; 
var 
i:integer; 
begin 
randomize; 
i:=random(100); 
if i<=25 and i>=0 then 
begin 
ShowMessage('ji'); 
end 
else if i>=26 and i<=85 then begin 
ShowMessage('ma'); 
end;
else if i>=86 and i<=90 then begin 
ShowMessage('yang'); 
end;
else if i>=91 and i<=100 then begin 
ShowMessage('gou'); 
end;
end; 
在网吧没编译器，自己测试下吧……