Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как переменной типа интегер присвоить случайное число от 0 до 10 [D7, 95/98]


dera ©   (2006-01-03 18:21:00) 


Джо   (2006-01-04 14:16:00) [1]

> [11] Gero ©   (04.01.06 14:12)

Для начала нужно доказать, что погода, например — совершенно случайное являение, т.е. ничем не детерминированное. Боюсь, что сделать это не удастся :)


Gero   (2006-01-04 14:12:00) [2]

> DesWind ©   (04.01.06 13:23)

Простой вариант подобого апарата, что мне приходит в голову (для использования в нормальных условиях): датчик температуры, влажности, звуковые колебания, можно еще радиоволны, например, все это в миксер и получаем случайное число.


DesWind   (2006-01-04 13:23:00) [3]

Утверждают, что уже создан генератор абсолютно случайных чисел, основаный на принципах квантовой механики.


umbra   (2006-01-04 13:06:00) [4]


> Нужно использовать аппаратный генератор.


да, лучше всего - детектор космических лучей! :)


Gero   (2006-01-04 12:53:00) [5]

Нужно использовать аппаратный генератор.


Zeqfreed   (2006-01-04 12:51:00) [6]

umbra ©   (04.01.06 12:43) [6]
Ну, во-первых, это была типа шутка. Видимо, смайлики надо ставить обильнее.
А во-вторых, нет, я не знаю; и не заявлял ничего подобного, кажется.

P.S. «Генерация» и «случайных» — вещи несовместимые, ИМХО.


umbra   (2006-01-04 12:43:00) [7]

2 Zeqfreed ©   (04.01.06 12:27) [5]

а Вы знаете способ генерации действительно случайной последовательности?


Zeqfreed   (2006-01-04 12:27:00) [8]

Все ответы неверные. Random генерирует псевдослучайную последовательность чисел.


Джо   (2006-01-04 02:59:00) [9]

> [2] dera   (03.01.06 19:00)
> var i:integer;
>
> begin
> i:=random(11);
> end;
>
> так?


Нет, не так. Еще нужно написать Program MyProgram; и т.п.


Плохиш   (2006-01-04 01:32:00) [10]


> так?

Если есть сомнения, то надо почитать справку.


dera   (2006-01-03 19:00:00) [11]

var i:integer;

begin
i:=random(11);
end;

так?


Плохиш   (2006-01-03 18:23:00) [12]

random(11)


Наверх

Титульная страница Поиск, карта сайта Написать письмо