Tarea I

Calculo de raices cuadraticas.

calculo_cuadratica<-function(x,y,z){
  if(y^2-4*x*z >=0) {
    r1 <- (-y + sqrt((y^2) - (4 * x * z)))/(2 * x)
    r2 <- (-y - sqrt((y^2) - (4 * x * z)))/(2 * x)
solucion<-list(r1,r2)
  return(solucion)
  } else {
  raiz_cua<-x^2-4*x*z<0
  r1<-(-y + sqrt((raiz_cua))/(2 * x))
  r2<-(-y - sqrt((raiz_cua))/(2 * x))
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