Anonymous user
Create a two-dimensional array at runtime: Difference between revisions
Create a two-dimensional array at runtime (view source)
Revision as of 05:20, 2 July 2010
, 13 years agoAdding MUMPS example
(Adding MUMPS example) |
|||
Line 510:
arr1[a][b] = 1
print arr1[a][b]</lang>
=={{header|MUMPS}}==
This example uses a two level tree to mimic an 2D array.
<lang MUMPS>
ARA2D
NEW X,Y,A,I,J
REARA
WRITE !,"Please enter two positive integers"
READ:10 !,"First: ",X
READ:10 !,"Second: ",Y
GOTO:(X\1'=X)!(X<0)!(Y\1'=Y)!(Y<0) REARA
FOR I=1:1:X FOR J=1:1:Y SET A(I,J)=I+J
WRITE !,"The corner of X and Y is ",A(X,Y)
KILL X,Y,A,I,J
QUIT
</lang>
=={{header|Objective-C}}==
| |||