Генератор случайных чмсел на основе вероятностей

[3BEPOBOY]

Добрый день.
Я так понимаю random дает равномерное распределение, то есть для random(100)+1 я имею одиныковый шанс получить разные числа в интервале [1;100]
Хочу такой алгоритм, чтобы
в 10% случаев получать [80;100]
в 20% [60;80)
в 30% [10;20)
в 40% [20;60)

Как это лучше реализовать?
Пока писал сообщение, придумал такой способ:

i:=random(100)+1
if (i>0) and (i<=10) then x:=random(21)+80
                     else if (i>10) and (i<=30) then x:=random(20)+60
                                                else if (i>30) and (i<=60) then x:=random(10)+10
                                                                           else x:=random(40)+20;

Может получше что есть, подскажите пожалуйста.

А вот на этот счет вообще никаких идей пока нет:
Я хочу чтобы к числу Х рандомно прибавлялись 7 следующих чсел -0.15*Х; -0.1*Х; -0.05*Х; 0; 0.15*Х; 0.1*Х; 0.05*Х;

что-то похожее на VBA делал. Но там просто с числами от -1,5 до 1,5 с шагом в 0,5

a = Cells(i, j).Value
y = Int(Rnd(1) * 7) / 2 - 1.5
a = a + y
Cells(j, i) = a

[3BEPOBOY]

Так ничего лучше и не придумал

насчет 2ого варианта все просто, странно что сразу не сообразил

x:=(random(7)-3)/20;
y:=y*x;

[Stilet]

y = Int(Rnd(1) * 7) / 2 - 1.5

y:=round(random*7/2-1.5)

если память не ошибает.

P.S. Ну вот... стоит мне пост вписать как авторы уже сами додумываются... Что за день сегодня такой?

[3BEPOBOY]

Stilet
кроме 1 и 0 ничего не выдает. Ну да бог с ним. У меня сейчас другой вопрос на повестке дня. Хотя теме уже немного не соответствует... но все же.

Никто не сталкивался с подобными генераторами задач?
расстояние для каждой пары точек задано в матрице.

Я на днях читал про простейшую игру на делфи - "Тир", там на каком-то image объекте генерировали случайным образом координаты мишеней и стреляли. Я что-то похожее могу применить для своих целей?

Надо наверное отдельную тему создать. Только сформулирую вопрос получше

[Аудунн]

3BEPOBOY
огромное спасибо за афигительный способ генерирования чисел с заданной вероятностью
я реализовал его для своих нужд - для генерирования результатов футбольных матчей
на языке RUBY ON RAILS


n = 2
n.times do
i=rand(101)
if (i>=0) && (i<=2)
x=7
elsif (i>2) && (i<=6)
x=6
elsif (i>6) && (i<=12)
x=5
elsif (i>12) && (i<=23)
x=4
elsif (i>23) && (i<=36)
x=3
elsif (i>36) && (i<=50)
x=2
elsif (i>50) && (i<=71)
x=1
elsif (i>71) && (i<=100)
x=0
end
puts x
end

то есть от 0 до 7 забитых голов у меня может быть в данном случае,рандомно

[Marinesku]

И я тоже, пока читал сообщение, придумал примерно то же самое. Самый нормальный вариант.

[Cerebrum]

Через case все значительно красивее и понятнее

          case random(100) of
0..39:      a:=random(20)+1;
40..62:     a:=random(20)+21;
63..67:     a:=random(20)+41;
68..99:     a:=random(20)+61;
          end;