Algoritmos y Programación en Pascal

8.4. Funcionamiento de una llamada 171
. . .
. . .
. . .
. . .
Definici—n de constantes
Declaraci—n de variables
Definici—n de subprogramas
Figura 8.4. Diagrama sintáctico de las declaraciones y definiciones.
procedure LeerNumPos(var n: integer);
{Efecto: solicita un entero hasta obtener uno positivo}
begin
{2A}
repeat
Write(’Escriba un entero positivo: ’);
ReadLn(n)
until n >= 0
{2B}
end; {LeerNumPos}
function Fac(num: integer): integer;
{Dev. num!}
var
i, prodAcum: integer;
begin
{4A}
prodAcum:= 1;
for i:= 2 to num do
prodAcum:= prodAcum * i;
Fac:= prodAcum
{4B}
end; {Fac}
begin
{1}
LeerNumPos(numero); {num >= 0}