. N- ұ қ құ
n ұ қғ ( ) .
қ. n k ң k ұ . n k ә ү ң ң ғ қ ғ ғ
қ қ, , ң құ ң. , , M = {1, 2, 3, 4} 4- 3 ө ү құғ : {1, 2, 3}, {1,2,4}, {2, 3, 4}, {1, 3, 4}.
n k ү ө :
k = 0,
n k ң, қ
, қ ө , :
.
9. 10 ү . ң ү ү, ө ққ қ қ. ұ ү қ қ ү ққ ү ?
ү ү ү ққ ү .
ққ , , ү ү ө , , , , , ү ққ ө, ғ ққ ө ү үң ң . 10- ә ү ү ө ққ 10 3- ң.
n k құқ. ү k ң ғ ұ. ң ү қ (n!, (n - k)! k!) ә ө ү ү ғ ғ ү.
ү ү ә ң құғ қ ғ .
ә .
қ ә ңғ ү n ә k ғ. ә ү ғ қ . - ombnaton.
Procedure Combnaton(n, k: nteger; var : longnt);
ʳ nteger , ғ longnt . Ө, ң ә ү ү.
|
|
ң ө - for ү , - k! ү қ .
ү қ ә (c:= 1).
1- k-ғ for ұ. ұ n k ө қ:
, (1) ұ - 1- k-ғ ө .
ө :
Procedure combnaton(n, k: nteger; var : longnt);
var
: longnt;
begn
:= 1;
for := 1 to k do := *(n - k + ) dv
end;
құ ү combnaton қ.
Program msal9;
uses WnCrt;
var
pl: longnt;
{----------------------------------------------------------------------------------------}
Procedure combnaton(n, k: nteger; var c: longnt);
var
: longnt;
begn
c:= 1;
for := 1 to n - k do c:= c*(n - k + ) dv
end;
{----------------------------------------------------------------------------------------}
begn
combnaton(10, 3, pl);
wrteln('ққ : ', pl, ' ')
end.
10. 3 , 2 қғ ә 1 ққ ұ , 9 , 5 қғ ә 3 ққ қ ү құғ ?
құ ү
9 ү ә ңғ . 5 қғ ә ғ . 3 ққ ә ғ . ү әң , қғ ә ққ ң ә ң ө ң:
.
Program msal10;
uses WnCrt;
var
h1, h2, h3: longnt;
{----------------------------------------------------------------------------------------}
Procedure Combnaton(n, k: nteger; var c: longnt);
var
: longnt;
begn
c:= 1;
for := 1 to k do c:= c*(n - k + ) dv
end;
{----------------------------------------------------------------------------------------}
begn
combnaton(9, 3, h1);
combnaton(5, 2, h2);
combnaton(3, 1, h3);
wrte(' ', h1*h2*h3);
wrteln(' ә құғ ');
end.
5
1. 30 , ң 2 ә қ ғ ұ ғ 4 ң қ. ңғң ә ғ қ ү?
2. 5 ә . ғ 100 . ғ 5 . ң ү ұ ү қ ә ғ ?
|
|