TM komstat 1

total_sampah <- function(data_sampah) {
  total <- 0

  for (i in data_sampah) {
    total <- total + i
  }

  return(total)
}

data_sampah <- c(3, 5, 2, 4, 6)

hasil <- total_sampah(data_sampah)

cat("Total sampah yang dikumpulkan:", hasil, "kg")

## Total sampah yang dikumpulkan: 20 kg

status_air <- function(sisa_air) {

  if (sisa_air < 5) {
    status <- "Segera Isi Ulang"
  } else if (sisa_air <= 10) {
    status <- "Perlu Dipantau"
  } else {
    status <- "Persediaan Aman"
  }

  return(status)
}
hasil1 <- status_air(3)
hasil2 <- status_air(8)
hasil3 <- status_air(15)

cat("Sisa air 3 liter:", hasil1, "\n")

## Sisa air 3 liter: Segera Isi Ulang

cat("Sisa air 8 liter:", hasil2, "\n")

## Sisa air 8 liter: Perlu Dipantau

cat("Sisa air 15 liter:", hasil3, "\n")

## Sisa air 15 liter: Persediaan Aman