Генератор случайных чисел.

← →
тт (2004-11-07 23:15) [0]

Это правда, что на разных компьютерах функция random(n:integer) выдает разную
последовательность случайных чисел?
И если да, то как создать функцию,очень быструю, генерирующую одинаковую посл.
на любом комп.
Заранее спасибо.

← →
Defunct © (2004-11-07 23:31) [1]

Самый быстрый Random, что мне удалось сделать:
Наслаждайтесь. Последнюю строчку можете выбросить, она там нормировала цвет точки.
Code - слово запуска генератора, от него зависит последовательность генерируемых чисел.

Var Code : Integer = 555; function MyRandom(Number:Integer):Cardinal;Assembler; asm mov ecx, 0F7F77B0Ah add eax, Code mul ecx xor ecx,edx mul ecx shr eax,8 // comment it if no RGB result needed end;

← →
palva © (2004-11-07 23:43) [2]

тт (07.11.04 23:15)
Это неправда. Чтобы числа были разными нужно предварительно применить Randomize.
Самый быстрый генератор - это счетчик. Каждое следующее число на единицу больше предыдущего.

← →
Defunct © (2004-11-07 23:48) [3]

palva © (07.11.04 23:43) [2]
> Самый быстрый генератор - это счетчик. Каждое следующее число на единицу больше предыдущего.

Вы вопрос вообще поняли?
Запустите функцию [1] она отвечает на поставленый вопрос полностью.

← →
GuAV © (2004-11-07 23:49) [4]

palva © (07.11.04 23:43) [2]
Самый быстрый генератор - это счетчик.
Это неправда. Самый быстрый рандомайзер - любая целочисленая переменная ;-)

← →
Defunct © (2004-11-07 23:53) [5]

[1]

PS: добавлю еще, что входной параметр (Number) это номер элемента последовательности.

Defunct © (07.11.04 23:48) [3]
Он понял и ответил на вопрос правильно.

Это правда, ... ?
Это неправда.
И если да, ... ?

If False Then False - верное утверждение

Генератор случайных чисел. Найти похожие ветки