- . , , . . , : , , , , , .
. 21, . , , 1 2 ( ); , 2 4 ( ) .. , , .
. . , . , . .
:
< >= ARRAY [< >] OF < >;
ARRAY, OF ;
< > ;
< > , , ;
< > -.
: TYPE COLOR = (red, green, blue);
H = 0..20;
L = ARRAY [BYTE] OF BOOLEAN;
VAR A: ARRAY [COLOR] OF H;
B: L;
C: ARRAY [H] OF REAL;
L BYTE BOOLEAN. COLOR H. B L, BYTE BOOLEAN. C 0..20 REAL.
< > .
:
TYPE MAS=ARRAY [1..2] OF ARRAY [1..2] OF INTEGER;
MAS 1..2 , 1..2 INTEGER.
MAS :
TYPE MAS = ARRAY [1..2, 1..2] OF INTEGER;
VAR D: MAS;
D . D 4 .
, . , . : A [red]; B[40]; C[10]; D[1,2].
|
|
|
, .
: VAR E, F: ARRAY [1..10] OF REAL;
: F:=E;
10 F , E.
READ READLN.
1. .
PROGRAM PR1;
TYPE MAS = ARRAY [1..2, 1..2] OF REAL;
VAR A: MAS;
i, j: INTEGER;
BEGIN
FOR i:=1 TO 2 DO
FOR j:=1 TO 2 DO BEGIN
WRITE ('A [ ',i,', ',j,' ] = ');
READLN (A[i, j]);
END;
END.
: A , A -, . .
, , . , A , . , A (2*2).
2. A (6*6) , 
.
PROGRAM PR2;
VAR A: ARRAY [1..6, 1..6] OF REAL;
i, j: INTEGER;
BEGIN
WRITELN (' ');
FOR i:=1 TO 6 DO BEGIN
FOR j:=1 TO 6 DO BEGIN
[i, j]:=SQRT(i)+SIN(j)/COS(j);
WRITE (A[i, j]:7:1);
END;
WRITELN;
END;
END.
: A . .
WRITE WRITELN.
3. A (6*6) . , A ( 12).
PROGRAM PR3;
VAR A:ARRAY [1..6,1..6] OF REAL;
i, j: INTEGER;
BEGIN
WRITELN (' ');
FOR i:=1 TO 6 DO BEGIN
FOR j:=1 TO 6 DO WRITE (A[i, j]:7:1);
WRITELN;
END;
END.
: A . A[i, j].
, 19, . . .
4. A(7*6), , .
PROGRAM PR4;
TYPE MAS = ARRAY [1..7, 1..6] OF REAL;
VAR A: MAS;
i, j: INTEGER;
PROCEDURE W (ms, ns: INTEGER; AS: MAS);
BEGIN
FOR i:=1 TO ms DO BEGIN
FOR j:=1 TO ns DO WRITE (AS[i, j]:7:1);
|
|
|
WRITELN;
END;
END;
BEGIN
FOR i:=1 TO 7 DO
FOR j:=1 TO 6 DO A[i, j]:=i + SIN(j)/COS(j);
WRITELN (' A ');
W(7, 6, A);
END.
: W ms, ns , ; AS , .
- . : ; ; . .
5. B (6*6) .
PROGRAM PR5;
VAR B: ARRAY [1..6, 1..6] OF REAL;
i, j, k: INTEGER;
bk: REAL;
BEGIN
{ ( 1, 2)}
FOR i:=1 TO 6 DO
FOR j:=1 TO 6 DO
FOR k:=1 TO 6 DO
IF B[i, j]>B[i, k] THEN BEGIN bk:=B[i, j];
B[i, j]:=B[i, k];
B[i, k]:=bk;
END;
{ B ( 3, 4)};
END.
: . i . , IF, . .
, j, .
, IF, > (), < ().
6. , A (6*7). B.
PROGRAM PR6;
VAR A: ARRAY [1..6, 1..7] OF REAL;
B: ARRAY [1..6, 1..6] OF REAL;
i, j, jmax: INTEGER;
max: REAL;
BEGIN
{ A ( 1, 2)}
max:=A[1, 1];
jmax:=1;
FOR i:=1 TO 6 DO
FOR j:=1 TO 7 DO
IF A[i, j]>max THEN BEGIN max:=A[i, j];
jmax:=j;
END;
FOR i:=1 TO 6 DO
FOR j:=1 TO 6 DO
IF j >= jmax THEN B[i, j]:=A[i, j+1]
ELSE B[i, j]:=A[i, j];
{ B (. 3, 4)};
END.
: A. jmax , . B A, A, jmax.
7. A (6*6). B.
PROGRAM PR7;
TYPE Stroka = ARRAY [1..6] OF REAL;
VAR A,B: ARRAY [1..6] OF Stroka;
Bs: Stroka;
i, j, imax, imin: INTEGER;
max, min: REAL;
BEGIN
{ A ( 1, 2)}
max:=A[1, 1];
imax:=1;
min:=A[1, 1];
imin:=1;
FOR i:=1 TO 6 DO
FOR j:=1 TO 6 DO BEGIN
IF A[i, j]>max THEN BEGIN max:=A[i, j];
imax:=i;
END;
IF A[i, j]<min THEN BEGIN min:=A[i, j];
imin:=i;
END;
END;
Bs:=A[imin];
A[imin]:=A[imax];
A[imax]:=Bs;
B:=A;
{ B (. 3, 4)};
END.
: Stroka 6 REAL. A,B , 6 Stroka. , imax imin . Bs Stroka, . .
|
|
|
