.


:




:

































 

 

 

 


. N ( - 1 N)

. (), ()

 

1. 10 қ ә ұ ү?

 

ұ қ , 10 ң 10 қ ү , ғ 10 10 қ - . ғ ң:

= 10 9 8 ... 3 2 1 = 10!

n n n . , n ү - , ң . қ. M = {a1, a2,..., an} қғ . ң n ұ ә ң

қғ ә n ү ө ң:

Ұң, 0! = 1.

ү ң құ қ.

Program msal6;

uses WnCrt;

var

n, f: longnt;

{----------------------------------------------------------------------------------------}

Procedure Factoral(n: nteger; var f: longnt);

var

: nteger;

begn

f:= 1;

f n = 0 then f:= 1

else for := 1 to n do f:= f*

end;

{----------------------------------------------------------------------------------------}

begn

wrte('ң ң '); readln(n);

Factoral(n, f);

wrteln(' ', f, ' ә ұ ү')

end.

 

7. 2, 3, 4, 5, 9 қ ұ ң құғ

?

 

ң қ

ұ ұ қ. ұ .

қ, ұ ң қ ғ ң ңғ , қ ұ . ұ ? ң қғ 4 , ғ 4!-ғ ң. қ ң ғ ұ . қ, ұ ң ңғ . ғ ұ ғ ә ң 4!-ғ ң.

ә ң ұ 2*4! .

 

құ қғ қ. қ ө құң.

3

0, 1, 2, 3, 5 5- ө қ ң құғ ?

 

 

ғ, ң ғ ұғ ү.

, ? ұғ қ ә қғ .

қ қ ғ

, ғ қ ү ө, , ү, ә қ ғ .

ғ .

5 ң . Ү ғ ү ң . Ә A, B, C, D,..., X, Y, Z ң ә , ң a, b, c, d,..., x, y, z ә .

ң .

Ә қ :

ө ә B = {a1, a2, a3, a4} .

қғ, ң ә ң . ұ ғ ң .

қ.. ң ә ң , -ң .

ө ғ ғ , қ ң ғ қ .

ғ ң , ә ү ү ә ү .

: Z = {z1, z2, z3, z4 } B = {z2, z1, z3, z4} ә ү , ө ң ә ү.

ң

Қ ққ.

1-. 12 қ ә . ү 5 ә ү қ ө. қ қ ү ә құ ү.

 

қ ә 1- 12- :

1, 2, 3, 4, 5,..., 10, 11, 12.

ң 12 ң 5 ң қ. ұ ң ғ , ң , , ң ү: {1, 2, 3, 4, 5}; ғ {2, 1, 3, 4, 5} ң қғ.

, ә ұ : {, , , , ә}; ң ғ ә ғ қң ң : {, , , , ә}.

, 5 ұ ғ , ң ү.

ұ .

қ. k n ұ ң k ұ қ

, M = {1, 2, 3, 4} 4- 2- 12 ә ү ғ :

{1, 2} {1, 3} {1, 4} {2, 3} {2, 4} {3, 4}

{2, 1} {3, 1} {4, 1} {3, 2} {4, 2} {4, 3}

n k ғ ә = қ.

ғ, = = = = 12.

1- ғ қ. 12- 5- .

қ: = =

қ ә ғ :

= =

,

n k k ң ө ң қ :

,

, құ , ғ ү ұ құ ә құ ққ.

n k ..

 

Procedure pl(n, k: nteger; var r: longnt);

var

: nteger;

begn

r:= 1;

for := 1 to k do r:= r*(n - k + )

end;

 

Program msal1;

uses WnCrt;

var

n, k, r: longnt;

{----------------------------------------------------------------------------------------}

{ n k }

Procedure pl(n, k: nteger; var r: longnt);

var

: nteger;

begn

r:= 1;

for := 1 to k do r:= r*(n - k + )

end;

{----------------------------------------------------------------------------------------}

begn

wrte('қ ә ң '); readln(n);

wrte(' ү ө қ ң '); readln(k);

Pl(n, k, r);

wrteln('қ ұқң ғ ң: ', r)

end.

 

2. 0, 1, 2,..., 9 қ ө ң ә ү қ ғ ?

 

10- 4 қ ү ә ңғ қ қ. ғ 10 4 қ қ .

қ ң ұ 0 қ, , 0123, 0213 ә ... ұ ө ңғ . ұ 9 (0- қ) ғ ү ң ө, ғ 9 3- ғ ң, .

10 құғ ө ң ө ң.

 

Program msal2;

uses WnCrt;

var

n, k, a, a1: longnt;

{----------------------------------------------------------------------------------------}

Procedure placement(n, k: nteger; var r: longnt);

var

: nteger;

begn

r:= 1;

for := 1 to k do r:= r*(n - k + )

end;

{----------------------------------------------------------------------------------------}

begn

wrte('ң ө ң '); readln(n);

wrte(' - , '); readln(k);

placement(n, k, a);

placement(n - 1, k - 1, a1);

wrteln(' 0, 1, 2,.., 9 қ ғ ү ');

wrteln('ө ң ө: ', a - a1)

end.

1

қ, құң.

1. 40 ұ ө өғ, ң ә қ ү ә ң ?

2. 1, 2, 3, 4, 5 ғ қ қ ү ң құғ ?

 

ө

 

3. әң ә ұ ө ұ . қ ұ ө 3,5,7,9 ң . Қ ү қ ө қ?

 

ғ ө 5 ғ ү ә ғ ө қ , қ 10 ң ү (0, 1, 2,..., 9). қ ә ү ө .

ұ ө әң әқ қ , :

 

10 10 .

қ, құқ:

 

Program Problem3;

uses WnCrt;

Var

p: longnt;

{----------------------------------------------------------------------------------------}

