Multiple distinct objects: Difference between revisions
Content added Content deleted
Walterpachl (talk | contribs) m (→{{header|ooRexx}}: augment and add output) |
(Added Algol W) |
||
Line 101: | Line 101: | ||
</pre> |
</pre> |
||
=={{header|ALGOL W}}== |
|||
<lang algolw>begin |
|||
record T ( integer n, m ); |
|||
reference(T) singleT; |
|||
integer numberOfElements; |
|||
singleT := T( 0, 0 ); |
|||
numberOfElements := 3; |
|||
begin |
|||
reference(T) array tArray ( 1 :: numberOfElements ); |
|||
% initialise the "right" way % |
|||
for i := 1 until numberOfElements do begin |
|||
tArray( i ) := T( i, i * 2 ); |
|||
m(tArray( i )) := m(tArray( i )) + 1; |
|||
end for_i ; |
|||
write(); |
|||
for i := 1 until numberOfElements do writeon( i_w := 1, s_w := 0, n(tArray( i )), ", ", m(tArray( i )), "; " ); |
|||
% initialise the "wrong" way % |
|||
for i := 1 until numberOfElements do begin |
|||
tArray( i ) := singleT; |
|||
m(tArray( i )) := m(tArray( i )) + 1; |
|||
end for_i ; |
|||
write(); |
|||
for i := 1 until numberOfElements do writeon( i_w := 1, s_w := 0, n(tArray( i )), ", ", m(tArray( i )), "; " ) |
|||
end |
|||
end.</lang> |
|||
{{out}} |
|||
<pre> |
|||
1, 3; 2, 5; 3, 7; |
|||
0, 3; 0, 3; 0, 3; |
|||
</pre> |
|||
=={{header|AppleScript}}== |
=={{header|AppleScript}}== |