Algoritmos y Programación en Pascal

176 Capítulo 8. Procedimientos y funciones
MultiplicaCifras
LeerNumPos ProductoCifras
Figura 8.6.
QuitarUltimaCifra
Veamos un ejemplo algo más complejo que el anterior para explicar esta
estructura de bloques. El problema que se plantea consiste en multiplicar las
cifras de un número positivo. Para ello, se hace la siguiente descomposición:
Obtener un número entero positivo numPosit;
Calcular el producto p de las cifras de numPosit;
Mostrar p.
A su vez, Calcular el producto p de las cifras de numPosit podría descomponerse
así:
Repetir
Tomar una cifra c de numPosit;
Multiplicar por c el producto acumulado de las restantes cifras
hasta que no queden más cifras
El programa consta de un procedimiento LeerNumPos, que lee un número
positivo distinto de cero y de una función ProductoCifras que calcula el producto
de sus cifras. Para ello, la función dispone de un procedimiento local
QuitaUltimaCifra que, dado un número, elimina su última cifra y la devuelve
junto con el número modificado. ProductoCifras llama repetidamente
a QuitaUltimaCifra obteniendo las sucesivas cifras del número y calculando su
producto. El número se va reduciendo hasta que no quedan más cifras, con lo que
finalizan las repeticiones. En la figura 8.6 puede verse la estructura jerárquica
del programa.
Para diferenciar los distintos ámbitos de visibilidad de los identificadores
hemos rodeado con líneas los distintos bloques del programa en la figura 8.7.
El programa utiliza una variable global numPosit, que es pasada como parámetro
a los dos subprogramas, a LeerNumPos por referencia y a ProductoCifras