gabarito lista2 marcados

Prévia do material em texto

Seguem abaixo respostas para os exercícios marcados na Lista 2. 
Lembrando que podem existir várias maneiras de resolver os problemas e por isso as 
respostas abaixo não devem ser consideradas 
como as únicas aceitáveis. 
5.
Inicio
 //declaracao de variaveis
 real: R,D,E,L,conversao;
 caractere: M;
 //entrada
 D <- 3.21;
 E <- 3.51;
 L <- 4.82;
 leia(M);
 leia(R);
 \\processamento
 escolha M 
 caso "dolar": conversao <- R/D;
 caso "euro" : conversao <- R/E;
 caso "libra": conversao <- R/L;
 exceção: conversao<-(-1);
 fimescolha
 \\saida
 se (conversao=-1) então
 escreva("Valor de entrada de moeda inválida!");
 senão escreva(conversao);
 fimse;
 
Fim.
6.
Inicio
 //declaracao de variaveis
 real: a,b,c,i;
 //entrada
 leia(a);
 leia(b);
 leia(c);
 //processamento 
 se (a>=b) entao 
 se (a>=c) entao 
 inicio
 escreva (a);
 se (c>=b) entao 
 escreva(c);
 senao escreva(b,c);
Página 1
 fimse;
 fim;
 senao 
 escreva (c,a,b);
 fimse;
 senao se (b>=c) entao 
 inicio 
 escreva (b);
 se (a>=c) entao 
 escreva(a);
 senao escreva(c,a);
 fimse;
 fim;
 fimse;
 fimse; 
Fim. 
9.
Inicio
 //declaracao de variaveis
 inteiro:x,i; 
 bool:primo; // 1 se verdadeiro 0 se falso
 //entrada
 leia(x);
 //processamento
 se (x>2) então
 primo <- 0;
 para i de 2 até (i-1) passo 1 faça
 se(x mod i = 0) entao
 primo <- 1;
 fimse;
 fimpara;
 senão escreva("Entrada inválida!");
 fimse;
 //saida 
 se (primo = 1) entao
 escreva("é primo");
 senão escreva("não é primo");
 fimse;
Fim.
10.
Inicio
 inteiro:n,z,x,y,i;
 leia(n);
 x<-0;
 y<-1;
Página 2
 para i de 1 ate n passo 1 faça
 inicio
 escreva(x);
 z <- x;
 x <- y;
 y <- z+x;
 fim;
 fimpara;
Fim.
18.
Inicio
 inteiro:d,m,a;
 bool:bis;
 leia(a,m,d);
 bis<-0;
 se (( (a mod 4 = 0) E (a mod 100<>0) ) OU (a mod 400=0)) entao
 bis<-1;
 fimse;
 escolha m
 caso 1,3,5,7,8,10:
 inicio
 se(d<>31) entao
 escreva(d+1);
 escreva(m);
 escreva(a);
 senao
 escreva("1");
 escreva(m+1);
 escreva(a);
 fimse;
 fim;
 caso 4,6,9,11:
 inicio
 se(d<>30) entao
 escreva(d+1);
 escreva(m);
 escreva(a);
 senao
 escreva("1");
 escreva(m+1);
 escreva(a);
 fimse;
 fim;
 caso 12:
 inicio
Página 3
 se(d<>31) entao
 escreva(d+1);
 escreva(m);
 escreva(a);
 senao
 escreva("1");
 escreva("1");
 escreva(a+1);
 fimse;
 fim;
 caso 2:
 inicio
 se(bis) entao
 se (d<>29) entao
 escreva(d+1);
 escreva(m);
 escreva(a);
 senao
 escreva("1");
 escreva(m+1);
 escreva(a);
 fimse;
 senao
 se(d<>28)entao
 escreva(d+1);
 escreva(m);
 escreva(a);
 senao
 escreva("1");
 escreva(m+1);
 escreva(a);
 fimse;
 fimse;
 fim;
 exceção:escreva("Mes invalido");
 fimescolha;
Fim.
Página 4