TM.Komstat_Antonius Fernando Sihombing

#nomor 1
cetak_pesanan_kopi <- function(jumlah) {
  for (i in 1:jumlah) {
    print(paste("Pesanan Kopi ke-", i, "siap disajikan!"))
  }
  
  print("--- Semua pesanan selesai dibuat ---")
}

# Memanggil fungsi
cetak_pesanan_kopi(3)

## [1] "Pesanan Kopi ke- 1 siap disajikan!"
## [1] "Pesanan Kopi ke- 2 siap disajikan!"
## [1] "Pesanan Kopi ke- 3 siap disajikan!"
## [1] "--- Semua pesanan selesai dibuat ---"

#nomor 2
cek_diskon <- function(total_belanja) {
  if (total_belanja >= 100000) {
    print("Selamat! Kamu mendapatkan Diskon 30%")
  } else if (total_belanja >= 50000) {
    print("Selamat! Kamu mendapatkan Diskon 15%")
  } else if (total_belanja >= 25000) {
    print("Selamat! Kamu mendapatkan Diskon 5%")
  } else {
    print("Maaf, kamu tidak mendapatkan diskon")
  }
}

# Memanggil fungsi
cek_diskon(75000)

## [1] "Selamat! Kamu mendapatkan Diskon 15%"