қ ү
14. 210 ң ғ қ ө ? 30030 ? N ү ?
қ ұғ , ұ қғ қ.
p1,..., pm q ң ә ү қ ө . , ұғ - қ , q ң қ ө (1 q- қ) a1, a2,..., am ә өң қ ң. ө ң.
құ ө ү:
- 2- ө қ ө қ.
- ұ ө 1- , s .
- қ қ ө қ.
- Ә қ ө ү ң 1- ә s- ө.
- ә қ ө ғ ғ.
Program Problem14;
uses WnCrt;
var
s, q, m, j, n: nteger;
begn
wrte(' '); readln(n);
m:= n;
q:= 0;
s:= 0;
whle m mod 2 = 0 do
begn
q:= q + 1;
m:= m dv 2
end;
s:= q + 1; j:= 3; q:= 0;
whle j <= m do
begn
f m mod j =0 then
begn
q:= q + 1;
m:= m dv j
end;
s:= s*(q + 1);
f m mod j <> 0 then j:= j + 2
end;
wrteln(n, ' ң қ ө ', s, ' ')
end.
8
15 ү қң 4- ө ә қ ү қ ү ө , 15 ү қ қ ү қ?
1. n k .
Procedure placement(n, k: nteger; var r: longnt);
var
: nteger;
begn
r:= 1;
for := 1 to k do r:= r*(n - + 1)
end;
2. n k
Procedure Combnaton(n, k: nteger; var c: longnt);
var
: longnt;
begn
c:= 1;
for := 1 to k do c:= c*(n - k + ) dv
end;
ғ
1. 5-, 8 -, 12 ә 15 ұқң қ қ?
2. Әқ 100 қғ қ қ ү - ө қ. ұ қ ә ғ ?
3. 7 , 9 . - қ ү ә ?
|
|
4. ө ү ү 3 , 2 ә ү 1 ө. 20 қ, ң , ү қ ү ә ү? ә ү ү ?
5. 8 ү қ қ ү қ, ң ө ә қ ү қ ү ө ?
6. үұң қң ө үң қ ң.
7. ң қ 4 ү қ қ ү ?
8. ү : C, D, E, F, K. қ ғ қ ғғ ?
9. ұ қ ү ә қ ұ ғ қ ә ө ?
10. Ө ә ү қғң 6 ұ . ң ә қғ ө ә ү қғ қ ү ә ңғ ?
11.. ү ә ү , ү ә ү ү қ ұ қ ү ә құғ ?
12. қң ғ қ (2 , 2 , 2 , ә ) қ ү ә ғ ?
13. өң n-ұң қ ң ү ү қ , ң қ үң ң.
1
1
Program Task1;
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(40, 3, p);
wrteln('ү ә : ', p)
end.
2
Program Task1_2;
uses WnCrt;
var
s, r1, r2, r3: 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, 1, r1);
placement(5, 2, r2);
placement(5, 3, r3);
s:= r1 + r2 + r3;
wrteln('1, 2, 3, 4, 5 ');
wrteln(s, ' ә ү ң құғ ')
end.
2
1
Program Task2_1;
uses WnCrt;
|
|
var
p1, p2, 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, n, p1);
placement(m - 1, n - 1, p2);
p:= p1 - p2;
wrteln(' ')
wrteln(m, ' ', n, ' ', p);
end.
2
Program Task2_2;
uses WnCrt;
var
p1, p2, p: longnt;
m, n, k: nteger;
{----------------------------------------------------------------------------------------}
Procedure placement(n, k: nteger; var r: longnt);
var
: nteger;
begn
r:= 1;
for := 1 to k do r:= r*(n - + 1)
end;
{----------------------------------------------------------------------------------------}
begn
placement(7, 1, p1);
placement(9, 6, p2);
p:= p1*p2;
wrteln('Құ ');
wrteln('10 7- ', p, ' ')
end.
3
Program Task3_1;
uses WnCrt;
var
z, z1: longnt;
{----------------------------------------------------------------------------------------}
Procedure Factoral(n: nteger; var f: longnt);
var
: longnt;
begn
f:= 1;
f n=0 then f:= 1 else for := 1 to n do f:= f*
end;
{----------------------------------------------------------------------------------------}
begn
Factoral(4, z); z:= 2*z; Factoral(3, z1); z:= z - z1;
wrteln('0, 1, 2, 3, 5 қ 5- ');
wrteln(z, ' ң құғ ')
end.
4
Program Task4_1;
uses WnCrt;
var
s, k1, k2, k3: 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
Factoral(9, s); Factoral(4, k1);
Factoral(3, k2); Factoral(2, k3);
s:= s dv (k1*k2*k3);
wrteln('ʳ ', s, ' ү ә ғ ')
end.
5
1
Program Task5_1;
uses WnCrt;
var
: 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(28, 2, );
wrte('2- ә 30 ');
wrteln('құ 2- ә ');
wrte(' 4 ');
wrteln(,' ү ә ңғ ')
end.
: . . . , N K (N - , - , ).
: .
, : , ( ), ( ) . () . :
|
|
N=4, K=2. (.11.1):
. 11.1.
2 , , 11.1:
11.1. | |||
{01} {10} | , . | {01} {10} | , . |
: "". (K=N). , .
:
:
for i=1 to nfor j=1 to nprint A(i), A(j);next j, i | for i:=1 to n dofor j:=1 to n dowriteln (A[i], A[j]); |
:
for i=1 to nfor j=1 to nif i<>j then print A(i), A(j);next j,i | for i:=1 to n dofor j:=1 to n doif i<>j then writeln (A[i], A[j]); |
:
...for i=1 to nfor j=i to nprint A(i,j);next j, i | ...for i:=1 to n dofor j:=i to n dowriteln (A[i], A[j]); |
:
...for i=1 to n-1for j=i+1 to nprint A(i), A(j);next j, i | ...for i:=1 to n-1 dofor j:=i+1 to n dowriteln (A[i], A[j]); |
" "
10 3. . .
: .
dim a$(10)for i=1 to 10 input " "; a$(i)nextfor 1=1 to 10 for 2=1 to 10 for 3=1 to 10 print a$(1); a$(2); a$(3); k=k+1next x3,x2,x1print "k="; k
:
var a: array [1.10] of char; x1, x2, x3, k, i: integer;begin for i:=1 to 10 do readln (a[i]); for 1:=1 to 10 do for 2:= 1 to 10 do for 3:=1 to 10 do begin writeln (a[1], a[2], a[3]); k:=k+1; end; writeln ('k:=', k);end.:
: |
10 . ?
: .
dim a$ (10)for i=1 to 10 input " "; a$ (i)nextfor 1=1 to 10 for 2=1 to 10 for 3=1 to 10 print a$(1); a$(2); a$(3)next x3,x2,x1
:
var a: array [1.10] of string; x1, x2, x3, i: integer;begin for i:=1 to 10 do begin writeln (' '); readln (a[i]); end; for 1:=1 to 10 do for 2:= 1 to 10 do for 3:=1 to 10 do writeln (a[1], a[2], a[3]);end.
|
|
" "
3- , ( )
: .
Input "k="; kfor 1=1 to 9 for 2= 0 to 9 for 3=0 to 9 if 1+2+3=k then print 1; 2; 3next x3,x2,x1
:
var x1, x2, x3, k: integer;begin writeln ('k='); readln (k); for 1:=1 to 9 do for 2:=0 to 9 do for 3:=0 to 9 do if 1+2+3=k then writeln (1, 2, 3);end.:
: | |
: |
'' ("" - , ).
: .
:
for 1=1 to 9 for 2=0 to 9 for 3=0 to 9 for 4=0 to 9 for 5=0 to 9 for 6=0 to 9 if x1+x2+x3=x4+x5+x6 then k=k+1next x6, x5, x4, x3, x2, x1print "k="; k:
var x1, x2, x3, k: integer;begin k:=0; for 1:=1 to 9 do for 2:=0 to 9 do for 3:=0 to 9 do for 4:=0 to 9 do for 5:=0 to 9 do for 6:=0 to 9 do if x1+x2+x3=x4+x5+x6 then k:=k+1; writeln ('k=', k);end.:
: |
N . "" (, ).
: . .
:
input " "; ndim x (n), y (n)for i=1 to n input " "; x(i), y(i)nextfor i=1 to n s=0 for j:=1 to n s=s+ sqr ((x(i)-x(j))^2+(y(i)-y(j))^2) next if s>max then max=s: num=inextprint " -"; x(num), y(num):
var x,y:array [1..10] of integer; i,j,n,num,max:integer;begin writeln (' '); readln (n); for i:=1 to n do begin writeln (' '); readln (x[i], y[i]); end; for i:=1 to n do begin s:=0; for j:=1 to n do s:=s+ sqrt (sqr(x[i]-x[j])+sqr(y[i]-y[j])); if s>max then begin max:=s; num:=i; end; end; writeln (x[num], y[num]);End.:
: | N=51,64,26,57,1010,3 |
: | 7,10 |
N . 2 .
: . .
:
input " "; ndim x(n), y(n)for i = 1 to n input " "; x(i), y(i)nextfor i = 1 to n - 1 for j = i + 1 to n ras = sqr((x(i)-x(j))^ + (y(i)-y(j))^2) if ras < max then max = ras: num1 = i: num2 = jnext j, iprint x(num1); y(num1); "-"; x(num2); y(num2):
var x,y:array [1..10] of integer; n,i,j,num1,num2:integer; ras,max:real;begin writeln (' '); readln (n); for i:=1 to n do begin writeln (' '); readln (x[i], y[i]); end; {=================================} for i:=1 to n-1 do for j:=i+1 to n do begin ras:= sqrt(sqr(x[i] - x[j]) +sqr (y[i] - y[j])); if ras > max then begin max:=ras; num1:=i; num2:=j; end; end;writeln (x[num1], y[num1], '-', x[num2], y[num2]);end.:
: | N=63,56,87,69,1215,1013,3 |
: | 3,5 - 15,10 |
N . , .
:
, (.11.2). , . .
. 11.2.
:R=(abc)/(4S)
, . R ( ).
:
input "n="; ndim x(n), y(n)print "x=, y="for i = 1 to n input x(i), y(i)nextfor i = 1 to n - 2 for j = i + 1 to n - 1 for r = j + 1 to n ras1 = sqr((x(r) - x(j)) ^ 2 + (y(r) - y(j)) ^ 2) ras2 = sqr((x(j) - x(i)) ^ 2 + (y(j) - y(i)) ^ 2) ras3 = sqr((x(i) - x(r)) ^ 2 + (y(i) - y(r)) ^ 2) if (ras1+ras2+ras3)>max then max=(ras1+ras2+ras3): num1=i: num2=j: num3=rnext r, j, iprint x(num1); y(num1); "-"; x(num2); y(num2); "-"; x(num3); y(num3):
|
|
:
: | N=84,113,74,37,106,76,211,89,5 |
: | 4,11-6,2-11,8 |
- - .
- - : , . .
- - , . .
- - (K=N). ,
- ( ), ( ) .
{0, 1, 2} 2 11.2:
11.2. | |||
00, 01, 02, | 01, 02, | 00, 01, 02, | 01, 02, |
10, 11, 12, | 10, 12, | 11, 12, | |
20, 21, 22 | 20, 21 | ||
{01} {10} | , . | {01} {10} | , . |
(K=N). , .
.
- .
- ?
- ?
.
- N ( - 1, 2, 3, ). . , .
- . 2 2- . 2 : "-1_ 2" ( ).
- 5 . .
- 4 : , , , , , . .