Главная страница
    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.053 c
3-1177508561
DelphiLexx
2007-04-25 17:42
2007.08.12
DBGrid и опция dgEditing


2-1184315826
UMU
2007-07-13 12:37
2007.08.12
MainMenu


1-1181074659
-Mouse-
2007-06-06 00:17
2007.08.12
Проблема с определением формулы математической задачи.


15-1184238783
Megabyte
2007-07-12 15:13
2007.08.12
Правила формирования xml-файлов


3-1177679032
DelphiLexx
2007-04-27 17:03
2007.08.12
Как сделать, чтобы транзакция делала автоматичекси rollback





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