Ejercicio ecuacion cuadratica

ecuacion_cuadratica<-function(a,b,c){
  if(b^2-4*a*c >= 0) {
    x1<-(-b + sqrt(b^2 - 4*a*c))/(2*a)
    x2<-(-b - sqrt(b^2 - 4*a*c))/(2*a)
    resultados<-list(x1,x2)
    return(resultados)
  } else{
    determinante<-b^2-4*a*c<0
    x1<-(-b + sqrt(determinante))/(2*a)
    x2<-(-b - sqrt(determinante))/(2*a)
    print(paste("Hay raices complejas"))
  }
}

Ejemplo 1

a<-1
b<-(-8)
c<-(-9)
ecuacion_cuadratica(a,b,c)

## [[1]]
## [1] 9
## 
## [[2]]
## [1] -1

Ejemplo 2

a<-10
b<-3
c<-20 
ecuacion_cuadratica(a,b,c)  

## [1] "Hay raices complejas"