TM komstat

total_screen_time <- function(jam_per_hari) {
  total <- 0
  for (i in 1:length(jam_per_hari)) {
    total <- total + jam_per_hari[i]
    cat("Hari ke-", i, ": ", jam_per_hari[i], " jam\n", sep = "")
  }
  return(total)
}

waktu <- c(4.5, 5, 3, 6, 4, 7, 2.5)
hasil <- total_screen_time(waktu)

## Hari ke-1: 4.5 jam
## Hari ke-2: 5 jam
## Hari ke-3: 3 jam
## Hari ke-4: 6 jam
## Hari ke-5: 4 jam
## Hari ke-6: 7 jam
## Hari ke-7: 2.5 jam

cat("Total screen time seminggu:", hasil, "jam\n")

## Total screen time seminggu: 32 jam

kategori_sinyal_wifi <- function(rssi) {
  kategori <- ""
  
  if (rssi >= -50) {
    kategori <- "Sangat Kuat"
  }
  if (rssi < -50 && rssi >= -60) {
    kategori <- "Kuat"
  }
  if (rssi < -60 && rssi >= -70) {
    kategori <- "Sedang"
  }
  if (rssi < -70) {
    kategori <- "Lemah"
  }
  
  return(kategori)
}

sinyal <- -65
kategori <- kategori_sinyal_wifi(sinyal)
cat("Sinyal", sinyal, "dBm termasuk kategori:", kategori, "\n")

## Sinyal -65 dBm termasuk kategori: Sedang