TM.Komstat_Mufdhilatul-Istiana-Maulidah.R

pengingat_minum <- function(){
  for(i in 1:8){
    cat("Jangan lupa minum air putih\n")
  }
}

pengingat_minum()

## 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_aktivitas <- function(langkah){
  if(langkah >= 8000){
    print("Aktif")
  } else {
    print("Kurang Aktif")
  }
}

kategori_aktivitas(9000)

## [1] "Aktif"