Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Генератор случайных чисел 
:(
    Опции темы
SneG0K
Дата 21.1.2008, 20:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54
я вот тут столкнулся с такой проблемкой, решил написать программу, которая бы выдавала мне случайное число... пробовал это сделать так
Код

var
i:integer;
begin
i:=random;
Label1.caption:=IntToStr(i);
Но вылазит ошибка при компиляции... мож уже кто сталкивался с этим??? помогите
PM WWW Skype   Вверх
Alexeis
Дата 21.1.2008, 20:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459
random без параметров возвращает число с плавающей точкой. Чтобы было целое нужно задать параметр (максимальное число в последовательности)


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
mmvds
Дата 21.1.2008, 21:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 22.12.2007

Репутация: нет
Всего: 6
Цитата(Alexeis @  21.1.2008,  20:48 Найти цитируемый пост)
random без параметров возвращает число с плавающей точкой. Чтобы было целое нужно задать параметр (максимальное число в последовательности) 

Не совсем так, например, random(10) это числа от 0 до 9 и максимальное тут 9.
Цитата

Delphi syntax:
function Random [ ( Range: Integer) ];
Description
In Delphi code, Random returns a random number within the range 0 <= X < Range. If Range is not specified, the result is a real-type random number within the range
0 <= X < 1.
 Цитата из хелпа.
И кстати, чтобы последовательность генерируемых чисел была каждый раз разной следует писать
Randomize; перед первым вызовом Random
PM MAIL ICQ   Вверх
0LineGate
Дата 22.1.2008, 00:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 176
Регистрация: 17.2.2007
Где: Россия, Тула

Репутация: 0
Всего: 2
...в итоге это:
Код

var
i:integer;
begin
Randomize;
i:=random(1000001);
Label1.caption:=IntToStr(i);
PM MAIL WWW Skype   Вверх
valerchi
Дата 15.10.2010, 12:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 163
Регистрация: 27.5.2008
Где: Геническ

Репутация: нет
Всего: нет
А можно у кого- нибудь узнать, сколько ГСЧ выдаёт чисел в секунду, и как сделать чтобы генератор случайных чисел выдавал больше чисел в секунду?
PM MAIL   Вверх
Alexeis
Дата 15.10.2010, 12:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459
Цитата(valerchi @  15.10.2010,  13:13 Найти цитируемый пост)
А можно у кого- нибудь узнать, сколько ГСЧ выдаёт чисел в секунду

  Зависит от частоты производительности процессора. На каждый запрос вернет число. Никаких внутренних задержек нет, есть только загрузка на вычисление очередного числа.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
valerchi
Дата 15.10.2010, 15:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 163
Регистрация: 27.5.2008
Где: Геническ

Репутация: нет
Всего: нет
Цитата(Alexeis @ 15.10.2010,  12:28)
  Зависит от частоты производительности процессора. На каждый запрос вернет число. Никаких внутренних задержек нет, есть только загрузка на вычисление очередного числа.

А что если сделать много потоков, которые генерируют случайные числа?
PM MAIL   Вверх
~FoX~
Дата 15.10.2010, 15:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 5
Всего: 68
Цитата(valerchi @  15.10.2010,  16:29 Найти цитируемый пост)
А что если сделать много потоков, которые генерируют случайные числа? 

Будет много сгенерированных случайных чисел...


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
valerchi
Дата 15.10.2010, 17:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 163
Регистрация: 27.5.2008
Где: Геническ

Репутация: нет
Всего: нет
Цитата(~FoX~ @ 15.10.2010,  15:33)
Цитата(valerchi @  15.10.2010,  16:29 Найти цитируемый пост)
А что если сделать много потоков, которые генерируют случайные числа? 

Будет много сгенерированных случайных чисел...

А скорость генерации чисел возрастёт?
PM MAIL   Вверх
~FoX~
Дата 15.10.2010, 17:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 5
Всего: 68
Возрастет, куда ж она денется то? Тока смысл?

Это сообщение отредактировал(а) ~FoX~ - 15.10.2010, 17:09


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
valerchi
Дата 15.10.2010, 17:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 163
Регистрация: 27.5.2008
Где: Геническ

Репутация: нет
Всего: нет
Цитата(~FoX~ @ 15.10.2010,  17:08)
Возрастет, куда ж она денется то? Тока смысл?

мне нужно много случайных чисел. Где-то около триллиона. А с обыкновенной скоростью получить такое количество чисел за короткое время, - невозможно.
PM MAIL   Вверх
Guedda
Дата 15.10.2010, 18:01 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 1
Всего: 78
Создавай несколько потоков.. 


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
valerchi
Дата 15.10.2010, 18:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 163
Регистрация: 27.5.2008
Где: Геническ

Репутация: нет
Всего: нет
Спасибо, попробую.
PM MAIL   Вверх
Alexeis
Дата 15.10.2010, 18:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459
Цитата(~FoX~ @  15.10.2010,  18:08 Найти цитируемый пост)
Возрастет, куда ж она денется то? Тока смысл?

  Только если число потоков будет меньше или равно числу ядер иначе прирост будет отрицательный. 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
valerchi
Дата 15.10.2010, 18:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 163
Регистрация: 27.5.2008
Где: Геническ

Репутация: нет
Всего: нет
Цитата(Alexeis @ 15.10.2010,  18:45)
Цитата(~FoX~ @  15.10.2010,  18:08 Найти цитируемый пост)
Возрастет, куда ж она денется то? Тока смысл?

  Только если число потоков будет меньше или равно числу ядер иначе прирост будет отрицательный.

Объясни это поподробней, пожалуйста
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1052 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.