TM.Komstat_Ardina Rizky Amalia

#SOAL 1

Seorang mahasiswa ingin merekap jam belajarnya selama 7 hari dan menghitung total serta rata-ratanya.

rekap_belajar <- function(hari, jam) {
  cat("=== REKAP JAM BELAJAR ===\n")
  total <- 0
  for (i in 1:length(hari)) {
    cat(hari[i], ":", jam[i], "jam\n")
    total <- total + jam[i]
  }
  cat("Total jam belajar:", total, "jam\n")
  cat("Rata-rata per hari:", total/length(hari), "jam\n")
}

hari <- c("Senin", "Selasa", "Rabu", "Kamis", "Jumat", "Sabtu", "Minggu")
jam  <- c(2, 3, 1, 4, 2, 5, 3)

rekap_belajar(hari, jam)

## === REKAP JAM BELAJAR ===
## Senin : 2 jam
## Selasa : 3 jam
## Rabu : 1 jam
## Kamis : 4 jam
## Jumat : 2 jam
## Sabtu : 5 jam
## Minggu : 3 jam
## Total jam belajar: 20 jam
## Rata-rata per hari: 2.857143 jam

#SOAL 2

Mahasiswa ingin tahu kategori intensitas belajar berdasarkan jam belajar per hari

kategori_belajar <- function(x) {
  cat("Jam Belajar: ", x, "jam\nAnda Termasuk ")
  if (x >= 0 && x < 1) {
    cat("Tidak Belajar\n")
  }
  if (x >= 1 && x < 3) {
    cat("Belajar Ringan\n")
  }
  if (x >= 3 && x < 5) {
    cat("Belajar Sedang\n")
  }
  if (x >= 5 && x <= 8) {
    cat("Belajar Intens\n")
  }
}

kategori_belajar(0)

## Jam Belajar:  0 jam
## Anda Termasuk Tidak Belajar

kategori_belajar(2)

## Jam Belajar:  2 jam
## Anda Termasuk Belajar Ringan

kategori_belajar(4)

## Jam Belajar:  4 jam
## Anda Termasuk Belajar Sedang

kategori_belajar(6)

## Jam Belajar:  6 jam
## Anda Termasuk Belajar Intens