TM-KOMSTAT-1.R

#soal 1
chatmasuk <- function(chat){
  total <- 0
  cat("rekap chat masuk selama 6 hari:\n")
  for (i in 1:length(chat)) {
    cat("hari ke-", i, ":", chat[i], "chat\n")
    total <- total + chat[i]
  }
  cat("total keseluruhan chat:", total, "\n")
}

chat <- c(45, 62, 30, 88, 20, 55)
chatmasuk(chat)

## rekap chat masuk selama 6 hari:
## hari ke- 1 : 45 chat
## hari ke- 2 : 62 chat
## hari ke- 3 : 30 chat
## hari ke- 4 : 88 chat
## hari ke- 5 : 20 chat
## hari ke- 6 : 55 chat
## total keseluruhan chat: 300

#soal 2
kecepataninternet <- function(mbps){
  cat("kecepatan internet:", mbps, "mbps\n")
  if (mbps < 10){
    cat("kategori: lambat\n")
  }
  if (mbps >= 10 && mbps < 50){
    cat("kategori: sedang\n")
  }
  if (mbps >= 50 && mbps < 100){
    cat("kategori: cepat\n")
  }
  if (mbps >= 100){
    cat("kategori: sangat cepat\n")
  }
}

kecepataninternet(15)

## kecepatan internet: 15 mbps
## kategori: sedang

kecepataninternet(120)

## kecepatan internet: 120 mbps
## kategori: sangat cepat