P_30_E15

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

Calcular el multiplicatorio desde i = 2 hasta S de

code format="pascal" i     (-1) 1 -          2        i code code format="pascal" PROGRAM P_30_E15 ; VAR iS, i : Integer ; rMultiplicatorio, rTermino : 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) ;

rMultiplicatorio := 1 ; { Inicializar el Multiplicatorio } FOR i := 2 TO iS DO BEGIN IF i MOD 2 = 0 THEN rTermino := 1 - ( 1 / Sqr (1.0 * i) ) ELSE rTermino := 1 - ( -1 / Sqr (1.0 * i) )

rMultiplicatorio := rMultiplicatorio * rTermino ; END ;

{ Mostrar los resultados } Writeln ; Writeln ('El valor del multiplicatorio es: ', rMultiplicatorio:0:5) ;

Writeln ; ReadLN ; END. code

code format="pascal" PROGRAM P_30_E15 ; VAR iS, i, iSigno : Integer ; rMultiplicatorio : Real ; BEGIN Writeln ;

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

rMultiplicatorio := 1 ; { Inicializar el Multiplicatorio }

iSigno := 1 ; FOR i := 1 TO iS DO BEGIN { Incrementar el sumatorio con -1 elevado a la i } iSigno := - iSigno ;

{ Incrementar el sumatorio con el siguiente sumando } rMultiplicatorio := rMultiplicatorio * ( 1 - (iSigno * 1 / Sqr (1.0 * i))) ; END ;

{ Mostrar los resultados } Writeln ; Writeln ('El valor del Multiplicatorio es: ', rMultiplicatorio:0:5) ;

Writeln ; ReadLN ; END. code