tm komstat 1

#Total Pengeluaran Mingguan 
pengeluaran_mingguan <- function(pengeluaran){
  total <- 0
  
  for (i in pengeluaran){
    total <- total + i
  }
  
  cat("Total pengeluaran selama 1 minggu = Rp", total, "\n")
}

pengeluaran <- c(15000, 20000, 10000, 25000, 18000, 12000, 30000)

pengeluaran_mingguan(pengeluaran)

## Total pengeluaran selama 1 minggu = Rp 130000

#Kapasitas Baterai Hp 
kategori_baterai <- function(baterai){
  
  if (baterai <= 20){
    cat("Kapasitas baterai", baterai, "% : Rendah\n")
  } else if (baterai <= 60){
    cat("Kapasitas baterai", baterai, "% : Sedang\n")
  } else {
    cat("Kapasitas baterai", baterai, "% : Tinggi\n")
  }
}

kategori_baterai(45) 

## Kapasitas baterai 45 % : Sedang