Algoritmos y Programación en Pascal

346 Capítulo 16. Punteros
(x,y)
pDestino
dist*Sin(ang)
« angulo
distancia
dist*Cos(ang)
Figura 16.6.
La ordenación de vectores de elementos grandes es un problema en el que la
aplicación mostrada demuestra su utilidad. Por ejemplo, la definición
type
tListaAlumnos = array [1..100] of tFicha;
se puede sustituir por un array de punteros,
type
tListaAlumnos = array [1..100] of tApFicha;
de este modo la ordenación se realizará de una manera mucho más rápida, debido
esencialmente al tiempo que se ahorra al no tener que copiar literalmente todas
las fichas que se cambian de posición.
16.2.2 Funciones de resultado no simple
Esta aplicación tiene la misma base que la anterior, cambiar el objeto por
el puntero al mismo. A continuación vemos un sencillo ejemplo en el que se
aprovecha esta característica.
Supongamos, por ejemplo, que hemos de definir un programa que, dado un
punto del plano, un ángulo y una distancia, calcule un nuevo punto, alcanzado
al recorrer la distancia según el rumbo dado, según la figura 16.6.
Una primera aproximación al diseño del programa podría ser la siguiente:
Lectura de datos: punto base, distancia y ángulo
Cálculo del punto final
Escritura de resultados
Naturalmente, en primer lugar se deben definir los tipos, constantes y variables
que se usarán en el programa: se definirá un tipo tPunto como un registro