TM KOMSTAT 1

#Statmen For

panggil_antrean <- function(x) {
  cat("Daftar Panggilan:\n")
  for (i in 1:x) {
    cat("Nomor antrean A -",i, "dipanggil\n")
  }
}

panggil_antrean(3)

## Daftar Panggilan:
## Nomor antrean A - 1 dipanggil
## Nomor antrean A - 2 dipanggil
## Nomor antrean A - 3 dipanggil

#Statment If


cek_suhu <- function(x) {
  cat("Suhu Ruangan: ", x, "°C\nStatus: ")
  if (x<18) { cat("Dingin\n") }
  if (x>=18 && x<26) { cat("Sejuk / Normal\n") }
  if (x>=26 && x<32) { cat("Hangat\n") }
  if (x>=32) { cat("Panas\n") }
}

cek_suhu(22)

## Suhu Ruangan:  22 °C
## Status: Sejuk / Normal

cek_suhu(34)

## Suhu Ruangan:  34 °C
## Status: Panas