, , , . . , , .
PROGRAM Addition;
{ ADDITION.PAS }
VAR
Number_1, Number_2, Sum: INTEGER;
BEGIN
Write ( :);
ReadLn (Number_1);
Write ( :);
ReadLn (Number_2);
Sum:= Number_1 + Number_2;
WriteLn ( : ,Sum);
END.
, :
;
.
, ( ), , . , . .
, (). , , . , .
, . BEGIN END.
:
PROGRAM Addition;
{ }
BEGIN
{ }
END.
END. END , .
PROGRAM . ( Addition). PROGRAM .
. , . , . , . , . .
|
|
|
, .
, .
; . .
, . . , . {}, (* *) .
Number_1, Number_2, Sum . , INTEGER .
BEGIN . Write, WriteLn, ReadLn . ( : ).
Write ( :);
. write , writeln . write . :.
ReadLn (Number_1); Number_1. . .
Sum:= Number_1 + Number_2;
, . , , . : . , . Sum Number_1 Number_2.
WriteLn ( : ,Sum);
. write . writeln .
. , . :
. , , , , . (.31):
|
|
|
, , . . (. 32).
(. 33).
.
, . .
. [14, 6, 7].
, , . .
, , . , , .
. , , , . , .
, , , . . , . .
, . , . , (, 1275), (, ); , , , , , , , (, , . .). , , , , , (). .
. ( ).
. , , . . , 3.141592 , 3.141592, ( ) . . , 3.141592, P, .
, . , Д , Д, . () . , . .
|
|
|
. , , .
, , , , . , , , . . , , . , A , {...3, 2, 1, 0, 1, 2, 3,...}; B , { , }.
, . , .
, , , . , , . , , .
: . .
. , . :
, , ;
;
;
, 63 .
:
A, B, M, N, SUMMA, Z1, Z2, Z3, PRIMA14, FIRST_VALUE.
.
: , , , , , . .
, , . .
, . 32768 32767. INTEGER. : BYTE, SHORTINT, WORD, LONGINT. (128... 127 SHORTINT 2147483648... 2147483647 LONGINT). :
|
|
|
0, 3, 17, 193, 10000, 5.
INTEGER 50000 , .
i j , :
i, j: integer.
: , , . , . , . : div mod. (): a b b 0, a div b a mod b , a b. ,
17 div 3 = 5, 17 mod 3 = 2, 8 div 2 = 4, 8 mod 2 = 0, 1 div 5 = 0, 1 mod 5 = 1.
, .
( ) . , ( , , , ) . , . : (REAL), (SINGLE), (DOUBLE), (EXTENDED) (COMP). REAL. REAL 2.9* 10^39 1.7*10^38, 6 , 1112 .
, . . : 5.45, 0.001, 17.0, 19.1919, 0.143. . , ( ). . , 65.422 65.4* 10^22. : 0.547+3, 5.47+2, 54.7+1, 547.00, 5470Ŗ1, 54700Ŗ2 547.
() : (+), (), (*), (/). . c = a^b, = (b ln a).
a b ,
a, b: real;
, , , . , . . INTEGER (), REAL.
, (TRUE FALSE). BOOLEAN . . TRUE FALSE . > (), < (), = () <> (). : (AND), (OR), (NOT). BOOLEAN 1 .
() . CHAR , (, ). IBM 256 ASCII. [ A...Z, a...z], [0...9 ], . CHAR 1 . CHAR . , ASCII. , ASCII , (#). , := #65 ASCII 65, A. :
|
|
|
u, v: char;
, CONST. ,
CONST year = 1998; time = 12.05;
year , ; time .
VAR, . . ,
VAR
a: INTEGER;
d, c: REAL;
b, e, f, g: CHAR;
, . , , . CHAR () ORD, INTEGER CHAR CHR.
, REAL INTEGER : ROUND REAL , TRUNC REAL .
trunc(3.14) = 3, trunc(3.14) = 3, trunc(3.7) = 3.
round(3.14) = 3, round(3.7) = 4, round(3.14) = 3.
, , . : . , , .
, . () :
A [1], G [1,5], RAD [K, L], S [3, 4, 5].
, , , . . , , . , , . .
, .
, : , .
, , , .
, . , .
, A , , n m :
11 12 13 14 15 16 17 18
21 22 23 24 25 26 27 28
31 32 33 34 35 36 37 38
41 42 43 a44 45 46 47 48
n = 3, m = 8.
:
24 (2,4) 2 4 ;
lk (l,k) l k .
l 1 3, k 1 8.
, , . .
, , .
, ( ) , . :
, ;
, , ;
, , , , , , , .
, , ( ) . . . , , : , (, , ) . , , , : . ..
, . , . , , , , .
. , , . N , , , . . : , , , .
, . , . , , , . , , . , , . , , , , .
. , , , .
