Penggunaan Blok Kode Fungsi

Nama : Ferdian Surya Agung

NIM : 230605110075

Prodi: Teknik Informatika

Fakultas: Fakultas Sains dan Teknologi

Universitas: UIN Maulana Malik Ibrahim Malang

Mata Kuliah: Kalkulus

Dosen Pengampu: Prof. Dr. Suhartono, M.Kom.

1. Fungsi Penjumlahan:

# Fungsi penjumlahan
fungsi_penjumlahan <- function(a, b) {
  hasil <- a + b
  return(hasil)
}

# Memanggil fungsi_penjumlahan
hasil_penjumlahan <- fungsi_penjumlahan(5, 3)
print(hasil_penjumlahan)  

## [1] 8

2. Fungsi Pengurangan dengan Argumen Default:

# Fungsi pengurangan dengan argumen default
fungsi_pengurangan <- function(a, b = 1) {
  hasil <- a - b
  return(hasil)
}

# Memanggil fungsi_pengurangan
hasil_pengurangan <- fungsi_pengurangan(5)
print(hasil_pengurangan)  

## [1] 4

3. Fungsi Kuadrat:

# Fungsi kuadrat
fungsi_kuadrat <- function(x) {
  return(x^2)
}

# Memanggil fungsi_kuadrat
hasil_kuadrat <- fungsi_kuadrat(4)
print(hasil_kuadrat)  

## [1] 16

4. Fungsi Faktorial (Rekursif):

# Fungsi rekursif untuk menghitung faktorial
fungsi_faktorial <- function(n) {
  if (n <= 1) {
    return(1)
  } else {
    return(n * fungsi_faktorial(n - 1))
  }
}

# Memanggil fungsi_faktorial
hasil_faktorial <- fungsi_faktorial(5)
print(hasil_faktorial)  

## [1] 120

5. Fungsi Anonim:

# Fungsi anonim untuk menghitung kuadrat
fungsi_anonim <- function(x) x^2

# Memanggil fungsi_anonim
hasil_anonim <- fungsi_anonim(3)
print(hasil_anonim)  

## [1] 9

Contoh-contoh ini mencakup fungsi sederhana seperti penjumlahan, pengurangan dengan argumen default, kuadrat, faktorial rekursif, dan fungsi anonim.