1. . , .
1
y = ctg x + 
,
2
= x2 +b- 
sin b,
4
5
6
7
8
9
10
2. Pascal , .
1
2
3
4
5
6
7
8
9
.
10
3. ( , , ; - ) . .
1
[-1÷1] 0,1
2
x [0÷10] 0,5,
b .
3
[0÷6] 0,4,
u, t- .
4
x 0; 0,5; 1;... 3, -
5
x [ 0,7; 2 ] 0,1;
=1.65.
6
[0,1÷1,7] 0,2,
=0,9
7
[2 ÷ 5] 0,25.
8
[0,2÷2] 0,1; t=2,2.
9
[0,2÷2] 0,1; =20,3
10
x 0; 0,5; 1;... 3, -
4. , ( ).
1
2
3
35
4
50
5
6
7
8
=0,20 
=10-9.
|
|
|
9
=0,10 = 0.5 * 10-4
10
,
=0,75 = 10-3.
5. .
1
{N,). N4. 15, 4 10.
2
{N,). . N≤15, <10.
3
{N,). , N≤2.
4
(N,N). N≤15.
5
() 1 < , ≤ 40.
6
R(,N). <20,N≤10.
7
F(N,) N≤10, ≤ 15.
8
Z(N). R , Z.
9
N(, ) , . ≤ 20, ≤ 10
10
7). . N≤ 12, ≤ 15.
6. .
1
. , , , , .
2
. - , , 2, 3 ..
3
, , , . , .
4
(). - , , .
5
, , . , .
6
. , , , .
7
, . , .
|
|
|
8
. , , .
9
. , .
10
, , . , .
7:
1.
. . . . . , - . .
2
, . Paint . TxtRez . ( , ). TxtRez .
3
. , :
.1 .2
1 2
.
: 1) ; 2) ... . - .
IZMXY : , , .
4
(. ) : - . : .
: . , . . - .
5
(. ) : . : .
: . , . . - .
6
(. ) : -
: .
:
.
, .
.
- .
7
, . ! . ! . !
|
|
|
8
. ?. , !, !.
9
. . . xl 2.
10
.
1 2: , = 2 + b2; y2 = 
1:
:
1. 
Y:= SQRT (ABS (-A*X+C))/LN(ABS(X+C*C))
2. 
Y:= EXP(1/3*LN(A*X))
3. 
Y:= SQR(a+b)+a*cos(a+b) +a*SQRT(b)/(a+b)
4. 
Y:= LN(ARCCT(x)-SIN(a*b))+EXP(5*LN(a*x)).
2.
, .
| = |
| =3 |
| C<D |
| =1 |
| =2 |
PROGRAM TNL (INPET; OUTPUT);
VAR A,B,C,D:REAL;
X:INTEGER;
BEGIN
WRITELN ( A,B,C,D);
READ (A,B,C,D);
IF A=B THEN
IF C<D THEN
X:=1
ELSE
X:=2
ELSE
X:=3
WRITELN ( =, :8:3);
END.
3.
N.
PROGRAM FA;
VAR N,I,P:INTEGER;
BTGIN
READ (N);
WRITELN ( N=, N);
P:=1
FOR I:=1 TO N DO
P:=P*I
WRITE (N!=, P);
END.
4.
(20) ., . 20- , .
PROGRAM OSADKI;
TYPE T=ARRAY [120] OF REAL;
VAR A:T;
S:REAL;
BEGIN
S:=0
FOR I:=1 TO 20 DO
BEGIN
WRITELN ( );
READ (A [I]);
S:=S+A[I];
END;
S:=S/20
WRITELN ( , S);
FOR I:=1 TO 20 DO
WRITELN (S-A[I]);
WRITELN ( );
END;
END.
5.
, 5 4 . , , , .
PROGRAM MAS (INPUT, OUTPUT);
TYPE MMM=ARRAY [14] OF REAL;
VAR M: ARRAY [15] OF MMM;
M1: MMM
MAX, MIN: REAL; MAX, MIN,I,J:INTEGER;
BEGIN
WRITELN ( );
FOR I:=1 TO 5 DO
FOR J:=1 TO 4 DO
BEGIN
IF MAX <M[I,J] THEN
BEGIN
MAX:=M[I,J];
MAX I:=I
END;
IF MIN >M[I,J] THEN
BEGIN
MIN:=M[I,J];
MIN I:=I
END;
END;
M1:=M [MAX I];
M [MAX I]:= M [MIN I];
M [MIN I]:=M1;
WRITELN ( );
FOR I:=1 TO 5 DO
BEGIN
FOR J:=1 TO 4 DO
WRITE (M [I,J]:5:2);
WRITELN;
END;
END.
| 1.1 | 1.2 | 1.3 | 1.4 |
| 2.1 | 2.2 | 2.3 | 2.4 |
| 3.1 | 3.2 | 3.3 | 3.4 |
| 4.1 | 4.2 | 4.3 | 4.4 |
| 5.1 | 5.2 | 5.3 | 5.4 |
| 5.10 | 5.20 | 5.30 | 5.40 |
| 2.10 | 2.20 | 2.30 | 2.40 |
| 3.10 | 3.20 | 3.30 | 3.40 |
| 4.10 | 4.20 | 4.30 | 4.40 |
| 1.10 | 1.20 | 1.30 | 1.40 |
6.
(5,4) , .
PROGRAM Is _ Matr; { }
Uses
Ctr;
Const
N_st=5; { }
N_cl=4; { }
Type
Int_st=1n_st;
Int_cl=1n_cl;
Matrixs = Array [Int_st, Int_cl] of integer;
VAR
Max:integer; { }
|
|
|
I, st_max:Int_st: {I,J }
J, cl_max:Int_cl; {st max, cl-max max}
M:Matrixs; {}
BEGIN
ClrScr;
{ N_st N_cl }
WRITELN ( , N_cl, }
FOR I:=1 to n_st do
BEGIN
FOR J:=1 to n_cl do
Resd (M[I,J]); { }
READLN; { n_cl}
END; {FOR_i}
{ }
WRITELN ( n_st, n_cl, );
FOR I:=1 to n_st do
BEGIN
FOR j:=1 to n_cl do
WRITE (M[I,J]:4); { }
WRITELN; { n_cl}
END; {for - i}
{ Max, St_Max, Cl_Max}
Max:=M[1,1];
St_MAX:=1;
Cl_MAX:=1;
FOR i:=1 to n_st do
FOR j:=1 to n_cl do
IF M [I,J] > MAX
Then
Begin
Max:=m[I,J];
St_Max:=I;
Cl_Max:=J;
End;
WRITELN (Max=, Max:4, St_Max=, St_Max:3,Cl_Max=,
Cl_Max:3);
END.
7.
ZAR : , , . . :
PROGRAM ZAR (INPUT, OUTPUT);
TYPE =RECORD :PACKED
ARRAY [110] OF CHAR
: 19651975;
: 19851988;
:RECORD
, , : 15
END;
END;
VAR :ARRAY [15] OF ;
S1: ; I,J:INTEGER;
BEGIN;
READLN;
WITH S1 DO
BEGIN FOR I:=1 TO 5 DO
BEGIN;
WRITE (=>);
FOR J:=1 TO 10 DO; READ ( [J]);
READLN ( , , , , );
[I]:=S1;
END;
WRITELN ( );
FOR I:=1 TO 5 DO WITH [I], DO
IF (=5) AND (=5) AND (=5) THEN
WRITELN (, =, :4, =, :4);
END.
:
| → | ||||
| → | ||||
| → | ||||
| → | ||||
| → |
| = 1971 | = 1985 | |
| = 1970 | = 1985 |
8.
n .
PROGRAM ABC;
VAR
F:file OF REAL;
A:REAL;
I,n:INTEGER;
BEGIN
{ }
ASSING (F, D:/TP/ABC.DAT);
{ }
BEWRITE (F);
{ }
READ (N);
{ }
FOR I:=1 TO N DO
BEGIN
WRITE (A=);
READ (A);
WRITE (F,A)
END;
{ . }
CLOSE (F);
END.
9.
F=m!-n!. .
PROGRAM PR;
VAR F,M,K:INTEGER;
FUNCTION FAKT (N:INTEGER):INTEGER;
VAR P,I:INTEGER;
BEGIN
P:=1;
FOR I:=2 TO N DO;
P:=P*I;
FAKT:=P;
END;
END;
BEGIN
WRITE ( , ʒ);
READ (M,K);
F:=FAKT(M)-FAKT(N);
WRITELN (F=, F:S);
END.
10.
. , .
PROGRAM PR;
VAR A,B:STRING [20];
I,N:INTEGER;
C:CHAR;
BEGIN
READLN (A);
N:=LENGTH (A);
B:=
FOR I:=1 TO N DO;
B:=B+COPY (A,N-I+1, 1);
WRITELN (B);
END.
11.
, . .
VAR STR:STRING[30];
KOL,K,MAX,I,N:INTEGER;
BEGIN
READLN (STR); { }
N:=LENGTH (STR); { }
MAX:=0; { }
KOL:=1; { }
I:=1; { }
WHILE I<=N DO; { }
BEGIN
K:=0; { . }
REPEAT { }
K:=K+1; { }
I:=I+1; { }
{ , }
UNTIL (STR [I]= ) OR (I > N);
{ , }
IF K > MAX THEN MAX:=K;
{ , , }
|
|
|
ELSE IF K=MAX THEN KOL:=KOL+1;
I:=I+1 { , }
END;
WRITELN (MAX, , KOL);
END.
11:
. , txt 1 , , .
| Lst(F) |
| .. |
| Txt1 |
| Lst I |
| Cmd D |
:
FI
Fam
Im
Private Sub txt2_Change ()
FI = txt1.Text
End Sub
B General:
Public FI As String*25
Private Sub cmd D_Click ()
Dim Fam, Im As String*15, Pos As Byte
Pos = InStr (FI, )
Fam = Left (FI, Pos-1)
Im = Right (FI, Len (FI)-Pos)
LST F. AddItem Ucase (Fam)
LST I. AddItem Ucase (Im)
End Sub
.
