R-Homework-1

knitr::opts_chunk$set(echo = TRUE)

FacNum<-1 
for (x in 1:12){ 
  if(x == 1) FacNum <- 1
  else {
    FacNum <- FacNum * x
  }
  cat(x, "-", FacNum, "\n")
}

## 1 - 1 
## 2 - 2 
## 3 - 6 
## 4 - 24 
## 5 - 120 
## 6 - 720 
## 7 - 5040 
## 8 - 40320 
## 9 - 362880 
## 10 - 3628800 
## 11 - 39916800 
## 12 - 479001600

print(seq(20,50, by=5))

## [1] 20 25 30 35 40 45 50

quadratic <- function(a, b, c) {
  x <- (b ^ 2-4 * a * c)
  PosResult <- (-b + sqrt(x))/(2*a)
  NegResult <- (-b - sqrt(x))/(2*a)
  
  return (c(PosResult, NegResult))
}
print(quadratic(2,4,-6))

## [1]  1 -3