TM.Komstat1 (for dan if)

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

## Saya suka menonton drakor
## Saya suka menonton drakor
## Saya suka menonton drakor
## Saya suka menonton drakor
## Saya suka menonton drakor
## Saya suka menonton drakor
## Saya suka menonton drakor
## Saya suka menonton drakor
## Saya suka menonton drakor
## Saya suka menonton drakor
## Saya suka menonton drakor
## Saya suka menonton drakor
## Saya suka menonton drakor
## Saya suka menonton drakor
## Saya suka menonton drakor
## Saya suka menonton drakor
## Saya suka menonton drakor

cuaca <- function (x) {
  cat("Suhu saat ini:", x, "°C\n")
  
  if (x >= 30) {
    cat("Cuaca sedang panas\n")
  }
  
  if (x < 30) {
    cat("Cuaca sedang tidak panas\n")
  }
}
cuaca(32)

## Suhu saat ini: 32 °C
## Cuaca sedang panas

cuaca(29)

## Suhu saat ini: 29 °C
## Cuaca sedang tidak panas

cuaca(30)

## Suhu saat ini: 30 °C
## Cuaca sedang panas