MAC113 - Introdução à Computação

Administração - 1o. Semestre de 2019

Aula 06: repetição dentro de repetição e variável logica e arquivo.csv

Os assuntos de hoje:
1. comando de repetição dentro de 1 comando de repetição
2. variável booleana (lógica)
observação:
- Entre { e }, pode entrar 1 comando qualquer ou 1 sequência de comandos quaisquer.
- Em particular, o comando dentro de comando de repetição pode ser 1 comando de repetição. (repetição dentro de repetição)

Exemplo:

O seguinte programa imprime 1 x 1 = 1,...1 x 9 = 9:

              i <- 1 
              for(j in(1:9)){
                print(paste0(i, " x ", j, " = ", i*j, quote = F))
              }

O seguinte programa imprime 2 x 1 = 2,...2 x 9 = 18:

              i <- 2 
              for(j in(1:9)){
                print(paste0(i, " x ", j, " = ", i*j, quote = F))
              }

Então se i varia de 1 até 9, vai imprimir 1 x 1 = 1,...1 x 9 = 9,...9 x 1 = 9,...9 x 9 = 81:

              for(i in(1:9)){ 
                 for(j in(1:9)){
                   print(paste0(i, " x ", j, " = ", i*j, quote = F))
                 }	   
              }

Equivalentemente:

              i <- 1 
              while(i <= 9){
                 j <- 1
                 while(j <= 9){
                   print(paste0(i, " x ", j, " = ", i*j, quote = F))
                   j <- j + 1
                 }
                 i <- i + 1
              }

Todo que for escrito usando for é facilmente re-escrito usando while. Mas a inversa não é verdade.

Exemplo para motivação:
- Dado 1 número inteiro positivo n (n >= 5), verifique quais os inteiros menores ou igual a n é hipotenusa inteira de 1 triangulo retanguro com catetos inteiros.
- Exemplos: n = 15 e a*a+b*b=c*c. Quais são c <= 15?
  1. c=5 (a=3, b=4)
  2. c=10 (a=6, b=8)
  3. c=13 (a=5, b=12)
  4. c=15 (a=9, b=12)
- Quais são possíveis valores de c: 5 <= c <= n
- Para cada valor de c, os possíveis valores de a: 1 <= a <= c-1.
- Para cada valor de c e para cada valor de a, os possíveis valores de b: 1 <= b <= c-1.
- Então nossa primeira tentativa:
```
             n <-as.numeric(readline("digite n: "))
             for(c in(1:n)){
               for(a in(1:c-1)){           
                 for(b in(1:c-1)){  
                   if(a*a + b*b == c*c){
                     print(paste0(c, "eh hipotenusa"))
	           }
                 }
               }
	     }	   
            
```
- O pequeno inconveniente: Quando c=5, tem 2 casos possíveis:
  - caso 1: a=3, b=4 e c=5
  - caso 2: a=4, b=3 e c=5
  Assim, vai ter 2 impressão de "5 eh hipotenusa". Generalizando para cada c possível vai ter 2 impressões.
- O que deve fazer para evitar 2 impressões:
  - Temos que interromper a repetição após a primeira impressão de "5 eh hipotenusa" quando a=3 e b=4 e passar a examinar caso de c=6.
  - Mas o comando for repete de começo até o fim.
  - Logo temos que usar o comando while.
  - Falta incluir o mecanismo de interrupção.
  - Isto será possível com o uso de variável logica.
Variável logica:
- É uma variável que só tem 2 valores possíveis.
  1. TRUE (verdadeira), pode ser abreviada: T
  2. FALSE (falsa), pode ser abreviada: F

