CUNY.MSDS.asssignment#1

Assignment #1 Answers

#Q.1

ft = 1

for (i in 1:12) {
  ft = ft * i
}

print(ft)

## [1] 479001600

#Q.2
a <- c(seq(20,50,5))
a

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

#Q.3
factorial <- function(a,b,c){
  if(b^2-4*a*c > 0){          # >0
    x_1 = (-b+sqrt(b^2-4*a*c)/(2*a))
    x_2 = (-b-sqrt(b^2-4*a*c)/(2*a))
    print(c(x_1,x_2))
  } else if(b^2-4*a*c == 0){  # =0
    print(-b/(2*a))
  } else
    print("No real roots")  # <0
}

factorial(1,21,5)

## [1] -10.74086 -31.25914