TM pertemuan 1 Prak.Komstat

#Statement if
kategori_olahraga<-function(durasi){
  if(durasi<30){
    print("Olahraga kurang")
  } else {
    print("Olahraga cukup")
  }
}
kategori_olahraga(27)

## [1] "Olahraga kurang"

kategori_olahraga(45)

## [1] "Olahraga cukup"

#Statement For
olahraga<-function(durasi){
  hari<-c("Senin", "Selasa", "Rabu", "Kamis", "Jumat", "Sabtu", "Minggu")
  total<-0
  
  for(i in 1:length(durasi)){
    print(paste(hari[i], ":", durasi[i],"menit"))
    total<-total+durasi[i]
  }
  print(paste("Total durasi olahraga: ", total, "menit"))
}
durasi<-c(30,45,20,60,40,30,50)
olahraga(durasi)

## [1] "Senin : 30 menit"
## [1] "Selasa : 45 menit"
## [1] "Rabu : 20 menit"
## [1] "Kamis : 60 menit"
## [1] "Jumat : 40 menit"
## [1] "Sabtu : 30 menit"
## [1] "Minggu : 50 menit"
## [1] "Total durasi olahraga:  275 menit"