Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите понять почему Random работает всегда постоянно одинаков?

webSQLNeederr © (2008-03-24 12:33:00)
Есть код:
for i:=0 to str.Count-1 do
begin
str.Exchange(i,Random(str.Count-1));
end;

Оно да, перемешивает текст. НО если я опять запускаю програму то оно перемешивает текст ТАКЖЕ то есть ИДЕНТИЧНО как и предыдущий текст.

Я в ступоре!! Не могу понять почему? Не может ведь быть что бы все 1000 строк, которые я перемешивал при повторном вызове Рендома (притом повторный вызов не в этой же программе а при новой компиляции или запуска) то Рендом чисто "случайно" выдавал одни и те же значения ???

Я специально проверил все 1000 строк ТАКЖЕ перемешались как и при предыдущем запуске.

В чем дело ???

Семеныч (2008-03-24 13:15:00) [1]
> Amoeba © (24.03.08 13:07) [7]
> Вызывать столько раз, сколько делается перемешивание.

Зачем?

> webSQLNeederr

Random дает всегда одну и ту же последовательность случайных чисел, первое из которых определяется значением переменной RandSeed. Так сделано специально, иначе программу невозможно было бы отлаживать.

Randomize, в свою очередь, приваивает переменной RandSeed тоже случайное значение. Поэтому для получения "случайной последовательности случайных" чисел достаточно один раз вызвать Randomize, а потом можно сколько угодно раз вызывать Random.

korneley (2008-03-24 13:12:00) [2]
Упс... [6] конечно же :)

korneley (2008-03-24 13:11:00) [3]

> Вызывать столько раз, сколько делается
> перемешивание
Нафига? "add a singlecall Randomize " [5] - правильно

Amoeba (2008-03-24 13:07:00) [4]

> webSQLNeederr (24.03.08 12:51) [5]
>
>
> > To initialize the random number generator, add a single
> > call Randomize or assign a value to the RandSeed variable
> > before making any calls to Random.
>
> Еще такой момен остался не ясным. Вызывать эту функцию нужно
> раз на программу или же каждый раз в новой функции? Или
> же можно кинуть в оброботчик события FormCreate?
>

Вызывать столько раз, сколько делается перемешивание. Если перемешивание однократное, то вызывай Randomize там, где удобнее.

{RASkov} (2008-03-24 13:05:00) [5]
> [5] webSQLNeederr (24.03.08 12:51)

Достаточно одного раза в любом месте.... как вариант в файле проекта (*.dpr)

webSQLNeederr (2008-03-24 12:51:00) [6]

> To initialize the random number generator, add a single
> call Randomize or assign a value to the RandSeed variable
> before making any calls to Random.

Еще такой момен остался не ясным. Вызывать эту функцию нужно раз на программу или же каждый раз в новой функции? Или же можно кинуть в оброботчик события FormCreate?

webSQLNeederr (2008-03-24 12:46:00) [7]
Спасибо! работает!

Семеныч (2008-03-24 12:43:00) [8]
> webSQLNeederr

To initialize the random number generator, add a single call Randomize or assign a value to the RandSeed variable before making any calls to Random.

На чтение 10 строчек справки по Random времени ушло бы гораздо меньше, чем на проверку перемешивания 1000 строк, честное слово.

webSQLNeederr (2008-03-24 12:42:00) [9]
да? А как? Пример можно?

Сергей М. (2008-03-24 12:38:00) [10]

> В чем дело ?

В невызове процедуры Randomize перед первым использованием Random

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »