Работа с Random. Опции

[Славик]

Здравствуйте!

Есть код

 program R;
var
 X: Byte;
radomize: integer;

begin
 for x := 1 to 4 do
   WriteLn(Random(10));
end.

Но, при "проигрывании" ВСЕГДА выдает ОДНО и тоже. То есть, нет выпадания случайных чисел.

0
0
8
2

(0082 при каждом запуске)

У меня виндовс XP. Что можно сделать?

P.S. повторы выпадания чисел происходят всегда, с любым указанным количеством номеров. И всегда номера начинаются на НОЛЬ.

[Altair]

Операционаня система здесь ни при чем.
Вот так попробуйте:

program R;
var
X: Byte;

begin
randomize; {инициализация генератора }
for x := 1 to 4 do
  WriteLn(Random(10));
end.

[Славик]

Да, так работает. Спасибо : )

[Гость]

Люди расскажите пожалуйста о механизме работы команд Random и Randomize. Или скиньте ссылку на инфу, ибо я толком ничего не нашел.

[klem4]

Хелп в паскале не работает ? Поиск по форуму тоже ?

[FAngel]

Вы меня немного не поняли. Как эти команды работают я знаю и Хэлпу читал. Мне надо знать откуда появляються эти самые случайные числа, непосредственно механизм, причем я хотелбы просто узнаеть книги в которых об этом можно было бы почитать. А если есть возможность то ссылки на книги в нете.

Заранее благодарен.

[Ozzя]

http://alglib.sources.ru/random/

[Айра]

А возможно, чтобы среди выдаваемых чисел не было одинаковых?

[Алена]

Это смотря какую форму ты используешь... Если Random(X), т.е. работаешь с целыми числами, то все достаточно просто: множество (или массив) уже использованых чисел, и проверка, входит ли новое число в уже использованные... Если работаешь с Real, то множество отпадает, остается массив... В принципе - довольно просто...

Сообщение отредактировано: Алена - 9.12.2006 23:10

[Айра]

Спасибо. Я просто думала, что может есть какие-то специальные функции.