problem3.R

factorial.function <- function(a,b,c)
{
  if (delta.result(a,b,c) > 0)
  {
    x_1 = (-b+sqrt(delta(a,b,c)))/(2*a)
    x_2 = (-b-sqrt(delta(a,b,c)))/(2*a)
    result = c(x_1,x_2)
  }
  else if (delta.result(a,b,c) == 0)
  {
    x = -b/(2*a)
  }
  else
  {
    "There are no real roots."
  }
}

delta.result <- function(a,b,c)
{
  b^2-4*a*c
}

#Example 1 - x2−2x+1=0  
ex1 <- factorial.function(1,-2,1); ex1

## [1] 1

#Example 2- 4x2−x+5=0
ex2 <- factorial.function(4,-1,5); ex2

## [1] "There are no real roots."