TM.Komstat

durasi_perjalanan <- function(durasi){
  total <- 0
  
  for (i in 1:7){
    cat("Hari ke-", i, ": ", durasi[i], " menit\n", sep = "")
    total <- total + durasi[i]
  }
  
  cat("Total durasi perjalanan: ", total, " menit\n", sep = "")
}

durasi <- c(30, 45, 35, 40, 50, 30, 45)

durasi_perjalanan(durasi)

## Hari ke-1: 30 menit
## Hari ke-2: 45 menit
## Hari ke-3: 35 menit
## Hari ke-4: 40 menit
## Hari ke-5: 50 menit
## Hari ke-6: 30 menit
## Hari ke-7: 45 menit
## Total durasi perjalanan: 275 menit

ketepatan_waktu <- function(keterlambatan){
  
  if (keterlambatan == 0){
    cat("Kategori: Tepat waktu\n")
    
  } else if (keterlambatan >= 1 && keterlambatan <= 10){
    cat("Kategori: Terlambat ringan\n")
    
  } else {
    cat("Kategori: Terlambat\n")
  }
}

ketepatan_waktu(5)

## Kategori: Terlambat ringan