Ecuación Cuadrática

Ecuación Cuadrática

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

Ejemplo 1

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

## $X1
## [1] 2
## 
## $X2
## [1] 5

Ejemplo 2

Ejemplo_2<-ecuacion_cuadratica(3,5,4)

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