R Assignment1

function for 12 factorial

factorial_12 = function()
{ product =1
  for (i in 1:12)
  {product= product *i}
  return (product)
}

factorial_12()

## [1] 479001600

sequence from 20 to 50 by 5

a= seq(20,50,5)
a

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

quadratic equation

factorial = function (a,b,c)
{
  
  delta = b^2 - 4*a*c
  if (delta < 0)
  {return ('Invaild Input')}
  r1=(-b+sqrt(delta))/(2*a)
  r2=(-b-sqrt(delta))/(2*a)
  return (c(r1,r2))
}
factorial(-1,0,1)

## [1] -1  1