36 lines
494 B
Plaintext
36 lines
494 B
Plaintext
BEGIN
|
|
|
|
PROCEDURE STATIC;
|
|
BEGIN
|
|
INTEGER ARRAY X(0:4);
|
|
|
|
X(0) := 10;
|
|
X(1) := 11;
|
|
X(2) := 12;
|
|
X(3) := 13;
|
|
X(4) := X(0);
|
|
|
|
OUTTEXT("STATIC AT 4: ");
|
|
OUTINT(X(4), 0);
|
|
OUTIMAGE
|
|
END STATIC;
|
|
|
|
PROCEDURE DYNAMIC(N); INTEGER N;
|
|
BEGIN
|
|
INTEGER ARRAY X(0:N-1);
|
|
|
|
X(0) := 10;
|
|
X(1) := 11;
|
|
X(2) := 12;
|
|
X(3) := 13;
|
|
X(4) := X(0);
|
|
|
|
OUTTEXT("DYNAMIC AT 4: ");
|
|
OUTINT(X(4),0);
|
|
OUTIMAGE
|
|
END DYNAMIC;
|
|
|
|
STATIC;
|
|
DYNAMIC(5)
|
|
END ARRAYS.
|