TM.Komstat_Aluna Nailatul Izzah

# Function For
olahraga<-function(x){
  for(i in 1:x){
    cat("Hobi saya adalah bermain Badminton\n")
  }
}

olahraga(5)

## Hobi saya adalah bermain Badminton
## Hobi saya adalah bermain Badminton
## Hobi saya adalah bermain Badminton
## Hobi saya adalah bermain Badminton
## Hobi saya adalah bermain Badminton

# Function If
kategori_olahraga<-function(x){
  cat("Durasi olahraga Anda:",x,"menit\n")
  cat("Kategori olahraga:")
  
  if(x>=0 && x<30){
    cat(" Ringan\n")
  }
  
  if(x>=30 && x<60){
    cat(" Sedang\n")
  }
  
  if(x>=60){
    cat(" Berat\n")
  }
}

kategori_olahraga(45)

## Durasi olahraga Anda: 45 menit
## Kategori olahraga: Sedang