TM.Komstat_AriiqahKirana.R

#FOR
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

#IF
durasitidur <- function(x){
  cat("Durasi tidur: ",x," jam\n")
  if (x<6){
    cat("Kategori: Kurang\n")
  }
  if (x>=6 && x<8){
    cat("Kategori: Cukup\n")
  }
  if (x>=8){
    cat("Kategori: Baik\n")
  }
}
durasitidur(5)

## Durasi tidur:  5  jam
## Kategori: Kurang

durasitidur(7)

## Durasi tidur:  7  jam
## Kategori: Cukup

durasitidur(8)

## Durasi tidur:  8  jam
## Kategori: Baik