P_30_E15_Producto+términos+de+serie

=__**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