A solução com o uso de variável logica:

             n <-as.numeric(readline("digite n: "))
             for(c in(1:n)){
               a <- 1
               achou <- FALSE
               while((a <= c - 1) && (achou == FALSE)){
                 for(b in(1:c - 1)){
                   if(a*a + b*b == c*c){
		     print(paste0(c, "eh hipotenusa"))
		     achou <- TRUE		  
		   }
		   a <- a + 1		     
	       }
	     }

Arquivo.csv:
- Agora vamos começar a trabalhar com dados num arquivo.
- O primeiro a ver é o arquivo.csv.
- Você deve criar o arquivo com seu editor de texto e salva-lo num diretório seu.
- Uma vez feito isto, você pode imprimir o arquivo, manipular os dados do arquivo etc.
Na próxima aula prática, vamos ver seu uso:

Arquivo.csv:

É 1 arquivo em várias linhas e os elementos são separados por ",".
A cada linha termina com o elemento sem ","
A primeira linha é de cabeçalho.

Exemplo:

              Nome,   P1,   P2,  EP1,  EP2,  EP3
	     Andre,  6.5,  7.5,  9.0,  8.7,  7.5
	       Bel , 5.5,  6.5,  6.8,  7.0,  7.5
               Cris, 8.5,  9.5, 10.0, 10.0,  9.5

Vamos chamar este arquivo de nota.scv.

O começo do programa:

            dirTrab <- "/o caminho até o diretorio/"
	    setwd(dirTrab)
	    planilha <- read.csv("nota.csv")		      
            print(planilha)

A saida será:

               Nome   P1   P2  EP1  EP2  EP3
	    1 Andre  6.5  7.5  9.0  8.7  7.5
	    2   Bel  5.5  6.5  6.8  7.0  7.5
            3   Cris 8.5  9.5 10.0 10.0  9.5

Se nota.csv for:

              Nome,P1,P2,EP1,EP2,EP3
	      Andre,6.5,7.5,9.0,8.7,7.5
	      Bel,5.5,6.5,6.8,7.0,7.5
              Cris,8.5,9.5,10.0,10.0,9.5

A siada vai ser o mesmo do anterior.

Mas recomendo editar o arquivo.csv com espaçamento adequado para melhor visualização no seu trabalho.

Se nota.csv for:

               Nome,  P1,   P2,   EP1, EP2, EP3
	      Andre, 6.5,  7.5,   9.0
	        Bel, 5.5,  6.5,   6.8
               Cris, 8.5,  9.5,  10.0

A saida será:

               Nome   P1   P2  EP1  EP2  EP3
	    1 Andre  6.5  7.5  9.0   NA   NA
	    2   Bel  5.5  6.5  6.8   NA   NA 
            3   Cris 8.5  9.5 10.0   NA   NA

NA é ausência de dado.

Voltamos ao nota.csv original:

              Nome,   P1,   P2,  EP1,  EP2,  EP3
	     Andre,  6.5,  7.5,  9.0,  8.7,  7.5
	       Bel , 5.5,  6.5,  6.8,  7.0,  7.5
               Cris, 8.5,  9.5, 10.0, 10.0,  9.5

Se fizer:

            dirTrab <- "/o caminho até o diretorio/"
	    setwd(dirTrab)
	    planilha <- read.csv("nota.csv")		      
            planilha['P'] <- NA
            planilha['EP'] <- NA		       
	    print(planilha)

A saida será:

               Nome   P1   P2  EP1  EP2  EP3   P  EP
	    1 Andre  6.5  7.5  9.0  8.7  7.5  NA  NA
	    2   Bel  5.5  6.5  6.8  7.0  7.5  NA  NA
            3   Cris 8.5  9.5 10.0 10.0  9.5  NA  NA

print(planilha[1,]) => A saida será:

 	    1 Andre  6.5  7.5  9.0  8.7  7.5  NA  NA

Se fizer:

            planilha[1,7] <- (planilha[1,2] + planilha[1,3])2	      
	    print(planilha)

Temos:

               Nome   P1   P2  EP1  EP2  EP3    P  EP
	    1 Andre  6.5  7.5  9.0  8.7  7.5  7.0  NA
	    2   Bel  5.5  6.5  6.8  7.0  7.5   NA  NA
            3   Cris 8.5  9.5 10.0 10.0  9.5   NA  NA

Voltamos ao nota.scv original:

              Nome,   P1,   P2,  EP1,  EP2,  EP3
	     Andre,  6.5,  7.5,  9.0,  8.7,  7.5
	       Bel , 5.5,  6.5,  6.8,  7.0,  7.5
               Cris, 8.5,  9.5, 10.0, 10.0,  9.5

Se fizer:

            dirTrab <- "/o caminho até o diretorio/"
	    setwd(dirTrab)
	    planilha <- read.csv("nota.csv")		      
            planilha['P'] <- (planilha[P1] + planilha[P2])/2 
  	    print(planilha)

A saida será:

               Nome   P1   P2  EP1  EP2  EP3    P  
	    1 Andre  6.5  7.5  9.0  8.7  7.5  7.0  
	    2   Bel  5.5  6.5  6.8  7.0  7.5  6.0
            3   Cris 8.5  9.5 10.0 10.0  9.5  9.0