p13 数组元素的地址

//13
program test;
var
  i:longint;
  a:array[1..99] of byte; //定义byte类型的数组
begin
  for i:=1 to 10 do begin
    writeln( binstr( dword(@a[i]), 32 ) ); //以二进制形式，输出数组元素的地址
    writeln( hexstr( dword(@a[i]), 8 ) ); //以16进制形式，输出数组元素的地址
  end;
end.

可以观察到，byte占一个字节。

//13
program test;
var
  i:longint;
  a:array[1..99] of longint; //定义longint类型的数组
begin
  for i:=1 to 10 do begin
    writeln( binstr( dword(@a[i]), 32 ) ); //以二进制形式，输出数组元素的地址
    writeln( hexstr( dword(@a[i]), 8 ) ); //以16进制形式，输出数组元素的地址
  end;
end.

可以观察到，longint占四个字节。