|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
29.08.2009, 11:35 | #1 |
Новичок
Джуниор
Регистрация: 18.08.2009
Сообщений: 0
|
Генерация случайных чисел?!
Добрый день Господа!!!
Подскажите пожалуйста! Как можно создать генерацию случайных чисел на Delphi?! Чтобы по первому нажатию на кнопку Button1 в Lable1 возникали различные числа от 5 до 20 в интервале 5 сек. А по второму нажатию на Button1 все прекращалось... Заранее спасибо. С уважением Evgeny_1. |
29.08.2009, 11:46 | #2 |
Участник клуба
Регистрация: 19.01.2009
Сообщений: 1,453
|
вот это нужно:
Код:
Последний раз редактировалось uberchel; 29.08.2009 в 11:53. |
29.08.2009, 12:15 | #3 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
uberchel, общая идея правильная,
но Вы забыли иницилизацию генератора ПСЧ, неверно задаёте интервал чисел, да и Step здесь лишний.. вот так более корректно (да и попроще будет): Код:
|
29.08.2009, 13:06 | #4 | |
Участник клуба
Регистрация: 12.08.2008
Сообщений: 1,977
|
В обеих случаях неверно выбран диапазон:
Цитата:
Random(15) + 5 Random(15) выдаст случайное число от 0 до 15 (всего 16 значений), добавляем пятерку и попадаем в необходимый диапазон. Код:
И не сомневайся даже ... отдых - кайф, работа - лажа!
Последний раз редактировалось DeKot; 29.08.2009 в 13:15. |
|
29.08.2009, 13:13 | #5 |
Заблокирован
Старожил
Регистрация: 20.07.2008
Сообщений: 4,032
|
Четырнадцать...
//------------------ За что штраф то...? Я ведь правильно сказал О_О Последний раз редактировалось Levsha100; 29.08.2009 в 13:34. |
29.08.2009, 13:29 | #6 | |
Участник клуба
Регистрация: 12.08.2008
Сообщений: 1,977
|
Цитата:
Правильно будет - IntToStr(Random(16)+5) Вот скрин результата проекта http://i061.radikal.ru/0908/02/e7c558ea90a6.jpg
И не сомневайся даже ... отдых - кайф, работа - лажа!
Последний раз редактировалось DeKot; 29.08.2009 в 13:35. |
|
29.08.2009, 13:44 | #7 |
Новичок
Джуниор
Регистрация: 18.08.2009
Сообщений: 0
|
Всем Большое Спасибо!!!
Получилось Отлично!!! |
29.08.2009, 13:45 | #8 |
Участник клуба
Регистрация: 21.11.2007
Сообщений: 1,690
|
случайное число от a до b, a<b
x:=a+random(b-a+1); Например: a=-50; b=-5; x:=-50+random(-5-(-50)+1); или x:=-50+random(46); Года 2 назад, была тема в которой ни как не могли правильно записать генерацию случайных чисел)) Примерно тогда я и написал свое первое сообщение на этом форуме и вообще в интернете=) |
29.08.2009, 13:59 | #9 | |
Участник клуба
Регистрация: 12.08.2008
Сообщений: 1,977
|
OffTop -
Цитата:
И не сомневайся даже ... отдых - кайф, работа - лажа!
|
|
29.08.2009, 14:05 | #10 |
Заблокирован
Старожил
Регистрация: 20.07.2008
Сообщений: 4,032
|
Да ладно. Я сам виноват. А на счет репы мне плевать
//Я опять неправильно выразился, это не штраф а "-"... Мозги просто не успевают за компом ///И тем более это пункт 3.1 нашего закона )) ////Сори, что ошибся. //////// И еще, НЕ НАДО, пожалуйста, НИЧЕГО "КОМПЕНСИРОВАТЬ" И еще раз повторяю, мне на репу ПЛЕВАТЬ, просто стало интересно... Последний раз редактировалось Levsha100; 29.08.2009 в 14:15. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Генерация случайных... | Яр|/||< (^_^) | Общие вопросы Delphi | 2 | 22.06.2009 21:33 |
генератор случайных чисел на С++ | ANTI | Общие вопросы C/C++ | 20 | 12.04.2009 13:02 |
Генератор случайных чисел | psychopat | Общие вопросы Delphi | 11 | 18.02.2009 10:39 |
Генерация Случайных Чисел | Кирилл13 | Помощь студентам | 6 | 06.01.2009 10:31 |
выборка случайных чисел | furstenberg | Общие вопросы Delphi | 2 | 13.01.2008 21:07 |