Eq. do 2a. grau - Com cat

augustofilho — Dec 21, 2013, 4:59 PM

e17p61=function(a,b,c){
  if(a==0)
    cat("A variável deve ser diferente de zero.\n")
  else
  {    
  delta=b^2-4*a*c

  if(delta<0)
  cat("\nNão existe raiz real.")
  else
    if(delta==0){
      cat("\nExiste uma raiz real")
      cat("\nA raiz real é",(-b/(2*a)))
    }
  else
    if(delta>0){    
      cat("O valor de x1 é",(-b+sqrt(delta))/(2*a))
      cat("\nO valor de x2 é",(-b-sqrt(delta))/(2*a))
    }
  }
}