Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.03.17;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.008 c
14-54271
Mike B.
2003-02-28 16:33
2003.03.17
Поздравляю всех с концом Интернета!


4-54379
Raph
2003-01-23 21:28
2003.03.17
Получение списка дисков


3-53950
Al11
2003-02-25 13:48
2003.03.17
Query OnFilterRecord


3-53909
Klim Samgin
2003-02-25 12:31
2003.03.17
Interbase + массивы


1-53980
calm
2003-03-06 10:48
2003.03.17
Почему не перерисовывается Listbox?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский