Create a two-dimensional array at runtime: Difference between revisions
Create a two-dimensional array at runtime (view source)
Revision as of 22:14, 28 February 2008
, 16 years ago→{{header|Perl}}: Added Pascal
m (Added to <20 category) |
(→{{header|Perl}}: Added Pascal) |
||
Line 194:
arr1[a][b] = 1
print arr1[a][b]
=={{header|Pascal}}==
{{works with|GNU Pascal|20060325, based on gcc-3.4.4}}
The following code is standard Extended Pascal (tested with <tt>gpc --extended-pascal</tt>):
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.
| |||