Algoritmos y Programación en Pascal

450 Capítulo 20. Esquemas algorítmicos fundamentales
20.1 Algoritmos devoradores
La estrategia de estos algoritmos es básicamente iterativa, y consiste en una
serie de etapas, en cada una de las cuales se consume una parte de los datos
y se construye una parte de la solución, parando cuando se hayan consumido
totalmente los datos. El nombre de este esquema es muy descriptivo: en cada
fase (bocado) se consume una parte de los datos. Se intentará que la parte
consumida sea lo mayor posible, bajo ciertas condiciones.
20.1.1 Descripción
Por ejemplo, la descomposición de un número n en primos puede describirse
mediante un esquema devorador. Para facilitar la descripción, consideremos la
descomposición de 600 expresada así:
600 = 2 3 3 1 5 2
En cada fase, se elimina un divisor de n cuantas veces sea posible: en la
primera se elimina el 2, y se considera el correspondiente cociente, en la segunda
el 3, etc. y se finaliza cuando el número no tiene divisores (excepto el 1).
El esquema general puede expresarse así:
procedure Resolver P (D: datos; var S: solucion);
begin
Generar la parte inicial de la solución S
(y las condiciones iniciales)
while D sin procesar del todo do begin
Extraer de D el máximo trozo posible T
Procesar T (reduciéndose D)
Incorporar el procesado de T a la solución S
end {while}
end; {Resolver P }
La descomposición de un número en factores primos se puede implementar
sencillamente siguiendo este esquema:
procedure Descomponer(n: integer);
{PreC.: n > 1}
{Efecto: muestra en la pantalla la descomposición de n
en factores primos}
var
d: integer;