Расчёт вероятности победы

[znt]

Пишу курсовую,о расчёте вероятности победы команды Зенит над её соперниками. Проблема в том что не могу написать код,учитывая результаты 10 предыдущих матчей+функция random. Зарание спасибо.

[Sibedir]

Всего := Побед + Поражений + Ничьих
Вероятность_победы := Побед / Всего;
Вероятность_поражения := Поражений / Всего;
Вероятность_ничьей := 1 - Вероятность_победы - Вероятность_поражения;

[Аватар]

Как-то просто слишком. На вероятность исхода должна влиять история предыдущих встреч, и чем ближе по времени победа, например, тем с большим весовым коэффициентом она должна влиять на вероятность той же победы

[3D Hunter]

это тянет максимум на доклад, а не курсовую. простейшие формулы и реализация. купите диплом. извините за оффтоп)

[Sibedir]

На вероятность исхода должна влиять история предыдущих встреч, и чем ближе по времени победа, например, тем с большим весовым коэффициентом она должна влиять на вероятность той же победы

Мона так:

type
  TRes = record //результат встречи
    A, B: Byte;
  end;

var
  Arr_CSKA_Zenit = array [1..10] of TRes;  // Массив результатов встреч ЦСКА-Зенит. Последняя встреча в конце
  VesCSKA, VesZenit: Integer;
  i: Integer;

...
  VesCSKA := 0;
  VesZenit := 0;
  for i := 1 to 10 do begin
    VesCSKA := VesCSKA + Arr_CSKA_Zenit[i].A*i;
    VesZenit := VesZenit + Arr_CSKA_Zenit[i].B*i;
  end;

  VeroyatnostPobedi := VesZenit / (VesCSKA + VesZenit);
...