MAC113 - Introdução à Computação

Lista de Exercícios 03: repetição e seleção

1. Questao 1: Sejam A, B e C 3 condições. Compare a tabela verdade de (A&&B)||C e a tabela verdade de A&&(B||C).

        A | B | C | (A&&B) | (A&&B)|| C           A | B | C | (B||C) | A&&(B||C)
       ===|===|===|========|============         ===|===|===|========|===========
        V | V | V |   V    |     V                V | V | V |   V    |    V
       ---|---|===|--------|------------         ---|---|===|--------|-----------
        V | V | F |   V    |     V                V | V | F |   V    |    V
       ---|===|===|--------|------------         ---|===|===|--------|-----------
        V | F | V |   F    |     V                V | F | V |   V    |    V
       ---|---|===|--------|------------         ---|---|===|--------|-----------
        V | F | F |   F    |     F                V | F | F |   F    |    F
       ===|===|===|--------|------------         ===|===|===|--------|-----------
        F | V | V |   F    |     V                F | V | V |   V    |    F
       ---|---|===|--------|------------         ---|---|===|--------|-----------
        F | V | F |   F    |     F                F | V | F |   V    |    F
       ---|===|===|--------|------------         ---|===|===|--------|-----------
        F | F | V |   F    |     V                F | F | V |   V    |    F
       ---|---|===|--------|-----------          ---|---|===|--------|-----------
        F | F | F |   F    |     F                F | F | F |   F    |    F
   	
      

2. Questao 2:
   • Pode ocorrer divisão com zero se todos foram aprovados ou todos não foram aprovados
   • Logo a solução é:

                n <- as.numeric(readline("digite n:  "))
                somaAp <- 0
                somaNap <- 0
                nAp <- 0
     	   nNap <- 0
     					
                for(i in(1:n)){
     	     nota <- as.numeric(readline("digite a nota:  "))
     	     if(nota >= 5){
                    somaAp <- somaAp + nota
                    nAp <- nAp + 1
     	     }else{
                     somaNap <- somaNap + nota
                     nNap <- nNap + 1
     	     }
                }
     	     
                if(nAp != 0){
                  mediaAp <- somaAp / nAp
     	     print(paste0("A media dos aprovados=   ", mediaAp))       
                }else{ 
                  print("ninguem aprovado")
                }
     	    
                if(nNap != 0){
                  mediaNap <- somaNap / nNap
     	     print(paste0("A media dos nao aprovados=   ", mediaNap))	           }else{ 
                  print("todos aprovado")
     	   }		       
     	      
               
             

3. Questao 3:

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

4. Questao 4:

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

5. Questao 5: Fazer 1 programa que lê n, e em seguida 1 sequência de n números inteiros positivos e conta quantos multiplas de 3 existem na sequência.

          n <- as.numeric(readline("digite n: "))
          cont <- 0		   
          for(i in(1:n)){
          num <- as.numeric(readline("digite 1 numero: "))
          if(num%%3==0){
            cont <- cont + 1	
          }
          print(paste0(" A quantidade de multiplo de 3: ", cont)			
        

6. Questao 6: Fazer 1 programa que lê n, e em seguida 1 sequência de n notas de mac113 e calcula a média das notas aprovadas (nota >= 5) e a média das notas para recuperação (3 <= nota < 5) e a média das notas reprovadas (nota < 3).

          n <- as.numeric(readline("digite n: "))
          contAp <- 0
          contRec <- 0
          contRep <- 0
   					   
          for(i in(1:n)){
          nota <- as.numeric(readline("digite nota: "))
          if(5 <= nota){
            contAp <- contAp + 1	
          }else if(3 <= nota){
           contRec <- contRec + 1
          }else{
            contRep <- contRep + 1
          }
   			  
          print(paste0("O numero de aprovados: ", contAp)
          print(paste0("O numero de rec: ", contRec)
          print(paste0("O numero de reprovados: ", contRep)