Exercícios 1-2: Aula 11 - Software R (parte 4)

raizes <- function(a,b,c){
  delta <- b*b-4*a*c
  if(delta < 0){
    cat("Raizes complexas")
  }
  else{
    raiz1 <- (-b-sqrt(delta)) /(2*a)
    raiz2 <- (-b+sqrt(delta)) /(2*a)
    cat("As raizes sao: ", raiz1, "e", raiz2)
  }
}

raizes(1,3,5)

areatrapezio <- function(B,b,h){
  A<-((B+b)/2)*h
  return(A)
}

areatrapezio(b=2,B=5,h=1)