langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Create-a-two-dimensional-array-at-runtime/Pascal/create-a-two-dimensional-array-at-runtime.pascal
+++ b/Task/Create-a-two-dimensional-array-at-runtime/Pascal/create-a-two-dimensional-array-at-runtime.pascal
@ -0,0 +1,26 @@
+program array2d(input, output);
+
+type
+ tArray2d(dim1, dim2: integer) = array[1 .. dim1, 1 .. dim2] of real;
+ pArray2D = ^tArray2D;
+
+var
+ d1, d2: integer;
+ data: pArray2D;
+
+begin
+ { read values }
+ readln(d1, d2);
+
+ { create array }
+ new(data, d1, d2);
+
+ { write element }
+ data^[1,1] := 3.5;
+
+ { output element }
+ writeln(data^[1,1]);
+
+ { get rid of array }
+ dispose(data);
+end.