17 Dec
2002
17 Dec
'02
9:03 p.m.
The program below works, but the array in the unit defaults to a zero-based array.
unit bar;
interface
procedure show( a: array of integer );
implementation
procedure show( a: array of integer ); var i : integer; begin for i := 1 to 4 do write( a[ i ]:7 ); writeln; end;
end.
program foo; uses bar; var a: array[1..5] of integer; i: integer; begin for i := 1 to 5 do a[i] := i; for i := 1 to 5 do write( a[i]:7 ); writeln; show( a ); end.
Russ