Algoritmos y Programación en Pascal

16.1. Introducción al uso de punteros 341
apNum1
45
apNum2
apVect
30 2’0 4’0 . . . 1024’0
[1] [2] [10]
Figura 16.3.
type
tVector10 = array[1..10] of real;
tApNumero = ^integer;
tApVector10 = ^tVector10;
var
apNum1, apNum2: ApNumero;
apVect: tApVector10;
i: integer;
...
New(apNum1);
New(apNum2);
New(apVect);
apNum1^:= 45;
apNum2^:= 30;
apVect^[1]:= 2;
for i:= 2 to 10 do
apVect^[i]:= apVect^[i-1] * 2;
deja el estado de la memoria como se indica en la figura 16.3.
Por su parte, las operaciones siguientes, por ejemplo, no serían legales:
ReadLn(apVect^); {Lectura de un array de un solo golpe}
apNum1^:= apNum2^ + apVect^[1]; {Tipos incompatibles}
16.1.4 Operaciones básicas con punteros
Sólo las operaciones de comparación (con la igualdad) y asignación están
permitidas entre punteros. En la situación de la figura 16.2, la comparación
apNum1 = apNum2 resulta ser falsa. Más aún, tras ejecutar las instrucciones