G1401231076_Ismi Raiqa Alya Chinta Maharani_Turunan

turunan_x9 <- function(k) {
  n <- 9
  if (k > n) {
    return("K > n, maka hasil turunan = 0")
  } else {
    koef <- factorial(n) / factorial(n - k)
    pangkat_baru <- n - k
    if (pangkat_baru == 0) {
      return(paste("Turunan ke-", k, ": ", koef, sep=""))
    } else {
      return(paste("Turunan ke-", k, ": ", koef, "*x^", pangkat_baru, sep=""))
    }
  }
}

turunan_x9(0)

## [1] "Turunan ke-0: 1*x^9"

turunan_x9(1)

## [1] "Turunan ke-1: 9*x^8"

turunan_x9(3)

## [1] "Turunan ke-3: 504*x^6"

turunan_x9(9)

## [1] "Turunan ke-9: 362880"

turunan_x9(10) # Lebih dari pangkat -> hasil 0

## [1] "K > n, maka hasil turunan = 0"