Algoritmos y Programación en Pascal

482 Apéndice A. Aspectos complementarios
A.1.3 Ejemplo 3: transformación de listas
Una transformación frecuente de las listas consiste en aplicar cierta función
(genérica) a todos sus elementos. Una implementación en Pascal de esta transformación
es casi directa desarrollando un procedimiento AplicarALista que
tenga como argumentos la función a aplicar y la lista a transformar:
procedure AplicarALista(function F(x: real): real;
var lista: tListaR);
{Efecto: aplica F a cada uno de los elementos de lista}
var
aux: tListaR;
begin
aux:= lista;
while aux nil do begin
aux^.valor:= F(aux^.valor);
aux:= aux^.siguiente
end {while}
end; {AplicarALista}
Donde los elementos de la lista deben tener un tipo conocido y fijo (en el
ejemplo, real),
type
tListaR = ^tNodoR;
tNodoR = record
valor: real;
sig: tListaR
end; {tNodoR}
y éste debe ser el mismo antes y después de su transformación, por lo que la
función convierte elementos de ese tipo en elementos del mismo. En este ejemplo
la lista está formada por valores reales, por lo que también lo son el argumento
y el resultado de la función.
Así, por ejemplo, la llamada AplicarALista(Sqr, listaDeReales) tendrá
por efecto elevar al cuadrado todos los elementos de la lista listaDeReales.
A.2 Variables aleatorias
A menudo es necesario construir programas en los que interviene el azar:
este comportamiento indeterminista es inevitable con frecuencia (por ejemplo,
en procesos de muestreo), y otras veces es deseable (en programas relacionados
con simulación, juegos, criptografía, etc.)