Algoritmos y Programación en Pascal

16.2. Aplicaciones no recursivas de los punteros 347
de dos componentes de tipo real y un tipo dinámico tApPunto que señalará al
tipo punto, además se necesitarán dos variables distancia y angulo para leer
los valores de la distancia y el ángulo del salto, una de tipo punto para el origen
del salto y otra de tipo tApPunto para el punto de destino.
type
tPunto = record
x, y: real
end; {tPunto}
tApPunto = ^tPunto;
var
angulo, distancia: real;
origen: tPunto;
pDestino: tApPunto;
El cálculo del punto final se puede realizar mediante la definición (y posterior
aplicación) de una función. Ésta tendría que devolver un punto, formado por
dos coordenadas; dado que esto no es posible, se devolverá un puntero al tipo
tPunto (de ahí la necesidad del tipo tApPunto). Dentro de la función utilizaremos
el puntero pPun para generar la variable apuntada y realizar los cálculos,
asignándolos finalmente a Destino para devolver el resultado de la función. La
definición de la función es absolutamente directa:
function Destino(orig: tPunto; ang, dist: real): tApPunto;
var
pPun: tApPunto;
begin
New(pPun);
pPun^.x:= orig.x + dist * Cos(ang);
pPun^.y:= orig.y + dist * Sin(ang);
Destino:= pPun
end; {Destino}
Finalmente, si se añaden los procedimientos de lectura de datos y escritura
de resultados tenemos el siguiente programa:
Program Salto (input, output);
type
tPunto = record
x, y: real
end {tPunto};
tApPunto = ^tPunto;