Lista 03a - DCC/UFMG

More documents

Recommendations

Info

52) Implementar um algoritmo em PORTUGOL para calcular o sen(X). O valor de Xdeverá ser digitado em graus. O valor do seno de X será calculado pela soma dos 15primeiros termos da série a seguir:3xsen( X ) = x −3!+5x5!7x−7!9x+9!11x− + ...11!algoritmo L3P052;varinteiro: I, J, FAT;real: X, SEN;inícioSEN ← 0;leia(X);para I de 1 até 15 façaFAT ← 1;para J de 2 até 2*I – 1 façaFAT ← FAT * J;fim-parase ( I mod 2 = 0 ) entãoSEN ← SEN – ( X ** ( 2 * I – 1 ) ) / FAT; { termo par }senãoSEN ← SEN + ( X ** ( 2 * I – 1 ) ) / FAT; { termo ímpar }fim-sefim-paraimprima("SEN(",X,") = ",SEN);fimalgoritmo L3P052B;varinteiro: I, FAT;real: X, SEN;inícioFAT ← 1;SEN ← 0;leia(X);para I de 1 até 15 façase (X ≠ 0) entãose ( 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-sefim-seFAT ← FAT * ( 2 * I ) * ( 2 * I + 1 );fim-paraimprima("SEN(",X,") = ",SEN);fimUFMG – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 54
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
Page 6 and 7: 6) Escreva um algoritmo em PORTUGOL
Page 10 and 11: 10) Escreva um algoritmo em PORTUGO
Page 16 and 17: 16) Criar um algoritmo em PORTUGOL
Page 41 and 42: 41) A série de Fibonacci é formad
Page 43 and 44: 43) A série de FETUCCINE é gerada
Page 45 and 46: 44) Seja a seguinte série:1, 4, 9,
Page 47 and 48: 46) Sendo H = 1 + 21 + 31 + 41 + ..
Page 49 and 50: 48) Faça um algoritmo em PORTUGOL
Page 51 and 52: 50) Faça um algoritmo que:- leia u
Page 53: 51) O valor aproximado do número
Page 57 and 58: 53) Implementar um algoritmo em POR
Page 59 and 60: % I: integer;% X, CS, FAT: real;fpr
Page 61 and 62: program l3p054b;varI: integer;X, E,
Page 63 and 64: program l3p055;varI, J, N: integer;
Page 69 and 70: %C, NMAT,MNMAT1,MNMAT2: integer;%NO
Page 71 and 72: algoritmo L3P058;varinteiro: C, IDA
Page 73 and 74: % C, IDADE,NOTIMO,NRUIM,NPESSIMO,NB
Page 75 and 76: algoritmo L3P059;varinteiro: C, NAM
Page 77 and 78: % C, NAM,NAV,NAN,NBM,NBV,NBN,NCM,NC
Page 79: program l3p060;varC,CPF,NDEP: integ

Lista 03a - DCC/UFMG

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?