TM.Komstat.pert1

pengeluaran<-function(x){
  cat("Pengeluaran anda: Rp",x,"\nAnda termasuk kategori")

  if (x>=0 && x<25.000){
    cat("Hemat\n")
  }
  if (x>=25.000 && x<50.000){
    cat("Cukup Hemat\n")
  }
  if (x>=50.000 && x<75.000){
    cat("Sedang\n")
  }
  if (x>=75.000 && x<100.000){
    cat("Boros\n")
  }
  if (x>=100.000){
    cat("Sangat Boros\n")
  }
}

pengeluaran(20.000)

## Pengeluaran anda: Rp 20 
## Anda termasuk kategoriHemat

pengeluaran(60.000)

## Pengeluaran anda: Rp 60 
## Anda termasuk kategoriSedang

pengeluaran(120.000)

## Pengeluaran anda: Rp 120 
## Anda termasuk kategoriSangat Boros

tabungan<-function(){
  total<-0

  for (i in 1:5){
    total<-total+5000
    cat("Hari ke-",i,": Rp",total,"\n")
  }

  cat("Total tabungan selama 5 hari: Rp",total,"\n")
}

tabungan()

## Hari ke- 1 : Rp 5000 
## Hari ke- 2 : Rp 10000 
## Hari ke- 3 : Rp 15000 
## Hari ke- 4 : Rp 20000 
## Hari ke- 5 : Rp 25000 
## Total tabungan selama 5 hari: Rp 25000