上一节:
下一节:

  Pascal 指针算术

  • 指针算术

    如本章所述，Pascal指针是一个地址，它是存储在单词中的数值。因此，您可以像对数值一样对指针执行算术运算。指针可以使用四种算术运算符：递增，递减，+和-。为了理解指针算术，让我们认为ptr是一个整数指针，它指向地址1000。假设32位(4字节)整数，让我们对指针执行增量操作- 
    
Inc(ptr)
    现在，上面的操作之后，PTR将指向位置1004，因为ptr递增，它将指向的下一个整数的位置，这是4个字节下一个到当前位置。该操作会将指针移动到下一个存储位置，而不会影响该存储位置的实际值。如果ptr指向一个地址为1000的字符（一字节），则上述操作将指向位置1001，因为下一个字符将在1001处可用。

  • 递增指针

    我们更喜欢在程序中使用指针而不是数组，因为变量指针可以增加，而不像数组名那样，因为数组指针是常量指针，所以不能递增。以下程序递增变量指针以访问数组的每个后续元素- 
    
program exPointers;
const MAX = 3;
var
   arr: array [1..MAX] of integer = (10, 100, 200);
   i: integer;
   iptr: ^integer;
   y: ^word;

begin
   (* let us have array address in pointer *)
   iptr := @arr[1];
   
   for  i := 1 to MAX do
   begin
      y:= addr(iptr);
      writeln('Address of arr[', i, '] = ' , y^ );
      writeln(' Value of arr[', i, '] = ' , iptr^ );
      
      (* move to the next location *)
      inc(iptr);
   end;
end.
    尝试一下
    编译并执行上述代码后，将产生以下结果- 
    
Address of arr[1] = 12560
Value of arr[1] = 10
Address of arr[2] = 12562
Value of arr[2] = 100
Address of arr[3] = 12564
Value of arr[3] = 200

  • 递减指针

    相同的注意事项适用于递减指针，指针的值按其数据类型的字节数减少，如下所示- 
    
program exPointers;
const MAX = 3;
var
   arr: array [1..MAX] of integer = (10, 100, 200);
   i: integer;
   iptr: ^integer;
   y: ^word;

begin
   (* let us have array address in pointer *)
   iptr := @arr[MAX];
   
   for  i := MAX downto 1 do
   begin
      y:= addr(iptr);
      writeln('Address of arr[', i, '] = ' , y^ );
      writeln(' Value of arr[', i, '] = ' , iptr^ );

      (* move to the next location *)
      dec(iptr);
   end;
end.
    尝试一下
    编译并执行上述代码后，将产生以下结果- 
    
Address of arr[3] = 12564
Value of arr[3] = 200
Address of arr[2] = 12562
Value of arr[2] = 100
Address of arr[1] = 12560
Value of arr[1] = 10

  • 指针比较

    可以通过使用关系运算符（例如=，<和>）来比较指针。如果p1和p2指向彼此相关的变量（例如同一数组的元素），则可以有意义地比较p1和p2。以下程序通过增加变量指针来修改前面的示例，只要它指向的地址小于或等于数组的最后一个元素的地址，即@arr[MAX]- 
    
program exPointers;
const MAX = 3;
var
   arr: array [1..MAX] of integer = (10, 100, 200);
   i: integer;
   iptr: ^integer;
   y: ^word;

begin
   i:=1;
   
   (* let us have array address in pointer *)
   iptr := @arr[1];
   
   while (iptr <= @arr[MAX]) do
   begin
      y:= addr(iptr);
      writeln('Address of arr[', i, '] = ' , y^ );
      writeln(' Value of arr[', i, '] = ' , iptr^ );
      
      (* move to the next location *)
      inc(iptr);
      i := i+1;
   end;
end.
    尝试一下
    编译并执行上述代码后，将产生以下结果- 
    
Address of arr[1] = 12560
Value of arr[1] = 10
Address of arr[2] = 12562
Value of arr[2] = 100
Address of arr[3] = 12564
Value of arr[3] = 200
上一节:
下一节: