Lista 03a - DCC/UFMG

53) Implementar um algoritmo em PORTUGOL para calcular o cos(X). O valor de Xdeverá ser digitado em graus. O valor do cosseno de X será calculado pela soma dos15 primeiros termos da série a seguir:2xcos( X ) = 1−2!4 6x x+ −4! 6!8x+8!10x− + ...10!algoritmo L3P053;varinteiro: I, J, FAT;real: X, COS;inícioCOS ← 0;leia(X);para I de 1 até 15 façaFAT ← 1;para J de 2 até 2*I – 2 façaFAT ← FAT * J;fim-parase ( I mod 2 = 0 ) entãoCOS ← COS – ( X ** ( 2 * I – 2 ) ) / FAT; { termo par }senãoCOS ← COS + ( X ** ( 2 * I – 2 ) ) / FAT; { termo ímpar }fim-sefim-paraimprima("COS(",X,") = ",COS);fimalgoritmo L3P053B;varinteiro: I, FAT;real: X, COS;inícioFAT ← 1;COS ← 0;leia(X);para I de 1 até 15 façase (X ≠ 0) entãose ( I mod 2 = 0 ) entãoCOS ← COS – ( X ** ( 2 * I – 2 ) ) / FAT; { termo par }senãoCOS ← COS + ( X ** ( 2 * I – 2 ) ) / FAT; { termo ímpar }fim-sefim-seFAT ← FAT * ( 2 * I – 1 ) * ( 2 * I );fim-paraimprima("COS(",X,") = ",COS);fimUFMG – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 57