TM.Komstat_Aliefia Novita Putri

Funtion For

total_baca <- function(halaman) {
  total <- 0
  
  for (i in 1:length(halaman)) {
    total <- total + halaman[i]
  }
  
  cat("Total halaman yang dibaca adalah", total, "halaman\n")
}

halaman <- c(11, 11, 20, 10, 7, 22, 33)

total_baca(halaman)

## Total halaman yang dibaca adalah 114 halaman

Funtion If

kategori_baca <- function(x) {
  cat("Jumlah halaman: ", x, "\n")
  
  if (x < 10) {
    cat("Kategori: Sedikit\n")
  }
  
  if (x >= 10 && x <= 20) {
    cat("Kategori: Sedang\n")
  }
  
  if (x > 20) {
    cat("Kategori: Banyak\n")
  }
}

kategori_baca(22)

## Jumlah halaman:  22 
## Kategori: Banyak

kategori_baca(11)

## Jumlah halaman:  11 
## Kategori: Sedang

kategori_baca(7)

## Jumlah halaman:  7 
## Kategori: Sedikit