Lista 03a - DCC/UFMG

program l3p052;varI, J: integer;X, SN, FAT, XE: real;beginwriteLn('Sen(x)');write('Digite um valor para X: ');read(X);X := X * 0.01745329252; {converte de graus para radianos}SN := 0;XE := X;for I := 1 to 15 dobeginFAT := 1;for J := 2 to 2 * I - 1 doFAT := FAT * J;if ( I mod 2 = 0 ) thenSN := SN - XE / FAT { termo par }elseSN := SN + XE / FAT; { termo impar }XE := XE * X * X;end;writeLn('Sen(',X:5:4,') = ',SN:9:8);writeLn('Sin(',X:5:4,') = ',Sin(X):9:8);end.program l3p052b;varI: integer;X, SN, FAT: real;beginwriteLn('Sen(x)');write('Digite um valor para X: ');read(X);X := X * 0.01745329252; {converte de graus para radianos}FAT := 1;SN := 0;for I := 1 to 15 dobeginif ( X 0 ) thenif ( I mod 2 = 0 ) thenSN := SN - Exp( ( 2 * I - 1 ) * Ln(X) ) / FAT { termo par }elseSN := SN + Exp( ( 2 * I - 1 ) * Ln(X) ) / FAT; { termo ímpar }FAT := FAT * ( 2 * I ) * ( 2 * I + 1 );end;writeLn('Sen(',X:5:4,') = ',SN:9:8);writeLn('Sin(',X:5:4,') = ',Sin(X):9:8);end.%I, J: integer;%X, SN, FAT: real;disp('Sen(x)');X = input('Digite um valor para X: ');X = X * pi/180;SN = 0;for I = 1 : 15FAT = 1;for J = 2 : 2 * I - 1FAT = FAT * J;endif ( mod(I,2) == 0 )SN = SN - X ^ ( 2 * I - 1 ) / FAT; % termo parelseSN = SN + X ^ ( 2 * I - 1 ) / FAT; % termo imparendendfprintf(1,'Sen(%d) = %f\n',X,SN);fprintf(1,'Sin(%d) = %f\n',X,sin(X));UFMG – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 55