Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.17;
Скачать: CL | DM;

Вниз

Генератор случайных чисел   Найти похожие ветки 

 
sniper ©   (2003-03-05 16:08) [0]

Ув. знатоки, подскажите как в Делфи создать генератор случайных чисел?


 
Smithson ©   (2003-03-05 16:16) [1]

Randomize
Random


 
Dms   (2003-03-05 16:21) [2]

сейчас скажет, что это "недостаточно случайны" генератор :)


 
Иксик   (2003-03-05 16:21) [3]

Random(N), где N - верхняя граница, рандомизация начинается с нуля. Т.е. если тебе нужно получать случайные числа от 1 до 100,
то:

randomize;
x := 1 + random(99);


 
Иксик   (2003-03-05 16:22) [4]


> Dms

Вообще-то так оно и есть :)


 
DVM ©   (2003-03-05 16:25) [5]

Можно сделать более случайным, если приплести к нему время, дату, скорость вращения кулера, напряжение питания, т.е. все что меняется непредсказуемо


 
Dms   (2003-03-05 16:27) [6]

Ну как ты скорость вращения кулера вытащищь ?
TCooler.Speed
а напряжение ?
TUPS.Voltage
:)


 
DVM ©   (2003-03-05 16:31) [7]

Так как это делают все мониторы - из биоса.


 
Sheriff   (2003-03-05 16:31) [8]

2Иксик
>randomize;
>x := 1 + random(99);
имеем числа в диапазоне 1..99


 
DVM ©   (2003-03-05 16:34) [9]


> Dms

Пожалста:
http://www.delphikingdom.com/mastering/wmi.htm#054


 
Anatoly Podgoretsky ©   (2003-03-05 16:35) [10]

В Дельфи уже есть генератор, но если он не устравивает то тебе сюда UBPFD


 
Mystic ©   (2003-03-05 16:38) [11]

Из help:

RandG function
Generates random numbers with Gaussian distribution.

Random function
Generates random numbers within a specified range.

RandomFrom function
Returns a randomly selected element from an array.

Randomize procedure
Initializes the random number generator with a random value.

RandomRange function
Returns a random integer from a specified range.

RandSeed variable
RandSeed stores the built-in random number generator"s seed.

Ежели сфера твоих интересов лежит в области создания собственных ГСч и тестирования их характеристик, то смотри
http://www-cs-faculty.stanford.edu/~knuth/programs/rng.c
http://www-cs-faculty.stanford.edu/~knuth/programs/rng-double.c


 
Dms   (2003-03-05 16:44) [12]

2 DVM
Хорошо. Но не на всех же компах стоят навороченные "мамки"

Вообще человек наверно пишет детскую программку про "угадывание выпавшего на кости числа", а ему про создание собственных ГСч втирают.



Страницы: 1 вся ветка

Текущий архив: 2003.03.17;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.023 c
4-54380
anod
2003-01-18 22:09
2003.03.17
Как мне вывести пункты листбокса????


14-54196
Дмитрий К.К.
2003-03-03 06:23
2003.03.17
Апплеты


3-53850
sie_vedenie
2003-02-26 19:29
2003.03.17
Помогите разобраться с ADS


14-54259
ZeroDivide
2003-02-28 10:59
2003.03.17
В роли рака


3-53941
Соловьев
2003-02-26 14:27
2003.03.17
Как в IB(FireBird) сделать автоинкриментное поле ?