tm1

Pengecekan Kategori Judul Buku Kesukaan

cek_buku <- function(x) {
  cat("Judul Buku: ", x, "\nStatus: ")
  
  if (x == "Kalkulus") {
    cat("Ini buku kesukaan aku\n")
  } else {
    cat("Bukan buku kesukaan aku\n")
  }
}

cek_buku("Kalkulus")

## Judul Buku:  Kalkulus 
## Status: Ini buku kesukaan aku

cek_buku("Biologi")

## Judul Buku:  Biologi 
## Status: Bukan buku kesukaan aku

Merekap Koleksi Buku Kesukaan

tampil_buku <- function(jumlah) {
  total_buku <- 0
  
  for (i in 1:jumlah) {
    cat("Buku kesukaan aku buku kalkulus\n")
    total_buku <- total_buku + 1
  }
  
  cat("Total buku yang ditampilkan:", total_buku, "\n")
}

tampil_buku(10)

## Buku kesukaan aku buku kalkulus
## Buku kesukaan aku buku kalkulus
## Buku kesukaan aku buku kalkulus
## Buku kesukaan aku buku kalkulus
## Buku kesukaan aku buku kalkulus
## Buku kesukaan aku buku kalkulus
## Buku kesukaan aku buku kalkulus
## Buku kesukaan aku buku kalkulus
## Buku kesukaan aku buku kalkulus
## Buku kesukaan aku buku kalkulus
## Total buku yang ditampilkan: 10