Algoritmos y Programación en Pascal

20.3. Programación dinámica 461
enteros cualesquiera, y se trata ahora de dar el cambio óptimo para la cantidad
C, entendiendo por óptimo el que requiere el menor número total de monedas. 6
Una formulación siguiendo el esquema de programación dinámica es la siguiente:
si hay alguna moneda de valor igual a la cantidad total, el cambio
óptimo es precisamente con una moneda; de lo contrario, el primer paso consiste
en escoger una moneda entre las de valor menor que la cantidad dada y esa
elección debe minimizar el cambio de la cantidad restante:
function NumMon(C: integer): integer;
begin
if alguna de las monedas v1, . . . , vn es igual a C then
NumMon:= 1
else
NumMon:= 1 + mínvi