вывод рандомного числа с большей или меньшей вероятностью

[unbanned]

что это значит? каков смысл? каков алгоритм вообще?
и причем вероятность в процентах...
скачал exe (консолька, правда на delphi).... вот запускаешь и вывод примерно следующий:
255
вероятность числа 5 - 10%

вот кстати он сам

[Serge_Bliznykov]

1) Ваша программа нагло врёт. почему я так решил?.. потому как я запустил программу раз 15. И девять раз выпало число с надписью вероятность 2%
Не нужно быть учёным, чтобы понять, что из 100 попыток такое число должно было выпасть 2 раза (ну плюс минус отклонения. - но отклонения НЕ МОГУТ быть в 40 раз больше - это противоречит основам теории вероятности.

2) а в чём, собственно проблема?

[unbanned]

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

[Serge_Bliznykov]

рандом есть рандом... ни о какой вероятности речи и не идет

ну, всё не так просто. допустим, random(3) даёт нам равновероятное выпадение чисел 0 1 2 (а random() равномерное распределение чисел от нуля до 1 соответственно)

а стоит задача, допустим,
чтобы 0 выпадал в 50% случаев, 1 в 30% случаев, 2 в 20%

тогда можно попробовать замутить такое:

  r := random();
  if r<0.5 then Rvalue := 0
  else if (r>=0.5) and (r<0.8) then Rvalue := 1
  else Rvalue := 2;

сделайте данный код в виде функции.
вызовите, например, 1000 раз.
при этом подсчитывайте, сколько раз выпал ноль, сколько 1 и сколько 2
результаты выдайте и проанализируйте...

[veniside]

r := random();
if r<0.5 then Rvalue := 0
else if (r>=0.5) and (r<0.8) then Rvalue := 1
else Rvalue := 2;

Красная проверка лишняя )

[unbanned]

0 1 2
482 306 212
474 319 207
488 291 221
499 320 181
478 301 221
508 301 191
504 307 189
527 277 196
491 298 211
528 273 199
486 299 215
516 300 184
487 307 206
491 309 200
503 308 189
519 272 209
511 297 192
482 315 203
497 300 203
498 297 205
485 298 217
505 308 187
543 261 196
514 288 198
477 329 194
529 277 194
487 302 211
515 277 208
487 301 212
479 333 188
493 301 206
496 294 210
521 297 182

хм... да, хоть и с небольшой погрешностью, но в заданном соотношениии...
а как изменить вероятность? ну напр. 50% - 0 и по 25% на 1 и 2...

 r := random();
  if r<0.5 then Rvalue := 0
  else if (r>=0.5) and (r<0.75) then Rvalue := 1
  else Rvalue := 2;

так?

а если для 5 чисел? ( random(5) )
тогда над составить 4 условия?

[Serge_Bliznykov]

Сообщение от veniside

Красная проверка лишняя )

ну, хуже не будет, хотя, я с Вами согласен. сначала хотел три линейных условия подряд написать - без else, а потом решил, что с else чуточку эффективнее будет. а условия не изменил...
Спасибо за замечание.

unbanned,

а как изменить вероятность? ну напр. 50% - 0 и по 25% на 1 и 2...

можно и так. а можно:

 r := random();
  if r<0.5 then Rvalue := 0
  else if (r<0.75) then Rvalue := 1
  else Rvalue := 2;

а можно и так:

  r := random();
  if r<0.5 then Rvalue := 0;
  if (r>=0.5) and (r<0.75) then Rvalue := 1;
  if (r>=0.75) then Rvalue := 2;

а если для 5 чисел? ( random(5) )
тогда над составить 4 условия?

точно. кстати, для большого количества чисел лучше использовать линейные проверки (много if подряд). Они, конечно, чуть-чуть медленее будут работать, но зато на порядок нагляднее и удобнее писать/изменять подобный код.