Sumatorio+de+los+elementos+de+una+serie

=__**Cálculo de la suma de los elementos de una serie**__=

**Cálculo de la suma de los N elementos de la serie:** >> math H(n) =1 + \frac{1}{2}+\frac{1}{3}+\frac{1}{4}+...+\frac{1}{n}=\sum_{i=1}^{n}\frac{1}{i} math

code format="pascal" PROGRAM Serie_1 ; VAR N, i: Integer ; rValorSerie : Real : BEGIN Write ('Número de elementos de la serie H(n): ') ; ReadLn (N) ;

{ cálculo del valor de la serie } rValorSerie := 0 ; FOR i := 1 TO N DO      rValorSerie := rValorSerie + (1 / i) ;

WriteLn ('El valor de la serie H(n) es: ', rValorSerie:0:2) ; ReadLn ; END. code

**Cálculo de la suma de los N elementos de la serie:** >> math H(n) =1 + \frac{1}{2}+\frac{1}{4}+\frac{1}{8}+\frac{1}{16}+\frac{1}{32}+...+\frac{1}{2^{n}}=\sum_{i=0}^{n}\frac{1}{2^{i}} math

code format="pascal" PROGRAM Serie_2 ; VAR N, i, j : Integer ; rValorSerie, rDenominador, rNuevoTermino : Real : BEGIN Write ('Número de elementos de la serie H(n): ') ; ReadLn (N) ;

{ cálculo del valor de la serie } rValorSerie := 0 ; FOR i := 0 TO N DO      BEGIN rDenominador := 1 ; FOR j := 1 TO i DO          rDenominador := rDenominador  * 2 ;

rNuevoTermino   := 1 / rDenominador ; rValorSerie := rValorSerie + rNuevoTermino ; END ; WriteLn ('El valor de la serie H(n) es: ', rValorSerie:0:2) ;

Readln ; END. code