Exame Especial - UFMG

algoritmo EEQ1;
var
inteiro: I, J, FAT;
real: X, SEN;
início
SEN ← 0;
leia(X);
para I de 1 até 15 faça
FAT ← 1;
para J de 2 até 2*I – 1 faça
FAT ← FAT * J;
fim-para
se ( I mod 2 = 0 ) então
SEN ← SEN – ( X ** ( 2 * I – 1 ) ) / FAT; { termo par }
senão
SEN ← SEN + ( X ** ( 2 * I – 1 ) ) / FAT; { termo ímpar }
fim-se
fim-para
imprima("SEN(",X,") = ",SEN);
fim
program EEQ1;
var
I, J: integer;
X, SN, FAT, XE: real;
begin
writeLn('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 do
begin
FAT := 1;
for J := 2 to 2 * I - 1 do
FAT := FAT * J;
if ( I mod 2 = 0 ) then
SN := SN - XE / FAT { termo par }
else
SN := 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.
%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 : 15
FAT = 1;
for J = 2 : 2 * I - 1
FAT = FAT * J;
end
if ( mod(I,2) == 0 )
SN = SN - X ^ ( 2 * I - 1 ) / FAT; % termo par
else
SN = SN + X ^ ( 2 * I - 1 ) / FAT; % termo impar
end
end
fprintf(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 2