Найти вероятность выигрыша

[supavlova]

Найти вероятность выигрыша

:tehnari_ru_211:Помогите, пожалуйста, написать программу в PASCAL ABC:
A и B играют ряд партий на следующих условиях: за выигрыш считается одно очко; А выигрывает отдельную партию с вероятностью α, В – с вероятностью β, α+β=1; выигравшим считается тот, кто обгонит противника на два очка. Найдите вероятность выигрыша для А и для В. Составьте программу и определите ответ экспериментально для нескольких вариантов значений α и β.

 

[Vladimir_S]

:tehnari_ru_211:Помогите, пожалуйста, написать программу в PASCAL ABC:
A и B играют ряд партий на следующих условиях: за выигрыш считается одно очко; А выигрывает отдельную партию с вероятностью α, В – с вероятностью β, α+β=1; выигравшим считается тот, кто обгонит противника на два очка. Найдите вероятность выигрыша для А и для В. Составьте программу и определите ответ экспериментально для нескольких вариантов значений α и β.

Считаем, что ничейный исход отдельной партии невозможен. Тогда:

Теперь, собственно, код:

VAR
 a,b,Pw_1,Pw_2,P_s:Real;

BEGIN
 Write('Alpha= ');
 ReadLn(a);
 b:=1-a;
 Pw_1:=a*a/(1-(a*b*2));
 Pw_2:=b*b/(1-(a*b*2));
 P_s:=Pw_1+Pw_2;
 Writeln('The probability for first gamer to win is  ',Pw_1:7:5);
 Writeln('The probability for second gamer to win is ',Pw_2:7:5);
 Writeln('The sum of probabilities is                ',P_s:7:5);
 Readln;
End.