Почему random(4) всегда возвращает 0???

← →
Yaro © (2001-12-30 14:50) [10]

>> ~skaminski~ - Я бы не советовал вызывать его "сколько душе угодно", он довольно тормознутый (это еще из паскаля помню :).

>> Dimaond Cat - А на счет своего рандома - это не так-то и просто.
Если не привязывать его к таймеру компьютера, чтоб быстрее работал, то это довольно-таки тупо выходит... Вот попробуйте код, приведенный ниже и посмотрите на результаты. У меня такое мнение сложилось (я про стандартный рандом), что он приблизительно по такому же принципу работает, только RANDOMIZE значение N из таймера берет...

var n: real; function _Random(_n: word): word; begin if n = 0 then n := sqr(_n); n := sqr(_n/n); while not (n <= _n) do n := n/2; Result := round(n); end;

Почему random(4) всегда возвращает 0??? Найти похожие ветки