MAC113 - Introdução à Computação

Gabarito da Lista de Exercícios 02: comando de seleção

1. Questao 1:

   •         percent <- as.numeric(readline("digite o percentagem:  "))
     	if(percent <= 0.25){
               print("Espanjador")
             }else if(percent <= 0.53){
               print("Gastador")
             }else if(percent <= 0.75){
               print("Comedido")
             }else if(percent <= 0.90){
     	  print("Essencial")				  
            

   •         percent <- as.numeric(readline("digite o percentagem:  "))
     	if(percent <= 0.25){
               print("Espanjador")
             }else if(percent <= 0.53){
               print("Gastador")
             }else if(percent <= 0.75){
               print("Comedido")
             }else if(percent <= 0.90){
               print("Essencial")
             }else{
     	  print("Indefinido")				  
            

2. Questao 2:

           percent <- as.numeric(readline("digite o percentagem:  "))
   	if(percent <= 0.20){
             print("Espanjador")
           }else if(percent <= 0.25){
             print("Indefinido")
           }else if(percent <= 0.45){
             print("Gastador")
           }else if(percent <= 0.53){
             print("Indefinido")
           }else if(percent <= 0.75){
             print("Comedido")
           }else if(percent <= 0.80){
   	  print("Indefinido")
   	}else if(percent <= 0.95){
   	  print("Essencial")								    
           }else{
   	  print("Indefinido")				  
          

3. Questao 3:
   • Considere uma equação do segundo grau a*x^2+b*x+c=0.
   • Escreva um programa que lê os 3 parametros correspondentes aos coeficientes a, b e c. Em seguida, o programa calcula o discriminante: Delta=b*b-4*a*c.
   • Em seguida o programa procede da seguinte maneira:
     1. Se não houver raizés reais (Delta < 0), o programa imprime "Nao existe raizes reais"
     2. Se houver uma única raiz real (Delta = 0), o programa calcula o valor da raiz única -b/(2*a) e imprime "Uma unica rais:" e <valor do raiz>.
     3. Se houver 2 raizes ((Delta > 0), o programa calcula 2 raizes:
        • x1=(-b+Delta^(1/2))/(2*a)
        • x2=(-b-Delta^(1/2))/(2*a)
        e imprime "Duas raizes: <valor do x1> e <valor do x2>"
     4. Obs: x(1/2) é raiz quadrada de x.

     5.         a <- as.numeric(readline("digite a:  "))
                b <- as.numeric(readline("digite b:  "))
                c <- as.numeric(readline("digite c:  "))
                Delta <- b*b-4*a*c
                if(Delta < 0){
                  print("Nao existe raizes reais")
                }else if(percent = 0){
                  print(paste0("Uma unica rais:  ", -b/(2*a))
                }else{
        	  x1 <- (-b+Delta^(1/2))/(2*a)
                  x2 <- (-b-Delta^(1/2))/(2*a)
        	  print(paste0("Duas raizes:  ", x1, "e  ", x2))