Create a two-dimensional array at runtime: Difference between revisions
Content added Content deleted
PatGarrett (talk | contribs) (→{{header|ALGOL 60}}: Section added) |
|||
Line 33: | Line 33: | ||
end Two_Dimensional_Arrays;</lang> |
end Two_Dimensional_Arrays;</lang> |
||
{{omit from|Modula-2}} |
{{omit from|Modula-2}} |
||
=={{header|ALGOL 60}}== |
|||
<lang algol60> begin |
|||
comment Create a two-dimensional array at runtime - Algol 60; |
|||
integer n,m; |
|||
ininteger(0,m); |
|||
ininteger(0,n); |
|||
begin |
|||
integer array a[1:m,1:n]; |
|||
a[m,n] := 99; |
|||
outinteger(1,a[m,n]); |
|||
outstring(1,"\n") |
|||
end; |
|||
comment array a : out of scope; |
|||
end </lang> |
|||
{{in}} |
|||
<pre> |
|||
5 |
|||
5 |
|||
</pre> |
|||
{{out}} |
|||
<pre> |
|||
99 |
|||
</pre> |
|||
=={{header|ALGOL 68}}== |
=={{header|ALGOL 68}}== |