Algoritmos y Programación en Pascal

470 Capítulo 20. Esquemas algorítmicos fundamentales
Entonces, la aplicación repetida de esa función
function RepTest(n, k: integer): boolean;
var
i: integer;
pr: boolean;
begin
pr:= False;
i:= 0;
repeat
i:= i + 1;
pr:= Test(n)
until pr or (i = k);
RepTest:= pr
end; {RepTest}
se comporta así: aplicada a un primo, resulta ser siempre True, y aplicada a un
número compuesto lo descubre con una probabilidad 1 − q k . La probabilidad de
error cuando el resultado es True, q k , puede disminuirse tanto como se quiera a
costa de aumentar el número de aplicaciones de la función test.
20.6 Ejercicios
1. Desarrollar completamente el programa para descomponer un entero positivo en
sus factores primos descrito en el apartado 20.1.1, escribiendo finalmente la solución
en la siguiente forma:
600 2
300 2
150 2
75 3
25 5
5 5
1
2. Escribir el algoritmo de cambio de moneda descrito en apartado 20.1.2 ajustándose
al esquema devorador general.
3. Desarrolle completamente un procedimiento devorador para el problema de la
mochila descrito en el apartado 20.1.3.
4. Desarrolle completamente un procedimiento devorador para el algoritmo de Prim
del árbol de recubrimiento mínimo. Téngase en cuenta la observación hecha al
final del apartado 20.1.3 que nos permite simplificar la condición de terminación
del bucle.
5. Se tienen dos listas A y B ordenadas. Escribir un algoritmo devorador que las
mezcle produciendo una lista C ordenada.