Случайное число, с шансом выпадения после 20 меньше, чем до 20 - Visual Basic .NET

Формулировка задачи:

Как сделать к примеру: рандом от 1 до 100. Что бы шанс выпадения после 20 был меньше, чем до 20?

Решение задачи: «Случайное число, с шансом выпадения после 20 меньше, чем до 20»

textual
                            Листинг программы 
                        
Dim rnd As New Random()
Const Probability20 As Double = 0.6 ' Вероятность генерации числа от 1 до 20
Dim num As Integer = If(rnd.NextDouble()<Probability20, rnd.Next(1,20), rnd.Next(20,100))

Оцени полезность:

8 голосов , оценка 4.375 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы