Lista 03a - DCC/UFMG

program l3p055;varI, J, N: integer;SOMA, R, FATN, FATD: real;beginwrite('Entre com o valor de N: ');read(N);SOMA := 0;for I := 0 to N dobeginFATN := 1;for J := 2 to N - I doFATN := FATN * J;FATD := 1;for J := 2 to (2 * I) doFATD := FATD * J;R := FATN / FATD ;if (I mod 2 = 0) thenbeginwriteLn(I + 1,'o. Termo = ',R:17:16);SOMA := SOMA + R;endelsebeginwriteLn(I + 1,'o. Termo = -',R:17:16);SOMA := SOMA - R;end;end;writeLn('Soma = ',SOMA:17:16);end.program l3p055b;varI, J, N: integer;SOMA, R, FATN, FATD: real;beginwrite('Entre com o valor de N: ');read(N);SOMA := 0;FATN := 1;FATD := 1;for J := 2 to N doFATN := FATN * J;for I := 0 to N dobeginR := FATN / FATD;if (I mod 2 = 0) thenbeginwriteLn(I + 1,'o. Termo = ',R:17:16);SOMA := SOMA + R;endelsebeginwriteLn(I + 1,'o. Termo = -',R:17:16);SOMA := SOMA - R;end;if (I N) thenFATN := FATN / (N - I);FATD := FATD * ( 2*I + 1 ) * ( 2*I + 2);end;writeLn('Soma = ',SOMA:17:16);end.UFMG – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 63