|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
04.04.2013, 14:31 | #1 |
Форумчанин
Регистрация: 27.09.2008
Сообщений: 152
|
Увеличить или уменьшить вероятность RND
Доброго время суток уважаемые гуру
Есть диапазон 1..100 -- Это random(100) Как увеличить, либо уменьшить вероятность выпадания скажем 80-100 Вероятность тоже в цифре 1-10 либо проценте |
04.04.2013, 15:19 | #2 |
Форумчанин
Регистрация: 14.02.2013
Сообщений: 222
|
я бы к примеру Вызвал бы random(200)
А потом все ответы от 0 до 80 оставлял бы без изменения, а остальные бы поделил бы на 6, ну как то так А уменьшить вероятность random(90) и значения от 80 до 90 умножил бы на 2. Ну я думаю смысл понятен. я тут вот еще о чем подумал, а ведь random(90) значение целочисленное, значит надо посмотреть на вещественные типы Последний раз редактировалось netpolice; 04.04.2013 в 15:24. |
04.04.2013, 15:35 | #3 | ||
Форумчанин
Регистрация: 27.09.2008
Сообщений: 152
|
Цитата:
Цитата:
160 - 180 бред какойто ) или я не так понял |
||
04.04.2013, 15:42 | #4 |
Форумчанин
Регистрация: 27.09.2008
Сообщений: 152
|
j:=(Random(79)+Random(21));
вот так вероятность мала но как бы её контролировать |
04.04.2013, 15:55 | #5 |
Форумчанин
Регистрация: 14.02.2013
Сообщений: 222
|
Код:
Код:
и регулируем значение 90, где есть, где больше будет 100, вероятность увеличивается, где меньше 100 но стремиться к 80 уменьшается т.е. Код:
Последний раз редактировалось netpolice; 04.04.2013 в 16:01. |
04.04.2013, 15:57 | #6 | ||
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
random(100) даёт числа от 0 до 99 Цитата:
во сколько раз Вы хотите увеличить выпадение цифр от 80 до 100 ? |
||
04.04.2013, 16:05 | #7 |
Форумчанин
Регистрация: 14.02.2013
Сообщений: 222
|
|
04.04.2013, 16:40 | #8 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Код:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
04.04.2013, 16:42 | #9 |
Форумчанин
Регистрация: 27.09.2008
Сообщений: 152
|
таакс а уменьшить ? точно также
Последний раз редактировалось jone; 04.04.2013 в 16:47. |
04.04.2013, 16:46 | #10 |
Форумчанин
Регистрация: 14.02.2013
Сообщений: 222
|
Код:
К стати and (j<=r) действительно не нужен |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Увеличить-уменьшить ячейку с рисунком Excel 2003 | vfv | Microsoft Office Excel | 12 | 06.04.2016 11:35 |
Как увеличить CMaxExtPrecision? Или грохнуть | WhiskasTM | Общие вопросы Delphi | 2 | 15.01.2013 06:43 |
Получение sig и rnd... | FleXik | Общие вопросы Delphi | 2 | 14.01.2013 14:49 |
стрелки увеличить уменьшить число в ячейке | AKolotushkin | Microsoft Office Excel | 3 | 11.06.2010 16:19 |