Algoritmos y Programación en Pascal

348 Capítulo 16. Punteros
var
angulo, distancia: real;
origen: tPunto;
pDestino: tApPunto;
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}
begin
Write(’Introduzca la x y la y del punto origen: ’);
ReadLn(origen.x, origen.y);
Write(’Introduzca el rumbo y la distancia: ’);
ReadLn(angulo, distancia);
pDestino:= Destino(origen, angulo, distancia);
WriteLn(’El punto de destino es:’);
WriteLn(’X = ’, pDestino^.x:20:10,’ Y = ’, pDestino^.y:20:10)
end. {Salto}
La idea más importante de este programa estriba en que la función devuelve
un valor de tipo puntero, que es un tipo simple, y por lo tanto correcto, como
resultado de una función. Sin embargo, la variable referenciada por el puntero
es estructurada, y almacena las dos coordenadas del punto de destino. Mediante
esta estratagema, conseguimos obtener un resultado estructurado de una función.
16.3 Ejercicios
1. Implementar algún algoritmo de ordenación de registros (por ejemplo, fichas
de alumnos), mediante un array de punteros, tal como se propone en el apartado
16.2.1.
2. Complete los tipos de datos apropiados para que sea correcta la siguiente instrucción:
for i:= 1 to n do begin
New(p);
p^:= i
end {for}