# EP 1, feito por Eduardo Janotti Cavalcante

#Dúvidas sobre a implementação do EP ou sobre sua nota poderão ser 
#resolvidas nas monitorias ou por E-mail

#Caso queira incrementar o programa, poderá fazer restrições para valores impossíveis de notas,
# como p1=15 ou p2 = -2.5. Não há esse tipo de restrição neste código.




#funcoes
notaP <- function(p1,p2,psub){
  if(p1 == -1){                     #Todos os valores recebidos iguais a -1 são transformados em 0
    p1 <- 0                     
  }                                       
  if(p2 == -1){                       #Esta função confia que não receberá três valores diferentes
    p2 <- 0                          # de -1 ao mesmo tempo
  }
  if(psub == -1){
    psub <- 0
  }
  total <- p1+p2+psub
  return(total/2)                      #Devolve a soma total dividida por dois
}


notaEP <- function(ep1,ep2,ep3){
  if(ep1 == -1){
    ep1 <- 0                     #Todos os valores recebidos iguais a -1 são transformados em 0
  }
  if(ep2 == -1){
    ep2 <- 0
  }
  if(ep3 == -1){
    ep3 <- 0
  }
  return((ep1+2*ep2+2*ep3)/5)                   #Devolve a média ponderada dos ep's
  
}


notaMF <- function(p,ep){         
  if(p >= 5 && ep>= 5){     #Se passou, devolve a média ponderada. 
    return((3*p + ep)/4)           #se não passou, devolve a menor nota
  }else if(p>= ep){
    return(ep)
  }else{
    return(p)
  }
}




#Números de alunos
n <- as.numeric(readline("Digite n: "))
print("",quote=F) #pular linha


#funcionamento do while
i <- 0          #Variavel para a inicialização
while (i<n){
  i<-i+1        #Controle da quantidade de iterações
  
  
  # nome, p1,p2,psub
  nome <- readline("Nome: ")
  p1 <- as.numeric(readline("P1: "))
  p2 <- as.numeric(readline("P2: "))
  if (p1 == -1 || p2 == -1){
    psub <- as.numeric(readline("psub: "))       #Caso P1 ou P2 sejam iguais a -1, pede a nota da psub
  }else{
    print("psub: -1")
    psub <- -1                              #Se não for, define psub como -1 e imprime a nota da psub
  }
  
  
  
  #eps
  ep1 <- as.numeric(readline("ep1: "))
  ep2 <- as.numeric(readline("ep2: "))
  ep3 <- as.numeric(readline("ep3: "))
  
  
  #Resultados
  p <- notaP(p1,p2,psub)                 #Todas as funções são aplicadas aqui
  ep <- notaEP(ep1,ep2,ep3)
  mf <- notaMF(p,ep)
  print(paste("P: ",p))
  print(paste("ep: ",ep))
  print(paste("mf: ",mf))
  
  
  #Situacao     #Verifica a nota de MF e a sua situacao: aprovado, recuperacao e reprovado        
  if(mf >= 5){
    print("situacao: aprovado")
  }else if(mf >= 3){
    print("situacao: recuperacao")
  }else{
    print("situacao: reprovado")
  }              
  print("",quote=F) #pular linha
}