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

Вниз

Как сгенерить случайное число целого типа...   Найти похожие ветки 

 
deras ©   (2007-07-12 14:54) [0]

..и записать его в пременную


 
Инс ©   (2007-07-12 14:56) [1]

Random+F1


 
Rip_1982 ©   (2007-07-12 15:05) [2]


i := random(2147483647)


 
Zagaevskiy ©   (2007-07-12 15:38) [3]

не забыть сначала randomize
i := random(2147483647)


 
AZIZE ©   (2007-07-12 16:06) [4]

вообщето если целлого то
i := Round(random(2147483647))


 
engine ©   (2007-07-12 16:09) [5]

> [4] AZIZE ©   (12.07.07 16:06)

Вообще-то round не надо :)


 
Rip_1982 ©   (2007-07-12 16:17) [6]


> не забыть сначала randomize

И это тоже не обязательно! :)


 
clickmaker ©   (2007-07-12 16:23) [7]


> [6] Rip_1982 ©   (12.07.07 16:17)

разве?
а как же
To initialize the random number generator, add a single call Randomize or assign a value to the RandSeed variable before making any calls to Random.
(c) F1


 
engine ©   (2007-07-12 16:24) [8]

> [7] clickmaker ©   (12.07.07 16:23)

Ну так можно же RandSeed пользовать


 
Rip_1982 ©   (2007-07-12 17:01) [9]


> To initialize the random number generator, add a single
> call Randomize or assign a value to the RandSeed variable
> before making any calls to Random.

Он и без этого работает!


 
engine ©   (2007-07-12 17:05) [10]

> [9] Rip_1982 ©   (12.07.07 17:01)

Только выдает одну и ту же цепочку значений каждый раз :)


 
Rip_1982 ©   (2007-07-12 17:08) [11]

Зато работает! :)


 
Johnmen ©   (2007-07-12 17:41) [12]

Прикольное понимание "работы".
Т.е. просидеть весь день на рабочем месте, плюя в потолок, оказывается тоже работа!


 
iXT ©   (2007-07-12 17:44) [13]


> Johnmen ©   (12.07.07 17:41) [12]

А как же :) Отсутствие результата - тоже результат (с) Заяц, который любил всем давать советы.


 
Rip_1982 ©   (2007-07-12 17:56) [14]


> А как же :) Отсутствие результата - тоже результат (с) Заяц,
>  который любил всем давать советы.

Очень смешно. Я имел ввиду, что если он нужен для разовой генерации случайного числа то использование randomize не обязательно.


 
Jeer ©   (2007-07-12 17:59) [15]


> deras ©   (12.07.07 14:54)


Не слушай этих приколистов.
Вот тебе реальный LCG Super-Duper:

X(i+1) = ( a * X(i) + c ) mod m
m = 4294967296
a = 69069
c = 0
X(0) = 1

Дает только целые, не оторвешься от него.


 
Zagaevskiy ©   (2007-07-12 18:02) [16]


> Rip_1982 ©   (12.07.07 17:56) [14]

Для разовой генерации такого "случайного числа" можно так сделать :
i:=3141592;
Чем не случайное число?


 
iXT ©   (2007-07-12 18:06) [17]


> Rip_1982 ©   (12.07.07 17:56) [14]
>
>

ну-ну
Позвольте, а что значит для разовой? Это из разряда "удалить самого себя"?


 
Rip_1982 ©   (2007-07-12 18:09) [18]


> ну-ну
> Позвольте, а что значит для разовой? Это из разряда "удалить
> самого себя"?

Нет, это из разряда получения случайного числа (1 раз) и использования его в дальнейшей работе.


 
Kolan ©   (2007-07-12 18:10) [19]

> Для разовой генерации такого «случайного числа»

Программы они все одноразовые, как салфетки, запустил 1(один) раз — и стер, да?


 
Zagaevskiy ©   (2007-07-12 18:10) [20]

1 раз при каждом запуске? и оно всегда одинаковое? а смысл?


 
Rip_1982 ©   (2007-07-12 18:12) [21]


> 1 раз при каждом запуске? и оно всегда одинаковое? а смысл?

Ну что ты пристал? Может ему надо ключь сгенерировать.


 
Zagaevskiy ©   (2007-07-12 18:15) [22]


> Rip_1982 ©   (12.07.07 18:12) [21]

Какой ключ? Для регистрации проги на этом компе?
Ну я не мастер, но это не рэндомом делается, да ещё без randomize


 
engine ©   (2007-07-12 18:15) [23]

> [21] Rip_1982 ©   (12.07.07 18:12)

и сразу стереть :)



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

Форум: "Начинающим";
Текущий архив: 2007.08.12;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.49 MB
Время: 0.062 c
2-1184653157
Alex7
2007-07-17 10:19
2007.08.12
Что добавить в DataModule, чтобы он признал TDBGridEh


15-1184260431
Alarm
2007-07-12 21:13
2007.08.12
Посьба к app


2-1184326468
Квэнди
2007-07-13 15:34
2007.08.12
MediaPlayer и TCPServer


15-1184343965
SkySpeed
2007-07-13 20:26
2007.08.12
Объясните плиз работу 2-х ядерного процессора...


15-1184421318
DillerXX
2007-07-14 17:55
2007.08.12
Maple





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