aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

36
Task/Arrays/Oberon-2/arrays.oberon Normal file
View file

@ -0,0 +1,36 @@
MODULE Arrays;
IMPORT
Out;
PROCEDURE Static;
VAR
x: ARRAY 5 OF LONGINT;
BEGIN
x[0] := 10;
x[1] := 11;
x[2] := 12;
x[3] := 13;
x[4] := x[0];
Out.String("Static at 4: ");Out.LongInt(x[4],0);Out.Ln;
END Static;
PROCEDURE Dynamic;
VAR
x: POINTER TO ARRAY OF LONGINT;
BEGIN
NEW(x,5);
x[0] := 10;
x[1] := 11;
x[2] := 12;
x[3] := 13;
x[4] := x[0];
Out.String("Dynamic at 4: ");Out.LongInt(x[4],0);Out.Ln;
END Dynamic;
BEGIN
Static;
Dynamic
END Arrays.