diff --git a/src/randoms.mpsrc b/src/randoms.mpsrc
index 47208986a7c3ec5ee5961b0963535515e0d27b8e..d4e8dea8279b2fe7c23650b1a5ada694d81c3198 100644 (file)
--- a/src/randoms.mpsrc
+++ b/src/randoms.mpsrc
function rnd(max:integer):integer;//Возвращает число от 0 до max\r
function rnd_pr(pr,p1,p2:integer):integer;\r
\r
function rnd(max:integer):integer;//Возвращает число от 0 до max\r
function rnd_pr(pr,p1,p2:integer):integer;\r
\r
+ (* Возвращает true с вероятностью x/y *)\r
+ function RandomBoolean(x, y : Integer) : Boolean;\r
+\r
implementation\r
var\r
next:integer;\r
implementation\r
var\r
next:integer;\r
if pr>=rnd(101) then rnd_pr:=p1; else rnd_pr:=p2;\r
end;\r
\r
if pr>=rnd(101) then rnd_pr:=p1; else rnd_pr:=p2;\r
end;\r
\r
-end.
\ No newline at end of file
+ function RandomBoolean(x, y : Integer) : Boolean;\r
+ begin\r
+ RandomBoolean := rnd(y) <= x;\r
+ end;\r
+\r
+end.\r