ECUACION CUADRATICA

Ecuación Cuadrática

ecuacion_cuad<- function(a,b,c){
  discr<-(b^2-4*a*c)
  if(discr>=0) {
    x1<-(-b+sqrt(discr))/(2*a)
    x2<-(-b-sqrt(discr))/(2*a)
    resultado<-list(x1,x2)
    names(resultado)<-c("X1,X2")
    print(resultado)
  }
   else{
     (discr<0)
     print("La ecuación no tiene soluciones reales, contiene raices complejas ")
   } 
}

Ejemplo 1

Ejemplo_1<-ecuacion_cuad(-1,7,-10)

## $`X1,X2`
## [1] 2
## 
## $<NA>
## [1] 5

Ejemplo 2

Ejemplo_2<-ecuacion_cuad(3,5,4)

## [1] "La ecuación no tiene soluciones reales, contiene raices complejas "