TM KOMSTAT

# Function perulangan menggunakan statement For
motivasi_for <- function(n) {
  for (i in 1:n) {
    cat("Saya rajin latihan komstat\n")
  }
}

# Memanggil function untuk menampilkan kalimat sebanyak 5 kali
motivasi_for(5)

## Saya rajin latihan komstat
## Saya rajin latihan komstat
## Saya rajin latihan komstat
## Saya rajin latihan komstat
## Saya rajin latihan komstat

# Function percabangan menggunakan statement If
cek_kecepatan <- function(kmph) {
  cat("Kecepatan kendaraan: ", kmph, "km/jam\n")
  if (kmph < 40) {
    cat("Kategori: Pelan\n")
  } else if (kmph <= 80) {
    cat("Kategori: Normal\n")
  } else {
    cat("Kategori: Ngebut\n")
  }
}

# Memanggil function untuk pengujian kecepatan 90 km/jam
cek_kecepatan(90)

## Kecepatan kendaraan:  90 km/jam
## Kategori: Ngebut