Помогите, пожалуйста, решить задачи по математике, теория вероятностей

[Билл]

таки я бы немного по другому решил. количество троек людей из 20 есть С из 20 по 3, что есть 2280. согласен. мужчин выбираем С из 7 по 2, что есть 21. здесь тоже полное согласие. но ведь еще есть и женщины. их можно выбрать С из 13 по 1, что есть 13 способов. итого, искомая вероятность равна P=21*13/2280=0,1197

Большое спасибо!

 

[Gabarityanin]

Та нема за що

 

[Билл]

Ещё раз обращаюсь с огромной просьбой помочь в решении задач! В классе не смог правильно решить ни одну из этих задач. Буду очень благодарен, если поможете решить)

 

[Vladimir_S]

Ещё раз обращаюсь с огромной просьбой помочь в решении задач! В классе не смог правильно решить ни одну из этих задач. Буду очень благодарен, если поможете решить)

Да, ну не всё сразу. Вот пока первая - очень надеюсь, что не наврал. А в противном случае попрошу сильно не бить.

 

[Билл]

Да, ну не всё сразу. Вот пока первая - очень надеюсь, что не наврал. А в противном случае попрошу сильно не бить.

Большое спасибо!

 

[Vladimir_S]

_______________________________________________________

 

[Билл]

_______________________________________________________

Благодарю!

 

[Билл]

Большая просьба решить оставшиеся задачи (3 и 4), в четверг уже зачёт

 

[Vladimir_S]

Большая просьба решить оставшиеся задачи (3 и 4), в четверг уже зачёт

А вот с последней задачкой что-то и не соображу..._________________

 

[Билл]

Посмотреть вложение 113741
А вот с последней задачкой что-то и не соображу..._________________

Спасибо и на этом)

 

[Vladimir_S]

Const
 p=0.515;
Var
 Sum:real;
 i:Byte;

function Nfact(n:LongInt):Extended;
VAR
  i:LongInt;
  fact:Extended;
BEGIN
  IF n=0 THEN fact:=1 ELSE
    BEGIN
      fact:=1;
      FOR i:=1 TO n DO
        fact:=fact*i;
    END;
  Nfact:=fact;
END;

function X2np(X:Extended; n:WORD):Extended;
Var i:WORD;
    Y:Extended;
BEGIN
  IF n=0 THEN X2np:=1 ELSE
  IF n=1 THEN X2np:=X ELSE
  BEGIN
    Y:=X;
    FOR i:=2 TO n DO Y:=Y*X;
    X2np:=Y;
  END;
END;

Function C(m,n:Longint):Extended;
begin
 C:=Nfact(m)/Nfact(n)/Nfact(m-n);
end;

Begin
 Sum:=0;
 For i:=1 to 60 do
  Sum:=Sum+C(100,i)*X2np(p,i)*X2np((1-p),(100-i));
 Writeln('Sum = ',Sum:0:5);
 Readln;
End.

 

[Билл]

Посмотреть вложение 113786

Const
 p=0.515;
Var
 Sum:real;
 i:Byte;

function Nfact(n:LongInt):Extended;
VAR
  i:LongInt;
  fact:Extended;
BEGIN
  IF n=0 THEN fact:=1 ELSE
    BEGIN
      fact:=1;
      FOR i:=1 TO n DO
        fact:=fact*i;
    END;
  Nfact:=fact;
END;

function X2np(X:Extended; n:WORD):Extended;
Var i:WORD;
    Y:Extended;
BEGIN
  IF n=0 THEN X2np:=1 ELSE
  IF n=1 THEN X2np:=X ELSE
  BEGIN
    Y:=X;
    FOR i:=2 TO n DO Y:=Y*X;
    X2np:=Y;
  END;
END;

Function C(m,n:Longint):Extended;
begin
 C:=Nfact(m)/Nfact(n)/Nfact(m-n);
end;

Begin
 Sum:=0;
 For i:=1 to 60 do
  Sum:=Sum+C(100,i)*X2np(p,i)*X2np((1-p),(100-i));
 Writeln('Sum = ',Sum:0:5);
 Readln;
End.

Огромное спасибо, очень помогли мне!