TUGAS KOMPUTASI STATISTIKA

pengeluaran_harian <- c(25000, 35000, 20000, 45000, 30000)
for (i in 1:length(pengeluaran_harian)) {
  cat("Hari ke-", i, ": Rp", pengeluaran_harian[i], "\n")
}

## Hari ke- 1 : Rp 25000 
## Hari ke- 2 : Rp 35000 
## Hari ke- 3 : Rp 20000 
## Hari ke- 4 : Rp 45000 
## Hari ke- 5 : Rp 30000

cek_pajak <- function(tahun_pajak) {
  cat("Tahun Masa Berlaku Pajak: ", tahun_pajak, "\n")
  cat("Hasil Pengecekan: ")
  
  if (tahun_pajak < 2026) {
    cat("Pajak KEDALUWARSA! Segera lakukan perpanjangan.\n")
  }
  if (tahun_pajak == 2026) {
    cat("Pajak HABIS TAHUN INI. Harap segera membayar.\n")
  }
  if (tahun_pajak > 2026) {
    cat("Pajak MASIH AKTIF dan aman untuk berkendara.\n")
  }
}

cat("\n")

cek_pajak(2026)

## Tahun Masa Berlaku Pajak:  2026 
## Hasil Pengecekan: Pajak HABIS TAHUN INI. Harap segera membayar.

cat("\n")

cek_pajak(2028)

## Tahun Masa Berlaku Pajak:  2028 
## Hasil Pengecekan: Pajak MASIH AKTIF dan aman untuk berkendara.