| Вопрос: Случайные числа | Добавлено: 17.12.03 22:19 |
Автор вопроса:  Pete
|
|
есть 4 цифры: 1, 2, 3, 4. Как сделать так, чтобы цифра, например 4 выпадала 70 % раз от общего числа выпадения этих цифр? |
Подскажите, пожалуйста, как на ВБ 6 сделать такую вещь:
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #1 | Добавлено: 17.12.03 23:10 |
|
a=rnd(timer) select case case 0.0 to 0.1:res=1 case 0.1 to 0.2:res=2 case 0.2 to 0.3:res=3 case 0.3 to 1.0:res=4 end select |
||
|
Номер ответа: 2 Автор ответа: Pashenko ICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #2 | Добавлено: 18.12.03 09:18 |
|
Для вероятностей, выраженных в целых процентах: Генерим числа в диапазоне от 1 до 100: Проверяем сгенерированное число : Если от 1 до 10, то нужное нам значение = 1; Если от 11 до 20, то нужное нам значение = 2; Если от 21 до 30, то нужное нам значение = 3; Если от 31 до 100, то нужное нам значение = 4; В общем случае кол-во генерируемых чисел должно быть кратно сумме вероятностей, выраженных в целых долях (половинах, четвертях, десятых, сотых, тысячных и т. п.). Для описанного случая достаточно интервала от 1 до 10 (т. к. вероятности выражены десятыми долями). |
||
Страница: 1 |