Revisao solucoes 1

Prévia do material em texto

Exercícios de Revisão - Soluções 
 
1. Algoritmo 
 Declare N,i,j,fat Numérico 
 Leia N 
 Para i de 0 até N faça 
 fat:=1 
 Para j de i até 2 passo -1 faça 
 fat:=fat*j 
 fim_para 
 Escreva ‘Fatorial de ‘, i, ‘ é ‘, fat 
 fim_para 
fim_algoritmo 
 
2. Algoritmo 
 Declare t1,t2,t3,i,j,cont Numérico 
 Escreva ‘0 não é primo’ 
 Escreva ‘1 não é primo’ 
 t1:=0 
 t2:=1 
 Para i de 3 até N faça 
 t3:=t1+t2 
 t1:=t2 
 t2:=t3 
cont:=2 
 Para j de 2 até t3/2 faça 
 Se Resto(t3,j)=0 
 então cont:=cont+1 
 fim_se 
 fim_para 
 Se cont > 2 
então Escreva t3,‘ não é primo’ 
senão Escreva t3, ‘ é primo’ 
 fim_se 
fim_para 
fim_algoritmo 
 
3. Algoritmo 
 Declare N,I Numérico 
 Leia N 
 I:=0 
 Enquanto N > 0 faça 
 I:=I*10+Resto(N,10) 
 N:=Quociente(N,10) 
 fim_enquanto 
 Escreva I 
fim_algoritmo 
4. Algoritmo 
Declare ... Numérico 
Declare ... Literal 
 TSBruto:=0 
 TSLiq:=0 
 MaiorSalário:=0 
Repita 
 Escreva ‘Código do Funcionário: ’ 
 Leia cod 
 Se cod >= 0 
 então Escreva ‘Nome do Funcionário: ’ 
 Leia Nome 
 THs:=0 
 Para i de 1 até 22 faça 
Escreva ‘Número de horas – dia ’,i,‘ :’ 
Leia Hs 
THs:=THs+Hs 
 fim_para 
 Escreva ‘Valor da hora: ’ 
 Leia VlrH 
 SBruto:=VlrH*THs 
 TSBruto:=TSBruto+SBruto 
 Se SBruto<1700 
 então IR:=0 
 senão Se SBruto<=2800 
 então IR:=SBruto*0.15 
 senão IR:=SBruto*0.27 
 fim_se 
 fim_se 
 SLiq:=SBruto-IR 
 TSLiq:=TSLiq+SLiq 
 Se SLiq > MaiorSalario 
 então MaiorSalario:=SLiq 
 NMaiorSalario:=Nome 
 fim_se 
 Escreva ‘Salário Bruto: ’, SBruto 
 Escreva ‘Imposto de Renda: ’, IR 
 Escreva ‘Salário Líquido: ’, SLiq 
 fim_se 
 até cod < 0 
 Escreva ‘Total de Salário Bruto: ’,TSBruto 
 Escreva ‘Total de Salário Líquido: ’,TSLiq 
 Escreva ‘Maior Salário do funcionário: ’,NMaiorSalario 
fim_algoritmo 
 
 
 
 
 
 
 
 
5. Algoritmo 
 Declare T,i,x Numérico 
 Leia x 
 T := 1 
 Para i de 2 até 100 faça 
 T := T + 1/(x**(2*i-1)) 
 fim_para 
 Escreva T 
fim_algoritmo 
 
6. Algoritmo 
 Declare N, T, i Numérico 
 Leia N 
 Para i de 1 até N faça 
 Se Resto(i,2)=0 
 então T := ((4*i)-4)/(2*i-1) 
senão T := ((4*i)-3)/(2*i-1) 
 fim_se 
 Escreva T 
 fim_para 
fim_algoritmo