: . -
: TURBO PASCAL 7.1
: ,
: 2 .
:
1. .. Turbo Pascal. . 2- . .: , 2007. . 86-112.
2. ., . Turbo Pascal. .: , 2008. . 106-133.
3. .. . . . .: , 2008. . 64-69.
:
1. .
2. .
3. , .
4. .
.
.
For k:= 1 To 13 Do Read(C[k]);
13 ,
For k:= 1 To 13 Do Write(C[k],' ');
.
Const. :
Type = Array[ ] Of ;
Const : = ( );
Const : Array[ ] Of = ( );
" " . , :
2 3 15 4
7 18 23 5
1 9 11 10
32 16 6 4
:
Const M: Array[1..4,1..4] Of Byte = ((2, 3, 15, 4),
(7, 18, 23, 5),
(1, 9, 11, 10),
(32, 16, 6, 4));
:
M1:= M2;
M1, M2 ― .
, ― . , , , . .
― , .
"file" : "", . ― , : . "" , - . , .
|
|
, :
();
(, , , .);
- ;
, -;
(, , );
.
, . ( , .)
, , (, ).
, , ( : ).
, ( - ) , . ( ― , ) , , 1010, . , : , . , ( , ).
Pascal :
;
;
.
: , , .
, , "" ― . , : Pascal , .
var , ( ), :
var f1,f2: text; { }
g: file of <__>; { }
in, out: file; { }