#Assignment 1 #Function for Factorial factorial<-function(num) { x = 1 for(i in 1:num) { x=x*i } print(x) }

#Test1 factorial(3) factorial(4)

#Assignment 2 x1<-c(20) x2<-20 for(i in 1:6) { x2<-x2+5 x1<-append(x1, x2)

} print(x1)

#Assignment 3 quad.solution<-function() { a<-readline(prompt=“Enter coefficient a:”) b<-readline(prompt=“Enter coefficient b:”) c<-readline(prompt=“Enter coefficient c:”) a<-as.integer(a) b<-as.integer(b) c<-as.integer(c)

x1<-((-b+sqrt(b^2-4ac))/(2a)) x2<-((-b-sqrt(b^2-4ac))/(2a))

print(paste(“Solution to Quadratic Equation:”,x1,x2)) }

quad.solution()