Lista 03a - DCC/UFMG

More documents

Recommendations

Info

program l3p053;varI, J: integer;X, CS, FAT, XE: real;beginwriteLn('Cos(x)');write('Digite um valor para X: ');read(X);X := X * 0.01745329252; {converte de graus para radianos}CS := 0;XE := 1;for I := 1 to 15 dobeginFAT := 1;for J := 2 to 2 * I - 2 doFAT := FAT * J;if ( I mod 2 = 0 ) thenCS := CS - XE / FAT { termo par }elseCS := CS + XE / FAT; { termo impar }XE := XE * X * X;end;writeLn('Cos(',X:5:4,') = ',CS:9:8);writeLn('Cos(',X:5:4,') = ',Cos(X):9:8);end.program l3p053b;varI: integer;X, CS, FAT: real;beginwriteLn('Cos(x)');write('Digite um valor para X: ');read(X);X := X * 0.01745329252; {converte de graus para radianos}FAT := 2; {2!}CS := 1;for I := 2 to 15 dobeginif ( X 0 ) thenif ( I mod 2 = 0 ) thenCS := CS - Exp( ( 2 * I - 2 ) * Ln(X) ) / FAT { termo par }elseCS := CS + Exp( ( 2 * I - 2 ) * Ln(X) ) / FAT; { termo ímpar }FAT := FAT * ( 2 * I - 1 ) * ( 2 * I );end;writeLn('Cos(',X:5:4,') = ',CS:9:8);writeLn('Cos(',X:5:4,') = ',Cos(X):9:8);end.% I, J: integer;% X, CS, FAT: real;disp('Cos(x)');X = input('Digite um valor para X: ');X = X * pi/180;CS = 0;for I = 1 : 15FAT = 1;for J = 2 : 2 * I - 2FAT = FAT * J;endif ( mod(I,2) == 0 )CS = CS - X ^ ( 2 * I - 2 ) / FAT; % termo parelseCS = CS + X ^ ( 2 * I - 2 ) / FAT; % termo imparendendfprintf(1,'Cos(%d) = %f\n',X,CS);fprintf(1,'Cos(%d) = %f\n',X,cos(X));UFMG – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 58
% I: integer;% X, CS, FAT: real;fprintf(1,'Cos(x)');X = input('Digite um valor para X: ');X = X * pi/180;FAT = 2; % 2!CS = 1;for I = 2 : 15if ( X ~= 0 )if ( mod(I, 2) == 0 )CS = CS - X ^ ( 2 * I - 2 ) / FAT; % termo parelseCS = CS + X ^ ( 2 * I - 2 ) / FAT; % termo ímparendendFAT = FAT * ( 2 * I - 1 ) * ( 2 * I );endfprintf(1,'Cos(%d) = %f\n',X,CS);fprintf(1,'Cos(%d) = %f\n',X,cos(X));UFMG – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 59
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 and 54: 51) O valor aproximado do número
Page 55 and 56: program l3p052;varI, J: integer;X,
Page 57: 53) Implementar um algoritmo em POR
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
show all

Lista 03a - DCC/UFMG

Create successful ePaper yourself

Delete template?

Save as template?