Multiple distinct objects: Difference between revisions
Added Algol W
Walterpachl (talk | contribs) m (→{{header|ooRexx}}: augment and add output) |
(Added Algol W) |
||
Line 101:
</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}}==
| |||