1. .
2. - .
3. - , .
1. 1
2. 1 ,
3. 1 ,
4.
: . 11 . i i+1; , [0] = 1, [1] = 2, [2] = 3 [10] = 11.
10 . :
[1] = [0] = 1,
[2] = [1] = 1,
[3] = [2] = 1,
[10] = [9] = 1.
4. -
1.
2.
3.
4. , ,
: - . ( ) ( ) . . , > , > C B > . , : ( ), ( ), ( ). > > C, B > , : ( ), ( ), ( ). > , > C , : ( ), ( ), ( ). > ( > ) > C > . , : ( ), ( ), ( ). > C , > , : ( ), ( ), ( ). > C , : ( ), ( ), ( ). , , .
|
|
5. 1
1.
2.
3.
4.
:
1. -
. 2 4
1. 2 5
2. 1*2*3*4
3. 1*2*3*4*5
2.
1. ,
2.
3. ,
4.
3. -
1. A4
2. 1*2*3*4
3. 1*2*3*4*5
4. A 5
4.
1.
2.
3.
4.
5. - a b
1. a=2, b=2
2. a=4, b=2
3. a=2, b=4
4. a=0, b=0
6. -
X Y
1. X=3, Y=4,5
2. X=2, Y=2
3. X=3, Y=0,5
4. X=2, Y=3,5
7. 2, 4, 6, 8 N=8 , ,
1. 2, 4, 16, 32
2. 4, 16, 36, 64
3. 4, 16, 32, 48
4. 4, 12, 24, 36
8.
a:=3; b:=7;
(a / 2) ≤ (b / 3)
a:=a+2;
b:=b+3;
;
1. 10
2.
3. 100
4. 1000
9.
Y:= X + 5
X:= Y
Y:= X + Y
Y
Y 14. , X .
1. 7
2. 2
3. 5
4. 10
10. d ( mod (, y) y)
k:= 70
| mod(k, 12) = 7: d:= k;
| mod(k, 12) < 5: d:= 2;
| mod(k, 12) > 9: d:= 3;
| d:= 1;
1. 3
2. 70
3. 2
4. 1
4
: TURBO PASCAL
:
1. , , , .
2. .
: , .
: [1]-. 275-295, [2]-. 157-176.
:
-, program . .
- , .
:
(uses);
(label);
(const);
(type);
(var);
(procedure function).
, , . . :
Var
|
|
al, a2, a3: integer; xl,xl: real;
begin. , . end, .
program Priml; ( }
Var
,b,,:real; { }
begin { }
write(' ');
readln(a,b); { }
:=+; { }
:=*; { }
writeln('+=',,*=',); { }
end. { }
. , b, - , .
TURBO PASCAL :
: , , C...Y, Z, a, b, ,..., z;
: 0, 1, 2,...9;
: + - */ ><=;# ,.: {} [] ()
, , : : =, .., ><, < =, > =.
, . . TURBO PASCAL . , . . , . , Alfa, Mas2 - ; 20, 'pascal' - .
, , . .
. Integer :
-32768...32767.
() , : . real, , 11-12 .
, , 32.5. ( ).
0.518+2 = 0.518 * 102= 51.8 0.518-2 = 0.518 * 10 2 = 0.00518 |
() boolean : true () false (). .
, 5.
5
+ | , | , | |
- | , | , | |
* | , | , | |
/ | , | ||
D1V | |||
MOD |
, z, z- , a DIV z. =17, z =5, 3.
z, z - , a MOD z. =17, z=5, 2.
, . . =n (integer), : xn = **... - .
n (real), :
TURBO PASCAL . 6 . :
|
|
1. , cos (+), cos (1.3), cos (), cos (In ()).
2. .
6
Abs(x) | , | , | |
Arctan(x) | , | ||
Cos(x) | , | ||
() | , | - | |
Frac(x) | |||
lnt(x) | |||
Trunc(x) | , | ||
Kound(x) | |||
Ln(x) | , | ||
Kandom(x) | [0,] | ||
Sin(x) | , | ||
Sqr(x) | , | ||
Sqrt(x) | , | X | |
Pi | 3.1415... |
. , , , . .
:
;
, ;
:
1. ,
2. *, /, DIV, MOD,
3. +,-.
:
(In()*ln()-cos(*)+sqrt(-*))/
, , , (>,< . .) not, and, or. true () false ().
:
(>0) and (b>0) - true, >0 b>0;
(a>0)or(b>0) - true, >0 b>0 (>0 b>0);
. (, ) . Read Readln. :
Read (< >); Readln (< >); |
. . Read <Enter>. Readln Read, , .
, read (i, k); , <Enter>.
- , ( , , ). Write, Writeln. :
|
|
Write(< >); Writeln(< >);
, , . , Write(''); Write(34.7); Write(45+55); Write(b, d);
, , , . Writeln Write, , .
TURBO PASCAL , , . TURBO PASCAL . . , , . , , , . , .
. , , . := . : , , .. , , . ,
:= 1;
:= 5.02;
b:= 32*a+Sin();
s:= ' ';
b, r .
Program Prim2;
Var
a,b,r: real;
Begin
write(' '); readln(a,b);
r: =a; { r}
: =b; { b }
b:=r; { r b}
write ('=', , 'b=', b);
End.
C , , begin end. , .
Begin
< 1>;
< 2>;
< N>
End;
if . :
if <> then < 1>;
if <> then < 1> else < 2>;
<> ;
< 1>, < 2> .
: < > ( true), < 1>, < > ( false), < 2>. else <> , , if.
if.
1
if a>b then write (a) else write (b); a>b;
, - b.
2
if (a>b) and (>) then write (a);
, >b >.
3
if < 0 then
Begin
b:=2 * ;
Write(b);
End
Else
: = sqr(a);
0, b , 0, .
.
:
while< > do <>;
<> - ;
<> - ( ).
, < > true, , < > false.
|
|
:
Repeat
< >
until < >;
< > - TURBO PASCAL, . < > , < >.
for
for i:=n to nk do <>;
for : =n downto nk do <>;
- ; n, nk - . 1 1 .
< > - ( ).
for , .
n.
program m;
Var
,n:integer;
:real;
Begin
writeln(1 n1);
Readln(n);
{1 WHILE}
:=0;
i:=l;
while i<=n do
Begin
:=+1/;
:=+1;
End;
writeln('=', );
{2 REPEAT}
:=0;
: =1;
repeat
:=+1/;
:= + 1;
until i>n;
writeln(1y=',y);
{3 FOR}
:=0;
for i:=l to n do
:=+1/;
writeln('=',);
End.
- , , . .
- , . , () . , , :
: array [l..n ] of< >;
- ; - ; < > - (real, integer ..).
.. , .
program Mas; var a: array[1..20] of real; begin end. | program Mas; const n=20; var a: array[l..n] of real; begin end. |
() . : [1] - 1; [3] - 3; [ ] - .
- , . , , . , - . , 3, :
[1,1] | [1,2] | [1,3] |
[2,1] | [2,2] | [2,3] |
[3,1] | [3,2] | [3,3] |
. :
[1,2] - , 1 2;
a[i,k] - .
:
a: array [1..n,1..m] of< >;
, m - .
: a: array[1..10,1..10] of integer;
, integer, 10 10 .
. - , 10 . b - , 10 10 . , .. . b ( 10), . . b .
Program Prim4; var
:array[1..10] of real;
b:array[1..10, 1..10] of real;
i,j,m,n: integer;
Begin
{ }
for :=1 to 10 do
Begin
writeln(' ',, ' - ');
readln([]);
End;
{ }
writeln(' n<=10');
Readln(n);
writeln(' m<=10');
Readln(m);
for i:=l to n do
for j:=1 to m do
Begin
writeln ('',, ', ',j, ' ');
readln(b[,j]);
End;
{ }
for i:=l to 10 do write([]);
{ b }
for i:=l to n do
Begin
for j:=l to m do write(b[i,j]);
Writeln;
End;