P_30_E16

=__**Cálculo del sumatorio de los términos de una serie**__=

Calcular el sumatorio desde i = 1 hasta S de

code format="pascal" i         1 (-1)  *                               2                        i code

code format="pascal" PROGRAM P_30_E16 ; VAR iS, i : Integer ; rSumatorio : Real ; cEspera : Char ; BEGIN

Writeln ;

{ Leer el número de elementos de la serie } Write ('Escribe el n£mero de elementos de la serie: ') ; Readln (iS) ;

rSumatorio := 0 ; { Inicializar el sumatorio }

FOR i := 1 TO iS DO            BEGIN IF i MOD 2 = 0 THEN rSumatorio := rSumatorio + ( 1 / Sqr (1.0 * i) ) ELSE rSumatorio := rSumatorio - ( 1 / Sqr (1.0 * i) ) ; END ;

{ Mostrar el valor del sumatorio } Write ('El sumatorio vale: ', rSumatorio:0:4) ;

Readln ; END.

code