jamtidur <- c(7,8,6,4,8,7,9)
cektidur <- function(x){
for (i in 1:7){
cat("Hari ke-",i,": tidur selama ",x[i]," jam\n")
}
}
cektidur(jamtidur)
## Hari ke- 1 : tidur selama 7 jam
## Hari ke- 2 : tidur selama 8 jam
## Hari ke- 3 : tidur selama 6 jam
## Hari ke- 4 : tidur selama 4 jam
## Hari ke- 5 : tidur selama 8 jam
## Hari ke- 6 : tidur selama 7 jam
## Hari ke- 7 : tidur selama 9 jam