TM 1 KOMSTAT

total <- function(x){
  jumlah <- 0
  for(i in x){
    jumlah <- jumlah + i
  }
  cat("Total poin pertandingan:", jumlah, "\n")
}

poin <- c(10,15,20,12,18)

total(poin)

## Total poin pertandingan: 75

kecepatan <- function(x){
  cat("Kecepatan jaringan:", x, "Mbps\n")
  
  if(x < 10){
    cat("Kategori Lambat\n")
  }
  
  if(x >= 10 && x <= 100){
    cat("Kategori Sedang\n")
  }
  
  if(x > 100){
    cat("Kategori Cepat\n")
  }
}

kecepatan(75)

## Kecepatan jaringan: 75 Mbps
## Kategori Sedang