Версия для печати темы

Автор: Славик 2.02.2005 22:14

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

Есть код

 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 2.02.2005 22:25

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

program R;
var
X: Byte;

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

Автор: Славик 2.02.2005 22:32

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

Автор: Гость 3.12.2006 16:29

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

Автор: klem4 3.12.2006 20:06

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

Автор: FAngel 9.12.2006 21:57

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

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

Автор: Ozzя 9.12.2006 23:54

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

Автор: Айра 10.12.2006 2:57

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

Автор: Алена 10.12.2006 3:10

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

Автор: Айра 11.12.2006 2:35

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