TM.Komstat_ceisya artika firdasari devi

for (i in 1:5) {
   cat("Aku suka Cinnamoroll\n")}

## Aku suka Cinnamoroll
## Aku suka Cinnamoroll
## Aku suka Cinnamoroll
## Aku suka Cinnamoroll
## Aku suka Cinnamoroll

cek_belanja <- function(x){
  cat("Total Belanja: Rp", x, "\nKategori: ")
  if (x >= 0 && x < 200000){
    cat("Pembelian Standar Cinnamoroll\n")
  }
  if (x >= 200000 && x < 400000){
    cat("Pembelian Collector Cinnamoroll\n")
  }
  if (x >= 400000){
    cat("Pembelian Super Fan Cinnamoroll\n")
  }
}

cek_belanja(150000)

## Total Belanja: Rp 150000 
## Kategori: Pembelian Standar Cinnamoroll

cek_belanja(450000)

## Total Belanja: Rp 450000 
## Kategori: Pembelian Super Fan Cinnamoroll