Anonymous user
Create a two-dimensional array at runtime: Difference between revisions
Create a two-dimensional array at runtime (view source)
Revision as of 17:52, 16 April 2010
, 14 years agono edit summary
No edit summary |
No edit summary |
||
Line 363:
array(1,1) = 1.234
WRITE(Messagebox, Name) array(1,1) </lang>
=={{header|Icon and Unicon}}==
All Icon and Unicon data objects are automatically reclaimed.
Multiply dimensioned arrays are arrays of arrays in both languages.
==={{header|Icon}}===
<lang icon>procedure main(args)
nr := integer(args[1]) | 3 # Default to 3x3
nc := integer(args[2]) | 3
A := list(nr)
every !A := list(nc)
x := ?nr # Select a random element
y := ?nc
A[x][y] := &pi
write("A[",x,"][",y,"] -> ",A[x][y])
end</lang>
Sample output:
<pre>->ar 65 2
A[37][1] -> 3.141592654
</pre>
==={{header|Unicon}}===
The Icon solution also works in Unicon.
=={{header|IDL}}==
|