TM_KomStat 1

for (i in 1:10) {
  cat("Buku ke-", i, " sudah dihitung\n")
}

## Buku ke- 1  sudah dihitung
## Buku ke- 2  sudah dihitung
## Buku ke- 3  sudah dihitung
## Buku ke- 4  sudah dihitung
## Buku ke- 5  sudah dihitung
## Buku ke- 6  sudah dihitung
## Buku ke- 7  sudah dihitung
## Buku ke- 8  sudah dihitung
## Buku ke- 9  sudah dihitung
## Buku ke- 10  sudah dihitung

cek <- function(hari){
  cat("Lama peminjaman: ", hari, " hari\n")
  cat("Status: ")
  
  if (hari > 7){
    cat("Terlambat mengembalikan buku\n")
  }
  if (hari <= 7){
    cat("Tidak terlambat\n")
  }
}

cek(10)

## Lama peminjaman:  10  hari
## Status: Terlambat mengembalikan buku

cek(5)

## Lama peminjaman:  5  hari
## Status: Tidak terlambat