Tarea 1

Calculo de raices cuadraticas

calculo_cuadratica<-function(a,b,c){
  if(b^2-4*a*c >=0) {
    r1 <- (-b + sqrt((b^2) - (4 * a * c)))/(2 * a)
    r2 <- (-b - sqrt((b^2) - (4 * a * c)))/(2 * a)
solucion<-list(r1,r2)
  return(solucion)
  } else {
  raic_cua<-a^2-4*a*c<0
  r1<-(-b + sqrt((raic_cua))/(2 * a))
  r2<-(-b - sqrt((raic_cua))/(2 * a))
print(paste("Es una raiz compleja, no permite la solucion")) 
 }
}

Ejemplo 1

calculo_cuadratica(5,-3,2)

## [1] "Es una raiz compleja, no permite la solucion"

Ejemplo 2

calculo_cuadratica(2,-5,3)

## [[1]]
## [1] 1.5
## 
## [[2]]
## [1] 1