#Week 1 Homework ##by Catherine Cho

Question 1

factorial<-12
result<-1
for (i in 1:factorial){
  result<-result*i
}
print(result)

## [1] 479001600

Question 2

sequence<-seq(20,50,by=5)
print(sequence)

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

Question 3

quadratic<-function(a,b,c){
  if((b^2-4*a*c)<0){
    print("This quadratic has complex roots")
  }
  if((b^2-4*a*c)>0){
    x1<-((-b)+sqrt((b^2)-4*a*c))/(2*a)
    x2<-((-b)-sqrt((b^2)-4*a*c))/(2*a)
    cat("This quadratic has two roots",x1,"and",x2)
  }
  if((b^2-4*a*c)==0){
    x3<-((-b)+sqrt((b^2)-4*a*c))/(2*a)
    cat("This quadratic has one root",x3)
  }
}
quadratic(2,4,2)

## This quadratic has one root -1

quadratic(-3,-5,7)

## This quadratic has two roots -2.573384 and 0.9067178

quadratic(1,0,5)

## [1] "This quadratic has complex roots"