Главная страница
    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.007 c
6-54141
Zevsus
2003-01-27 14:58
2003.03.17
из TWebBrowser получить html код


1-54099
Tyler Durden
2003-03-05 16:38
2003.03.17
MyDll.dll+Rundll=Error


14-54295
uw
2003-02-28 19:01
2003.03.17
Что ответить дедушке 2


1-54037
Project 1
2003-03-04 23:38
2003.03.17
Объекты типа TApplication


14-54188
Товарищъ
2003-03-03 06:00
2003.03.17
Где взять Forum Reader?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский