Algoritmos y Programación en Pascal

340 Capítulo 16. Punteros
apCar
’A’
apNum1
3
Figura 16.2.
apNum2
type
tApCaracter = ^char;
var
apCar: tApCaracter;
...
New(apCar);
ReadLn(apCar^); {supongamos que se da la letra ’B’}
apCar^:= Pred(apCar^);
WriteLn(apCar^);
escribiéndose en el output la letra ’A’.
Igualmente, suponiendo que se ha declarado
type
tApNumero = ^integer;
var
apNum1, apNum2: tApNumero;
el siguiente fragmento de programa es válido:
New(apNum1);
New(apNum2);
apNum1^:= 2;
apNum2^:= 4;
apNum2^:= apNum1^ + apNum2^;
apNum1^:= apNum2^ div 2;
y ambos fragmentos de instrucciones llevan a la situación de la figura 16.2, que
será referida varias veces en este apartado.
En general, las operaciones válidas con un dato apuntado dependen de su
tipo. Por ejemplo, el fragmento de programa siguiente
6