Реализация функии вероятностей?

[VintProg]

Ребята как реализовать функцию удачной вероятности, пример:

function RandomVer(Value : byte): boolean;
begin
... 
end;

Пример использования:

   RandomVer(100); //Всегда будет выдовать true
   RandomVer(0);   //Не когда всегда false
   RandomVer(50); //50 на 50

Заранье спасибо

[zver777]

 RandomVer(n);

В цикле от 1 до n заполняете например массив из 100 элементов значением true.
От n до 100 значением false;
Потом берёте рандомный элемент массива, вот и результат.

[sergey.d]

bool RandomVer(int n)
{
    return (rand() % 10000) < (n * 100);
}

[VintProg]

bool RandomVer(int n)
{
    return (rand() % 10000) < (n * 100);
}

А на дельфи как это будет выглядеть?

[evg_m]

result:=random(n) <=m; // m удачных случаев из n возможных
возможно random(n-1); надо уточнить (F1) реализацию random

[zver777]

function RandomVer(Value : byte): boolean;
begin
if random(100)+1<=Value then Result:=True else
Result:=False;
end;

[VintProg]

bool RandomVer(int n)
{
    return (rand() % 10000) < (n * 100);
}

Тут еще и n умножается на 100, а как она true, false, не пойму?

[zver777]

VintProg чем мой вариант не устраивает?