Procedure placement(n, k: nteger; var r: longnt);

Var

: nteger;

begn

r:= 1;

for := 1 to k do r:= r*(n - k + )

End;

{----------------------------------------------------------------------------------------}

begn

placement(5, 4, p);

p:= 10*10*p;

wrteln(' ү ', p, ' ')

End.

 

4. n m қ ?

 

құ ү

 

n ң , ғ қң .

, ғ n-1 қ. ң m - 1 ң, ұғ қ .

n-1 қ ү ә ңғ қ қ. ә ғ .

ғ қң қғқ, қ -ғ ң .

 

 

Program Problem4;

uses WnCrt;

var

p: longnt;

m, n: nteger;

{----------------------------------------------------------------------------------------}

Procedure placement(n, k: nteger; var r: longnt);

var

: nteger;

begn

r:= 1;

for := 1 to k do r:= r*(n - k + )

end;

{----------------------------------------------------------------------------------------}

begn

wrte('қ ң '); readln(m);

wrte('ң ң '); readln(n);

placement(m - 1, n - 1, p);

wrteln(' ', m, ' ', n, ' ,');

wrteln(' ', p, '-ғ ң')

end.

5. 10 7 құғ. ң қң құ: ) , ) ә ө ?

 

 

, ұ ң ңғ ғ қ?

ңғ қң қ ғ ү ұ қ.

ұ қ, қ ң ү , ғ 7 ң ү.

1- 7- ө ғқ, {1, 2, 3, 4, 5, 6, 7} ү ү. , ң ң қ ғ. ө ұғ, 7 ғ.

ә ғ қ.

, 10- ғң ғ ң, 9 қ. 9 қ 7- ү 6- ң, қ қ. ә ғ .

ә, ң ә . ң ) ң ң.

ө ң

2

1. m n қ қ ?

2. 10 7 құғ. ң ң құ ) ) ү ә ?

 

ғ

1. қ әқ қ қ ү ң құғ ?

2. қ ғ қ қ ү ң құғ ?

3. 20 қ ғ ғ 2 , ң өғ, ғ ң . ұ қ ү ә ғ ?

4. өң ә 4 ә ұ қ ү ө құғ ?

5. 0, 1, 2,..., 9 ң ө ү ө ң қ құғ ?

6. 3, 5, 7, 11, 13, 17, 19, 23 қ ү ұ ө құғ ?

. N ( - 1 N)

 

: , N , K (N - , K - , ).

: .

 

N=4. . 1 N. (. 12.1):


. 12.1.

, "1", - "0":

12.1.
     
     
     
     
     
     
     
     

, : {3}, {2}, {2, 3}, {1}, {1,3}, {1, 2}, {1, 2, 3}.

"0" "1". " ", 2n-1.

: ( ). - i . - d , ( ).

2^n-1 ( , ).

:

input " . ="; nfor i=1 to n input " "; a(i)nextfor i=1 to 2^n-1 rem= ========= for j=1 to n if d(j)=0 then x=j next rem= =========== for z=x to n d(z)=0 next z d(x)=1 rem= ==================== for j=1 to n if d(j) <> 0 then print a(j); next j printnext i

:

const nn=10;var a,d: array [1..nn] of integer; i,n,x,j,z,st: integer;begin writeln (' '); readln (n); for i:= 1 to n do begin writeln (' '); readln (a[i]); end; {= ===} st:=1; for i:=1 to n do st:=st*2; for i:= 1 to (st-1) do begin for j:= 1 to n do if d[j]= 0 then x:= j; for z:= x to n do d[z]:=0; d[x]:=1; {= ========} for j:= 1 to n do if d[j]<>0 then write (a[j]); writeln; end;end.

:

: N=3{1,2,3}
: 2,3 1,3 1,2 1,2,3

, 0 n , n- .

:

  • " ": X. 1, 5, 10, 50 .
  • M1, M2, M3, M4. X?
  • N . , 1 N , X.

:

input "x="; xinput " "; nfor i = 1 to n input " "; a(i)nextfor i = 1 to (2^n - 1) rem== == for j = 1 to n if d(j) = 0 then k = j next j for z = k to n d(z) = 0 next z d(k) = 1 rem============================= s = 0 for j = 1 to n if d(j) <> 0 then s = s + a(j) next j rem======== ========== if s = x then for ii = 1 to n if d(ii) <> 0 then print " "; a(ii); next ii end if printnext i

:

const nn=10;var a,d: array [1..nn] of integer; ii,i,n,x,j,z,st,k: integer;begin writeln (' ); readln (); writeln (' '); readln (n); for i:= 1 to n do begin writeln (' '); readln (a[i]); end; {= =} st:=1; for i:=1 to n do st:=st*2; {=================================} for i:= 1 to (st-1) do begin {= ===} for j:= 1 to n do if d[j]= 0 then k:= j; for z:= k to n do d[z]:=0; d[k]:=1; {=============================} s: = 0; for j: = 1 to n do if d[j] <> 0 then s:= s + a[j]; if s = x then {===== =========} for ii:= 1 to n do if d[ii] <> 0 then write (a[ii]); writeln; end;end.

:

: x=5n=31,2,3
: 2,3

  • - , "" .
  • - .

.

() , , . , "" .

: , , , , - .

.

  • ?
  • n- .
  • ( )?
  • , ""/" ": (" 1"/" 2")?

.

  • n. , n.
  • - , ( n ). , ( , m ).

 



<== | ==>
7. қң 32 қ ө 12 қ ә 12 қ қ ә ғ ? | . N ( - 1 N). Procedure Factoral(n: nteger; var f: longnt);
:


: 2017-03-18; !; : 1278 |


:

:

, ,
==> ...

1442 - | 1357 -


© 2015-2024 lektsii.org - -

: 0.569 .