- . . ( ), , -. :
TYPE
dim10: ARRAY [1..10] OF Real;
dim36: ARRAY [1..3, 1..6] OF Real;
dim432: ARRAY [1..4, 1..3, 1..2] OF Word;
CONST
D10: dim10=
(0, 2.1, 3, 4.5, 6, 7.70, 8, 9.0, 10, 34);
{ 10 }
D36: dim36=
((1, 1, 1, 1, 1, 1),
(2, 2, 2, 2, 2, 2),
(3, 3, 3, 3, 3, 3));
{ 6 }
D432: dim432=
(((1,2), (11,22), (111,222)),
((3,4), (33,44), (333,444)),
((5,6), (55,66), (555,666)),
((7,8), (77,88), (777,888)));
{ 2 }
. ARRAY OF Char, 糭 , , :
CONST CharArray: ARRAY [1..5] OF Char='abcde';
, .
- :
:
. , A [1.. n ] 2 12. , A .
.
PROGRAM Pr;
CONST n=10;
TYPE index=-2..12;
CONST A: ARRAY [1..n] OF index=
(0, -2, 5, 1, 0, -2, 5, 8, 1, 0);
VAR B: ARRAY [index] OF Byte;
I: index;
j: 1..n;
BEGIN
FOR i:=-2 TO 12 DO B[i]:=0;
FOR j:= 1 TO n DO Inc(B[A[j]]);
{}
Writeln('':10,'':20);
FOR i:=-2 TO 12 DO
IF B[i]<>0 THEN Writeln(i:10, B[i]:20);
Readln;
END.
. ' a '.. ' z ' ' A '.. ' Z ', .
. .
, .
RECORD END.
, :
TYPE
Person= RECORD
F_I_O: STRING;
{, , £ 255 }
Ves, Rost: Real;
Telephone: Longint; { }
Ozenki: ARRAY [1..4] OF Byte;
END;
Person (F_I_O), (Ves, Rost), .
VAR Nehta: person;
Nehta . 븢 :
_._
Nehta.F_I_O .
Nehta.Telephone .
, , 븢 . . 븢 .
|
|
:
CONST Htosti: person=(F_I_O: 'XXX'; Ves: 50.5;
Rost: 158; Telephone: 265539;
Ozenki: (5,4,3,4));
:. 븢 , , ;, .
.