fungsi mencari turunan ke-k dari fungsi x^9
turunan <- function(k) {
if (k == 0) {
return(expression(x^9)) # Mengembalikan fungsi x^9 jika k = 0
} else {
hitung_turunan <- expression(x^9)
for (i in 1:k) {
hitung_turunan <- D(hitung_turunan, "x")
}
return(hitung_turunan)
}
}
k <- 4
hasil<- turunan(k)
hasil
## 9 * (8 * (7 * (6 * x^5)))