Algoritmos y Programación en Pascal

144 Capítulo 7. Programación estructurada
Otro ejemplo numérico: suma parcial de una serie
En este caso pretendemos aplicar las técnicas de diseño descendente para
obtener un programa que realice el cálculo de
n
i=1
i + 1
i!
La primera versión de este programa podría ser la siguiente:
Leer n
Calcular la suma
Escribir la suma
En este fragmento de seudocódigo simplemente se descompone la tarea encomendada
en tres subtareas: la entrada de información, su manipulación y la
salida de información buscada. El siguiente refinamiento ha de ser realizado sobre
la manipulación de la información, esto es, habrá que especificar cómo se
calcula la suma buscada.
La suma se puede calcular mediante una variable acumulador suma y un
bucle del tipo DoFor que en la iteración i-ésima calcule el término i-ésimo y lo
añada a la suma parcial suma. Este refinamiento aparece reflejado en el siguiente
fragmento:
{Calcular la suma:}
suma:= 0
para i:= 1 hasta n hacer
Hallar término i-ésimo, t
Añadir t a suma
Sólo queda por refinar la acción de calcular el término i-ésimo, ya que, conocido
éste, añadirlo a suma no plantea mayores problemas.
Conocido i, para calcular el término ti =
i + 1
i!
bastará con calcular (iterativamente)
el denominador y realizar la asignación correspondiente
{Hallar término i-ésimo:}
Hallar denominador, denom = i!
term:= (i + 1)/denom
El refinamiento del cálculo del denominador vuelve a ser un bucle del tipo
DoFor, que usando seudocódigo se puede escribir así: