TM.Komstat_Rani Irmaya Rahmawati

# Soal 1
target_tidur <- function(x) {
  total <- 0
  
  for (i in 1:x) {
    total <- total + 8
    cat("Hari ke-", i, ": 8 jam tidur\n")
  }
  
  cat("Total target tidur:", total, "jam\n")
}

target_tidur(7)

## Hari ke- 1 : 8 jam tidur
## Hari ke- 2 : 8 jam tidur
## Hari ke- 3 : 8 jam tidur
## Hari ke- 4 : 8 jam tidur
## Hari ke- 5 : 8 jam tidur
## Hari ke- 6 : 8 jam tidur
## Hari ke- 7 : 8 jam tidur
## Total target tidur: 56 jam

# Soal 2
rating_film <- function(judul, x) {
  
  if (x >= 0 && x < 1) {
    bintang <- "⯪☆☆☆☆"
  }
  
  if (x >= 1 && x < 2) {
    bintang <- "★⯪☆☆☆"
  }
  
  if (x >= 2 && x < 3) {
    bintang <- "★★⯪☆☆"
  }
  
  if (x >= 3 && x < 4) {
    bintang <- "★★★⯪☆"
  }
  
  if (x >= 4 && x < 5) {
    bintang <- "★★★★⯪"
  }
  
  if (x == 5) {
    bintang <- "★★★★★"
  }
  
  cat("Judul film:", judul, "\n")
  cat("Rate:", x, "/5\n")
  cat("Bintang:", bintang, "\n")
}

rating_film("Undertone", 3)

## Judul film: Undertone 
## Rate: 3 /5
## Bintang: ★★★⯪☆

rating_film("Divergent", 5)

## Judul film: Divergent 
## Rate: 5 /5
## Bintang: ★★★★★

rating_film("The Others", 4.5)

## Judul film: The Others 
## Rate: 4.5 /5
## Bintang: ★★★★⯪