задачка, голова уже болит! буду благодарен за помощь!

[Аватар]

Сообщение от Poma][a

Хех вероятность того что я выйграю равно 10*(20/80) = 2.5 . Я побежал скупать лотерейные билеты

Ромаха, а где продают? Забил очередь

[Poma][a]

Я Вам займу, если после меня что-то останется

[Smitt&Wesson]

Сообщение от Аватар

Ромаха, а где продают? Забил очередь

Это не вероятность выигрыша, а вероятность выпадения единственной цифры в 10 - турах.

[v.chertov]

ребят представьте себе как вы говорили лотерею компьютерную, где выпадают 20 чисел из 80 в случаянном порядке, суть что надо записывая 10 игр подряд чтобы посчитать % чисел следующего розыгрыша. вот допустим:
1раунд выпали числа: 2,6,55,21,66,80,1,6,9,65,64,22,33,6 9,45,79,78,76,75,28.
2раунд выпали числа: 1,2,3,4,5,56,57,58,59,60,11,66,51,1 2,13,15,69,33,28,39.
.....
10й выпали числа:58,59,69,45,3,4,5,56,33,28,39 ,11,12,77,79,61,59,27,47,74

надо ввести эти числа в таблицу и при нажатии кнопки далее выдавался результат возможных следующих чисел тоесть:
число 1 выпадет с вероятностью 94%
число 55 выпадет с вероятностью 99%
число 3 выпадет с вероятностью 90%
вот так вот надо сделать! ну и конечно чтобы проценты сортировались от большего к меньшему.

[Smitt&Wesson]

В данной постановке вопроса, задача решается при помощи теоремы Байеса с вычислением априорных и апостериорных вероятностей.
Теорема Байеса - P(H:E) = P(P:H)*P(H)/P(E).
Априорная вероятность - P(H:E) = P(E:H)*P(H)/P(E:H)*P(H)+P(E:не H)*P(не H)
Апостериорная вероятность - P(H:не E) = P(не E:H)*P(H)/(P(не E:H)*P(H)+P(не E:не H)*P(не H)).
Шансы O(E) = P(E)/(1-P(E)) и P(E) = O(E)/(1+O(E)).

[v.chertov]

круто, но я не ченгошиньки не понял! программу сможет ктонить написать?

[Vanta11a]

Мне вообще кажется, что задача состоит в том, чтобы 10 раз "кинуть кубики", получив по 20 чисел, после чего найти вероятности выпадения этих чисел, поделив число их "выпадений" на 10, и вывести наиболее вероятные.
Рассмотрю на числах 1, 2, 3:
Первый раз кинули кубик, получили 1, в результате число 1 выпало 1 раз, 2 - 0, 3 - 0.
Второй раз получили 2, => 1 - 1, 2 - 1, 3 - 0.
Третий раз получили 1, => 1 - 2, 2 - 1, 3 - 0 и т.д. n раз.
Потом делим число выпадений на n (для n = 3 будет следующее: вероятность 1 - 2/3, вероятность 2 - 1/3, вероятность 3 - 0/3).

[v.chertov]

ребята напишите пожалуйста программу! за работоспособную программу с исходником как и писал выше могу заплатить правда не много!

[Smitt&Wesson]

Тут ещё с алгоритмом не разобрались, а уже писать чё-то.
Понятно, матрица 20х10 заполненная случайными числами из ряда 1-80.
Что с этими числами делать? По какому алгоритму вычислять вероятность. И почему у Вас вероятность появления каждого числа в матрице = 99%? Что-бы это значило?

[Mad_Cat]

Мне вообще кажется, что задача состоит в том, чтобы 10 раз "кинуть кубики", получив по 20 чисел, после чего найти вероятности выпадения этих чисел,

+1 20 символов

const
  KT = 10;

var
  v: array[1..3, 1..80] of real;
  mn: set of byte;
  B: byte;
  i, j, k: byte;
  f: boolean;

procedure Swap(var a, b: real);
var
  t: real;
begin
  t := a;a := b;b := t;
end;

begin
  Randomize;
  for i := 1 to 80 do
  begin
    v[1, i] := i;
    v[2, i] := 0;
    v[3, i] := 0;
  end;
  for i := 1 to KT do
  begin
    mn := [];
    for j := 1 to 20 do
    begin
      repeat
        k := random(80) + 1;
      until not (k in mn);
      mn := mn + [k];
      V[2, k] := V[2, k] + 1;
    end;
  end;
  for i := 1 to 80 do
    v[3, i] := v[2, i] / KT;
  
  f := true;
  while f do 
  begin
    f := false;
    for i := 1 to 79 do
      if v[3, i] < v[3, i + 1] then begin
        for j := 1 to 3 do
          swap(v[j, i], v[j, i + 1]);
        f := true;
      end;
  end;
  for i := 1 to 80 do // первые 20 и есть ваш 11 тираж
    writeln(v[1, i], '==>', v[3, i]);
end.

но 0.7 это максимум чего я видел