TM1.Komstat_Stella

#Menampilkan pengingat minum air putih sebanyak 16 kali
minum <- function(x){
  for (i in 1:x) { cat("Jangan lupa minum air putih\n")
  }
}

minum(16)

## Jangan lupa minum air putih
## Jangan lupa minum air putih
## Jangan lupa minum air putih
## Jangan lupa minum air putih
## Jangan lupa minum air putih
## Jangan lupa minum air putih
## Jangan lupa minum air putih
## Jangan lupa minum air putih
## Jangan lupa minum air putih
## Jangan lupa minum air putih
## Jangan lupa minum air putih
## Jangan lupa minum air putih
## Jangan lupa minum air putih
## Jangan lupa minum air putih
## Jangan lupa minum air putih
## Jangan lupa minum air putih

#Kategori Kecepatan Internet
internet <- function(x){
  cat("Kecepatan internet: ",x," Mbps\nAnda mendapatkan ")

  if (x>=0 && x<10){
    cat("Kategori Lambat\n")
  }

  if (x>=10 && x<50){
    cat("Kategori Sedang\n")
  }

  if (x>=50 && x<=1000){
    cat("Kategori Cepat\n")
  }
}

internet(25)

## Kecepatan internet:  25  Mbps
## Anda mendapatkan Kategori Sedang

internet(75)

## Kecepatan internet:  75  Mbps
## Anda mendapatkan Kategori Cepat