TM.Komstat_Bahtiar Hanafi

total_kehadiran <- function(kehadiran){
  total <- 0
  
  for (i in 1:length(kehadiran)){
    total <- total + kehadiran[i]
  }
  
  cat("Total kehadiran selama", length(kehadiran), 
      "pertemuan adalah", total, "kali\n")
}

kehadiran <- c(1, 1, 1, 1, 0, 1, 1, 1, 0, 1)

total_kehadiran(kehadiran)

## Total kehadiran selama 10 pertemuan adalah 8 kali

kategori_nilai <- function(nilai){
  
  cat("Nilai mahasiswa:", nilai, "\n")
  
  if (nilai >= 80 && nilai <= 100){
    cat("Kategori: A\n")
  } else if (nilai >= 70){
    cat("Kategori: B\n")
  } else if (nilai >= 60){
    cat("Kategori: C\n")
  } else if (nilai >= 50){
    cat("Kategori: D\n")
  } else {
    cat("Kategori: E\n")
  }
}

kategori_nilai(85)

## Nilai mahasiswa: 85 
## Kategori: A

kategori_nilai(68)

## Nilai mahasiswa: 68 
## Kategori: C

kategori_nilai(45)

## Nilai mahasiswa: 45 
## Kategori: E