Algoritmos y Programación en Pascal

8.5.
Ámbito y visibilidad de los identificadores 179
Además, el orden en que se definen los subprogramas es relevante, ya que los
definidos en primer lugar pueden ser usados por los siguientes.
Como ejemplo, vamos a modificar los identificadores de nuestro programa
MultiplicaCifras de forma que coincidan sus nombres en los diferentes bloques.
Llamaremos numero a numPosit del programa principal, a n de LeerNumPos y a
n de QuitaUltimaCifra. El programa quedaría de la siguiente forma:
Program MultiplicaCifras (input, output);
var
numero: integer;
procedure LeerNumPos(var numero: integer);
{Efecto: solicita un numero hasta obtener uno positivo}
begin
repeat
Write(’Escriba un entero mayor que cero: ’);
ReadLn(numero)
until numero > 0
end; {LeerNumPos}
function ProductoCifras(numero: integer): integer;
{Dev. el producto de las cifras de numero}
var
acumProd, cifrUnidades: integer;
procedure QuitaUltimaCifra(var numero, ultima: integer);
{Efecto: elimina la última cifra de numero y la almacena
en ultima}
begin
ultima:= numero mod 10;
numero:= numero div 10
end; {QuitaUltimaCifra}
begin
acumProd:= 1;
repeat
QuitaUltimaCifra(numero, cifrUnidades);
acumProd:= acumProd * cifrUnidades
until numero = 0;
ProductoCifras:= acumProd
end; {ProductoCifras}