34 lines
539 B
Plaintext
34 lines
539 B
Plaintext
begin
|
|
comment arrays - Algol 60;
|
|
|
|
procedure static;
|
|
begin
|
|
integer array x[0:4];
|
|
x[0]:=10;
|
|
x[1]:=11;
|
|
x[2]:=12;
|
|
x[3]:=13;
|
|
x[4]:=x[0];
|
|
outstring(1,"static at 4: ");
|
|
outinteger(1,x[4]);
|
|
outstring(1,"\n")
|
|
end static;
|
|
|
|
procedure dynamic(n); value 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];
|
|
outstring(1,"dynamic at 4: ");
|
|
outinteger(1,x[4]);
|
|
outstring(1,"\n")
|
|
end dynamic;
|
|
|
|
static;
|
|
dynamic(5)
|
|
|
|
end arrays
|