#Ex 4 - lista 4

#classifica <- function(nota){
#  classificacao <- ""
#  if (nota >= 5){
#    classificacao <- "Aprovado"
#  }
#  else{
#    if (nota >= 3){
#      classificacao <- "Em recupreção"
#    }
#    else{
#      classificacao <- "Reprovado"
#    }
#  }
#  return (classificacao)
#}

#n <- as.numeric(readline("Digite n: "))
#for (i in(1:n)){
#  nota <- as.numeric(readline("Digite a nota: "))
#  print(classifica(nota))
#}



#n<-as.numeric(readline("digite sua nota: "))

#classifica<-function(nota){
#  n<-nota
#  situacao <- ""
#  if(n>=5){
#    situacao <- "aprov"
#  }else if (3 <=n&& n<5){
#    situacao <- "em recup"
#  }else if (n<3){
#    situacao <- "reprov"
#  }
#  return(situacao)
#}

#classificacao <- classifica(n)
#print(classificacao)




#texto <- "string"
#numero <- 5
#char <- "a"
#booleana1 <- TRUE
#booleana2 <- FALSE
#booleana3 <- 1
#booleana4 <- 0

#booleana <- (1<2)
#if (booleana){
#  print(booleana)
#}

#booleana <- (3>2)
#if (booleana){
#  print(booleana)
#}

#booleana <- (3<2)
#if (!booleana){
#  print("verdadeiro")
#}else{
#  print("falso")
#}

#source('~/Nova pasta/fat.r')
#
#intregra <- function(z,inicio, fim){
#  s <- 0
#  v2 <- 0
#  v2 <- inicio
#  partes <- (fim - inicio)/z
#  s <- y(v2)
#  while (v2 < fim){
#    v2 <- inicio + 1/z
#    s <- y(v2) + s
#  }
#  return(s)
#}


#intregra(2,0,1)


#prova <- function(nota1, nota2){
#  nota_final <- (nota1+nota2)/2
#  return (nota_final)
#}

#exercicio_pratico <- function(nota1, nota2){
#  nota_final <- (nota1+nota2)/2
#  return (nota_final)
#}

#media <- function(p, ep){
#  nota_final <- (3*p+ep)/4
#  return (nota_final)
#}

#nota1 <- as.numeric(readline("Digite a nota da p1: "))
#nota2 <- as.numeric(readline("Digite a nota da p2: "))
#p <- prova(nota1, nota2)
#
#nota3 <- as.numeric(readline("Digite a nota do ep1: "))
#nota4 <- as.numeric(readline("Digite a nota do ep2: "))
#ep <- prova(nota1, nota2)
#
#m <- media(prova(nota1, nota2), prova(nota3, nota4))
#
#print(paste0("A média final é: ", m))


#prova <- function(P1,P2,Psub){
#  if(P1 == -1){
#    notaP <- (Psub+P2)/2
#  } else if (P2 == -1){
#    notaP <- (P1+Psub)/2
#  } else {
#    notaP <- (P1+P2)/2
#  }
#  return(notaP)
#
#}

#print(prova(7, -1, 1))