Algoritmos y Programación en Pascal

7.3. Aspectos metodológicos 145
{Hallar denominador, denom = i!}
denom:= 1;
para j:= 1 hasta i hacer
denom:= denom * j
Agrupando todos los refinamientos finalmente tendríamos el siguiente programa
en Pascal:
Program Sumatorio (input, output);
var
denom, n, i, j: integer;
suma, term: real;
begin
{Entrada de datos:}
Write(’Escriba el valor de n y pulse intro: ’);
ReadLn(n);
{Cálculo de la suma:}
suma:= 0;
for i:= 1 to n do begin
{Cálculo del término i-ésimo: (i + 1)/i!}
denom:= 1;
for j:= 1 to i do
denom:= denom * j;
term:= (i + 1)/denom;
{Acumularlo:}
suma:= suma + term
end; {for i:= 1}
{Salida de resultados:}
WriteLn(’Suma = ’,suma:12:10)
end. {Sumatorio}
Mejora de repeticiones innecesarias
El ejemplo anterior es correcto, aunque sensiblemente mejorable. En efecto,
se observa que los factoriales hallados en cada vuelta,
1!, 2!, . . . , (i − 1)!, i!, . . . , n!
pueden hallarse más rápidamente simplemente actualizando el precedente. Así
pues, en vez de
{Hallar denom = i!}
denom:= 1;
for j:= 1 to i do
denom:= denom * j