........................................................ 3
.................................. 4
...................................................................... 4
.............................. 5
........................................... 8
.............................................. 10
............................................... 12
.................................................................... 19
.............................................. 25
........................................................................ 29
........................................................................ 29
..................................................................... 36
..................................................................... 40
.................................... 40
, .
.
. :
: .
: .
: , , , , .
: .
1. . . .
2. -. . .
3. . . .
4. , . . .
5. .
6. . .
7. .
9. .
9. . .
1. .
2. . .
3. .
4. .
5.
6.
(@).
.
. . . . . . . . . . . . . . . . . .
|
|
|
1.
. , ( ).
. : 1. ( ). 2. . 3. : + * / = > <., () [ ] ; ^: .
. : +, , * (), / ( ). : =, >, <, >= ( ), <= ( ), <> ( ). . , :
div ( , 14 div 3=4),
mod ( 14 mod 3=2),
, , , . , , . . , .. W w . : , y, A24, VES_Netto, MAXIMUM.
. . .
Integer ( 32768 +32767)
Longint ( 2147483648 +2147483647)
Real ( 2,9-39 1,7+38)
Char ( )
String ( 255 )
Boolean (: true , false ).
VAR. :
VAR a,d: INTEGER; x: REAL; d: STRING;.
CONST b: INTEGER=5; s:STRING=.
.
. : 1. , 2. -, 3. -. . ( , ):
è A/(3*B)+X/(Y+1)*4
. ( Pi). :
| abs(x) | / . | abs(6)=6 | ||
| sin(x) | . | . | ||
| cos(x) | ||||
| arctan(x) | ||||
| sqrt(x) | (≥0) | / . | ||
| sqr(x) | ||||
| exp(x) | ex | . | . | |
| ln(x) | (x>0) | |||
| int(x) | int(1.2)= int(1.9)=1 | |||
| frac(x) | frac(2.5)=0.5 | |||
| odd(x) | odd(3)=true | |||
| pi | π=3.14159... | . | ||
| trunc(x) | . | trunc(3.7)=3 | ||
| round(x) | . | round(3.7)=4 |
round trunc.
|
|
|
:=
( a:=d). .
2.
. .
. :
ü:=
, , , , . : Z:=2, :=3.5+exp(8), S:=X*4+Y/2.
. . , : :=+2, X:=X/3. , , , , . , =3 =12, =3+2=5 =12/3=4.
. . .
üWRITE(_ _ )
üWRITELN(_ _ )
WRITELN(a,m) , ̔.
, (line). writeln ( ). . , . , =12, Y=100, WRITE('X=', x, ' Y=', y, ' =', x+y) : X=12 Y=100 =112.
, , .. . ( ) . , . . , WRITE(k:6,z:8:2) K 6 , Z 8, 2 . , , .
. , , :
üREADLN(__)
, . . , , . Enter , Enter. char . string . (readln()). , , Enter.
: READLN(r,l). , : , , R L. R=5 L=8.4. 5 8.4 Enter.
, , , , -.
|
|
|
üEXIT / .
üREADKEY , , , , .
üCLRSCR .
readkey CRT , , USES CRT.
ü. , , . . .
, .
üBEGIN...END
, , . end .
. . . begin end .
: ( 1,2,3) (. 2.1):
1. ().
2. ().
3. , , , .
4. Begin .
5. .
6. End ( ) .
(. 2.2) S R S=πR2. KRUG. S R , . readln(r). , , write(=) =. readkey. . , . . Alt+F5, . .
. , readkey , , - , .
, , . . , . .
.
üIF THEN 1 ELSE 2
, , 1, 2. ,
|
|
|
IF a>b THEN WRITELN (' ') ELSE WRITELN (' ');
.
ELSE.
. ( ) (Y). ( )
IF x MOD y =0 THEN WRITELN ('X Y')
ELSE WRITELN ('X Y')
, , , BEGIN...END.
. .
IF x>0
THEN BEGIN y:=SQRT(x); WRITELN('=', y) END
ELSE WRITELN(' ')
. () , .
if if. , a,b,c . , 0. .
. :
üGOTO
, . , GOTO m m . label ( label m). , , .. . , , .
. ( , ) -, . - . . . - . , .
3-1. - Y(X) (. 3.1).
, -. program p3_1 (. 3.1 3.1). , , .
 |
