Случайное число, с шансом выпадения после 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))