TM PRAK KOMSTAT-1

# Function dengan Statement For
hitung_jam <- function(hari) {
  total <- 0
  for (i in 1:hari) {
    total <- total + 2
    cat("Hari ke-", i, ": Total jam belajar Shabrina =", total, "jam\n")
  }
}

hitung_jam(5)

## Hari ke- 1 : Total jam belajar Shabrina = 2 jam
## Hari ke- 2 : Total jam belajar Shabrina = 4 jam
## Hari ke- 3 : Total jam belajar Shabrina = 6 jam
## Hari ke- 4 : Total jam belajar Shabrina = 8 jam
## Hari ke- 5 : Total jam belajar Shabrina = 10 jam

# Function dengan Statement If
kategori_presensi <- function(x) {
  cat("Persentase Kehadiran Shabrina: ", x, "%\nKategori: ", sep = "")
  if (x >= 0 && x < 75) {
    cat("Tidak Memenuhi Syarat\n\n")
  }
  if (x >= 75 && x < 90) {
    cat("Cukup Baik\n\n")
  }
  if (x >= 90 && x <= 100) {
    cat("Sangat Baik\n\n")
  }
}

kategori_presensi(95)

## Persentase Kehadiran Shabrina: 95%
## Kategori: Sangat Baik

kategori_presensi(70)

## Persentase Kehadiran Shabrina: 70%
## Kategori: Tidak Memenuhi Syarat