Tm Komstat

hitung_total_kuota <- function(pemakaian_harian) {
  total <- 0
  for (i in 1:length(pemakaian_harian)) {
    total <- total + pemakaian_harian[i]
    cat("Hari", i, ": Pemakaian", pemakaian_harian[i], "MB\n")
  }
  return(total)
}

# Data pemakaian kuota internet harian (Senin-Minggu) dalam MB
kuota <- c(500, 750, 300, 1200, 600, 900, 450)

total_kuota <- hitung_total_kuota(kuota)

## Hari 1 : Pemakaian 500 MB
## Hari 2 : Pemakaian 750 MB
## Hari 3 : Pemakaian 300 MB
## Hari 4 : Pemakaian 1200 MB
## Hari 5 : Pemakaian 600 MB
## Hari 6 : Pemakaian 900 MB
## Hari 7 : Pemakaian 450 MB

cat("Total pemakaian kuota selama seminggu:", total_kuota, "MB\n")

## Total pemakaian kuota selama seminggu: 4700 MB

kategori_tiket <- function(usia) {
  if (usia <= 5) {
    kategori <- "Gratis (Balita)"
  } else if (usia > 5 && usia <= 17) {
    kategori <- "Tiket Anak"
  } else if (usia > 17 && usia <= 59) {
    kategori <- "Tiket Dewasa"
  } else {
    kategori <- "Tiket Lansia (Diskon)"
  }
  cat("Usia:", usia, "tahun -> Kategori:", kategori, "\n")
  return(kategori)
}

kategori_tiket(4)

## Usia: 4 tahun -> Kategori: Gratis (Balita)

## [1] "Gratis (Balita)"

kategori_tiket(12)

## Usia: 12 tahun -> Kategori: Tiket Anak

## [1] "Tiket Anak"

kategori_tiket(30)

## Usia: 30 tahun -> Kategori: Tiket Dewasa

## [1] "Tiket Dewasa"

kategori_tiket(65)

## Usia: 65 tahun -> Kategori: Tiket Lansia (Diskon)

## [1] "Tiket Lansia (Diskon)"