TM 1 KOMSTAT

for (i in 1:10) {cat ("Kucing saya sangat lucu\n")}

## Kucing saya sangat lucu
## Kucing saya sangat lucu
## Kucing saya sangat lucu
## Kucing saya sangat lucu
## Kucing saya sangat lucu
## Kucing saya sangat lucu
## Kucing saya sangat lucu
## Kucing saya sangat lucu
## Kucing saya sangat lucu
## Kucing saya sangat lucu

belanja <- function(total) {
  cat("Total belanja: Rp", total, "\n")
  
  if (total >= 100000) 
  {diskon <- 0.20 
  cat("Anda mendapatkan diskon 20%\n")
  }
  
  if (total >= 75000 && total < 100000) {
    diskon <- 0.15
    cat("Anda mendapatkan diskon 15%\n")
  }
  
  if (total >= 50000 && total < 75000) {
    diskon <- 0.10
    cat("Anda mendapatkan diskon 10%\n")
  }
  
  if (total >= 25000 && total < 50000) {
    diskon <- 0.05
    cat("Anda mendapatkan diskon 5%\n")
  }
  
  if (total < 25000) {
    diskon <- 0
    cat("Anda tidak mendapatkan diskon\n")
  }
  
  jumlah_diskon <- total * diskon
  total_bayar <- total - jumlah_diskon
  
  cat("Jumlah diskon: Rp", jumlah_diskon, "\n")
  cat("Total yang harus dibayar: Rp", total_bayar, "\n")
}

belanja(90000)

## Total belanja: Rp 90000 
## Anda mendapatkan diskon 15%
## Jumlah diskon: Rp 13500 
## Total yang harus dibayar: Rp 76500