TM 1 PRAK KOMSTAT

#nomor 1
for(i in 1:10) {
  cat("Anita Nurmassanda Prodi Statistika 25\n")
}

## Anita Nurmassanda Prodi Statistika 25
## Anita Nurmassanda Prodi Statistika 25
## Anita Nurmassanda Prodi Statistika 25
## Anita Nurmassanda Prodi Statistika 25
## Anita Nurmassanda Prodi Statistika 25
## Anita Nurmassanda Prodi Statistika 25
## Anita Nurmassanda Prodi Statistika 25
## Anita Nurmassanda Prodi Statistika 25
## Anita Nurmassanda Prodi Statistika 25
## Anita Nurmassanda Prodi Statistika 25

#nomor 2
kategori_tidur <- function(jam) {
  if (jam < 6) {
    return("Kurang")
  } else if (jam <= 8) {
    return("Cukup")
  } else {
    return("Berlebih")
  }
}
kategori_tidur(7)

## [1] "Cukup"

kategori_tidur(2)

## [1] "Kurang"

kategori_tidur(10)

## [1] "Berlebih"