Function Statement For dan If

for (i in 1:17) {cat("Saya suka membaca novel\n")}

## Saya suka membaca novel
## Saya suka membaca novel
## Saya suka membaca novel
## Saya suka membaca novel
## Saya suka membaca novel
## Saya suka membaca novel
## Saya suka membaca novel
## Saya suka membaca novel
## Saya suka membaca novel
## Saya suka membaca novel
## Saya suka membaca novel
## Saya suka membaca novel
## Saya suka membaca novel
## Saya suka membaca novel
## Saya suka membaca novel
## Saya suka membaca novel
## Saya suka membaca novel

suhu_air <- function(x){
  cat("Suhu Terukur: ", x, " C\nStatus: ")
  
  if (x >= 0 && x < 20) {
    cat("Air Dingin\n")
  }
  
  if (x >= 20 && x < 40) {
    cat("Air Normal\n")
  }
  
  if (x >= 40 && x < 60) {
    cat("Air Hangat\n")
  }
  
  if (x >= 60 && x < 80) {
    cat("Air Panas Sedang\n")
  }
  
  if (x >= 80 && x <= 100) {
    cat("Air Mendidih / Sangat Panas\n")
  }
}

suhu_air(90)

## Suhu Terukur:  90  C
## Status: Air Mendidih / Sangat Panas

suhu_air(35)

## Suhu Terukur:  35  C
## Status: Air Normal