Работа с 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. повторы выпадания чисел происходят всегда, с любым указанным количеством номеров. И всегда номера начинаются на НОЛЬ.

[Алена]

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

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