Algoritmo para calcular o valor da série S = 0+1/2!-2/4!+3/6!-4/8!+5/10!-6/12! .. utilizando 100 termos.

// Faça um algoritmo para calcular o valor da série S = 0+1/2!-2/4!+3/6!-4/8!+5/10!-6/12! ..
//utilizando 100 termos.

program serie_s_100_termos;

uses crt;

var

s,termo:real;

i,j,k:integer;

begin

writeln('S = 0+1/2!-2/4!+3/6!-4/8!+5/10!-6/12! utilizando 100 termos');

s:=0;

for i:=1 to 100 do

begin

j:=2*i;

termo:=i;

for k:=j downto 1 do

begin

termo:= termo/k;

end;

if (i mod 2 = 0) then //termo par

begin

termo:=-termo;

end;

s:=s + termo;

end;

writeln('S =',s);

readkey;

end. //fim do programa