3-2. , , . , , , . , .
+>=C >A
, (program P3_2) . . , , . (, , ..). , , =Y .
(NOT) , ( ). . ,
if x<10 then y=5 if not (x>=10) then y=5
. (AND) . (OR) , . , : , , . True False.
| - | 1- | 2- | ||||
, , , . 3-2. ( ):
|
|
|
Readln(a,b,c);
if (a+b>=c) and (b>a) then writeln('') else writeln('');
. , , , , .
if (a>b) and (a>c) and (c<a) and (c<b)
then writeln('') else writeln('');
. , .
if (a<0) or (b<0) or (c<0) then...
. , .
if (a<0)and(b>0)and(c>0) or (a>0)and(b<0)and(c>0) or (a>0)and(b>0)and(c<0)
then writeln('') else writeln('');
, , . (. ) , , , , . , =1 , .
(). if . case. . , . , , else ( ). ( ) / ( ). begin case if.
4-1. - . , . (55 60 ), .
 |
4-2. , - S . , . Z, , z. ('A'..'Z','a'..'z'). (. ).
@
4.1. a, b, c. , , .
4.2. , , a,b,c ( /)
4.3. a, b, c. .
4.4. , , a,b,c 0.
4.5. . 4.1 Y1=X2 Y2=1X/2. X Y ,‚, ƒ,„, . 1, 2, 3, 4. , .
2. . , =0 , ( ). , X2=1X/2 , 2X2+X2=0, =1,28. 1,28<X<0. Y , Y<1-X/2 Y>X2. , 1,28<X<0 Y<1X/2 Y>X2. IF:
IF (1,28<X)and(X<0)and(Y<1X/2)and(Y>X*X) then? 2
.
4.6. CASE, , - Y Z (+,,/,*). S . , Y=0 (' ')
, , , . . .
. , , , , . .
5-1. /2. , . - (. 5.1). , , , . , , , , , .
-. , (. 5.1). , ¹0. (m).
 |
@ 5.1. 5_1. : , , , , Y. =0 .
5-2. 3÷9, Y=(X6)2, 2 (. 5.2,). . . -, - . . , (3,5,7,...) Y =9. 11 , >9. . , . ( ). , , (, 3-) ( IF).
 |
5.2. . Y (SX SY).
. .
5-3. , 4. , . , ( I). (. 5.3) 1. (I=I+1). IF ( 4). I<=4 , (I>4) . . , , . I .
 |
@ 5.3. . (4), N, read. N=100. , 20- ( mod readkey).
 program P5_3;
| |||||
| label d; var x,y:real; i:integer; begin | |||||
| x:=3; i:=1; d: if i>4 then exit; y:=sqr(x6); writeln(x,y); x:=x+2; i:=i+1; goto d; end. | x=3, i=1
 i=1<4
y=9
3, 9
x=5
i=2
|
 2<4
y=1
5, 1
x=7
i=3
|
 3<4
y=1
7, 1
x=9
i=4
|
 4=4
y=9
9, 9
x=11
i=5
|
5>4
|
. - (. 5.4). . , . , , , , .
for:
üFOR :=
DO
. , . , :
FOR a = 3 TO 7 DO WRITELN(a);
: WRITELN DO , , , 1 3, 7. ..: A=3; 4; 5; 6; 7 5 .
DO begin...end, ,
FOR i = 1 TO n DO BEGIN WRITELN(i); READLN(x) END;
, ( 1).
üFOR :=
DOWN DO
, , FOR c=b+2 TO 4*k DO...
: FOR .
. , .. . , .
5-4. N . P5_4 S S=S+X. (S=0).
 |
@ . 5.4. , .
. .
i Ai-1, . , :
Si = Si-1 + Ai, S=0
Ai = 2Ai-1 A1=3..
, :
S=S+A, S=0
A=2A, A=3
FOR - . 5.5. FOR , . , £ ( I<=N) . .
 |
, . , , .
@ . 5.5. N .
 |
:
P=PZA, P=1
A=A+2, A=3
Z=Z, Z=1
Z , (1). 1 (Z=Z).
. , , : ( ) .
5-6. N : 1) S, 2) , 3) . . , S, KP , . - . 5.6. N=5 =3, 2, 1, 3, 2. : S=5, P=6, KP=3.
@ 5.6. . 1, , , ( =1). .
| program P5_6; label t; | n=5 (=3, 2, 1, 3, 2) | |||||
| var i,n,kp,x,s,p:integer; begin | ||||||
| readln(n); kp:=0; s:=0; p:=1; for i:=1 to n do begin readln(x); if x=0 then goto t; if x<0 then s:=s+x; if x>0 then begin kp:=kp+1; p:=p*x end; end; writeln('0 '); t: writeln(s,p,kp); end. | n=5 i=1<5 x=3 kp=1 p=3 | 2<5 x=2 s=2 | 3<5 x=1 kp=2 p=3 | 4<5 x=3 s=5 | 5=5 x=2 kp=3 p=6 | 6>5 0 5,6,3 |
üWHILE DO
( ). , , . Y=/2 =0. .
readln(x); {Y=/2}
while x<>0 do begin
writeln(, /2);
Readln(x)
end; { while}
