N 1.
( ) , , .. . PASCAL , .
:
IF B THEN S1 ELSE S2 IF B THEN S1 |
B - , S1, S2 - . (.. Begin End).
, S1, , S2.
. A=k+40, 15<k<25. k A=20*k.
If (k>15) And (k<25) Then A:= K+40 Else A:= 20*k
A:= 20*k
If (k>15) And (k<25) Then A:=K+40
, - . :
Case () OF ( 1): ( 1); ( 2): ( 2); ........... ( N): ( N); End; |
, .
. k - .
Case k of
1: A:=Sin(x);
2, 3: A:=Sin(x)+2;
4..10, 15: A:=Cos(x)+Sin(x);
End;
, GOTO ()
, ,
Label 10, 20, Lab1, Metka;
.
. , .
.
1. x, y, z 10, , x y .
2. a f(x)=0,
3. . ch(x), 1+│x│, (1+x2)x.
4. A1, B1, C1, A2, B2, C2. , A1*X + B1*Y + C1 = 0 A2*X + B2*Y + C2 = 0 , , .
5. a, b, c. , , , .
|
|
6. x, y. (x, y) .1, .
7. x, y. (x, y) .1, .
8. x, y. (x, y) .1, .
9. x, y. (x, y) .1, .
10. x, y. (x, y) .1, .
11. x, y. (x, y) .1, .
12. x, y. (x, y) .1, .
13. x, y. (x, y) .1, .
14. D- ( 2. ) U x, y 0, (x, y)ÎD, u= x, . ,. U.
15. D- ( 2. ) U x, y -3, (x, y) ÎD, u= y*y, . ,. U.
16. D- ( 2. ) U x, y
x-y, (x, y) ÎD, u= y*x+7, . ,. U.
17. D- ( 2. ) U x, y x*x-1, (x, y) ÎD, u= │x-1│, . ,. U.
18. D- ( 2. ) U x, y x*x-1│, (x, y) ÎD, u= x+y, . ,. U.
19. D- ( 2. ) U x, y x+y, (x, y) ÎD, u= x-y, . ,. U.
20., 12 .
20.01 | - | 18.02 | - | 23.07 | - | 22.08 | - | |||
19.02 | - | 20.03 | - | 23.08 | - | 22.09 | - | |||
21.03 | - | 19.04 | - | 23.09 | - | 22.10 | - | |||
20.04 | - | 20.05 | - | 23.10 | - | 22.11 | - | |||
21.05 | - | 21.06 | - | 23.11 | - | 21.12 | - | |||
22.06- | - | 22.07 | - | 22.12 | - | 19.01 | - |
, .
N2. .
.
. , . PASCAL : (While), (Repeat), (For).
|
|
, .
. . . . : , .
:
While < > do begin < > end; |
, .
Program MinEps;
var Eps, Eps_Min: real;
begin
Eps:=1;
While Eps>0 do { }
begin
Eps_Min:=Eps; { }
Eps:=Eps/2;
end;
writeln('Eps_Min=', Eps_Min);
end.
:
Repeat < > Until < > |
, .
Program MinEps;
var Eps_Min: real;
begin
Eps_Min:=1;
Repeat { }
Eps_Min:=Eps_Min/2; { }
Until Min_Eps/2=0;
writeln('Eps_Min=', Eps_Min);
end.
, . :
1. i
For i:=m1 to m2 do begin < > end; |
2. i
For i:=m1 Downto m2 do begin < > end; |
, 10
Program Sum10;
var i, Sum:integer;
begin
Sum:=0;
For i:=1 to 10 do
Sum:=Sum+i;
writeln('=', Sum);
end.
. , Begin - End .
.
. , .
.
1. N.
2. N. N
3. n.
4. n. a (a+1)... (a+n-1)
5. N x. Sin(x)+Sin2(x)++Sinn(x).
6. N. N
7.. N. .
8. A 0=1, Ak=k*Ak-1+1/k, k=1,2,... k Ak.
9. n a. a*(a+1)*(a+2)**(a+n-1)/
10.
10.
11.
12.
13.
14. n. , n .
15. n. .
16. 1 10000 .
17. P, Q. Q .
18. 100 .
19. , , . 6 - , 6=1+2+3. 8 - , 8<>1+2+4. n. , n.
|
|
20. , .
N3. .
, . . , . :
Type
T1 = Array [1..N] of Integer;
T2 = Array [1..5] of Char;
Var
A:T1; { A}
B:T2; { B}
C: Array [1..25] of Real; { C }
, .. . . :
Type
T1 = Array [1..N, 1..4] of Integer;
Var
A:T1; { A N*4}
B: Array [1..5, 1..4] of Real { B 5*4}
:
- .
- . .
Program Example1;
Uses Crt;
Const n=5;
Var A: Array [1..n] of Integer;
i: Integer;
Begin
ClrScr;
{Writeln (' ');
For i:=1 to n do
Begin
Write('A[',i,']=');
Readln(a[i]);
End;
{ }
Writeln(' A');
For i:=1 to n do Writeln(a[i]:5);
Readln;
End.
.
.
Max:=A[1];
IndexMax:=1;
For i:=2 to n do
If Max<A[i] then
begin
Max:=A[i];
IndexMax:=i;
end;
: Max - , IndexMax - .
, .
.
1. A[1900], A[1901].A[1950] - , 50 . .
2. A[1],A[2],A[3],...,A[2*n]. e A[1],A[n+1],A[2],A[n+2],A[n],A[2*n].
3. A[1],A[2],A[3],...,A[2*n]. e A[1], A[2n], A[2], A[2n-1]...,A[n], A[n+1].
4. A[1],A[2],A[3],...,A[2*n]. A[1]+A[2n],A[2]+A[2n-1],...,A[n] + A[n+1].
5. A[1],A[2],A[3],...,A[n]. , ; .
6. A[1],A[2],A[3],...,A[n]. , max(A[1],A[2],A[3],...,A[n]).
7. A[1],A[2],A[3],...,A[n]. , Max(A[1],A[2],A[3],...,A[n]) Max(A[1],A[2],A[3],...,A[n].).
8. A[1],A[2],A[3],...,A[n], . M.
9. A[1],A[2],A[3],...,A[n]. , , - . .
|
|
10. A[1],A[2],A[3],...,A[n]. , . o Min(A[1],A[2],A[3],...,A[n]), .
11. A[1],A[2],A[3],...,A[n], 0, 1, 2. , 0, 1, 2.
12. ( , ): , - , , .
13. ( , ): k .
14. A[1],A[2],A[3],...,A[n]. , ( ).
15. 30 . , (, ).
16. A[1],A[2],A[3],...,A[n] ( ). , .
17. A[1],A[2],A[3],...,A[n] [1],[2],[3],...[n]. .. , .
( , , , )
18. A[1],A[2],A[3],...,A[n]. . , [1] - k, k - [1] . [i] - m, [i]- , [1], m ..
19. A[1],A[2],A[3],...,A[n]. , A[i] , │A[i]│<>Max(A[1],A[2],A[3],...,A[n]) A[i] .
20. A1,A2,... An. , ; , , .