Свой генератор случайных чисел

[Malice]

Вызови его теперь в цикле раз 50 и посмотри на результат

[zetrix]

1) если делать это в цикле, то получаем везде 0!
2) в цикле ставим задержку в 1 секунду (sleep(1000))+рандом до 10 и получаем... 0 0 5 0 0 0 0 5 0 0 ... - однозначно не работает

[Alar]

Вот так рандом .

Знаки сложения и вычитания, явно надёжнее будут.

[execom]

Сообщение от Zetrix

1) если делать это в цикле, то получаем везде 0!
2) в цикле ставим задержку в 1 секунду (sleep(1000))+рандом до 10 и получаем... 0 0 5 0 0 0 0 5 0 0 ... - однозначно не работает

1) Да это действительно так, но если в functuion встроить sleep(1), то всё нормально работает, хоть в циклк хоть с задержкой! Вот код, кому не лень погоняйте! Дело в том что sleep - очень сильно далёк от совершенства!

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
i: integer;
function MainRandom(x:integer):integer;
var
 a,b,c,d:word;
begin
  sleep(1);
  DecodeTime(gettime,a,b,c,d);
  MainRandom:=(a*b*c*d) mod x;
end;
begin
for i:=1 to 1000 do
begin
writeln(MainRandom(12345));
end;
readln;
end.

Сообщение от Alar

Знаки сложения и вычитания, явно надёжнее будут.

Есть лишь один способ проверить, поставить эти знаки... я попробовал! Не буду коментировать... кому интересно попробуйте сами!

Главный минус этой функции в том что скорость работы пониже чем у рандома системного! А так в принципе, ничего, тем более погрешность слипа такова, что система получается достаточно случайной!

[max4d]

Огромное всем спасибо , не думал что будет столько ответов, да ещё и с кодом . Спасибо ещё раз, очень помогли мне.

[Virtson]

генерирование длинных псевдослучайных последовательностей,
повышенной случайности - отдельная задача информатики