Tm1

#for
langkah<-function(x){
  total<-0
  
  for(i in 1:length(x)){
    total<-total+x[i]
  }
  
  cat("Jumlah hari: ",length(x),"\n")
  cat("Total langkah kaki: ",total,"\n")
}

langkah(c(5000,7000,6000))

## Jumlah hari:  3 
## Total langkah kaki:  18000

langkah(c(4000,5500,6500,7000))

## Jumlah hari:  4 
## Total langkah kaki:  23000

#if
usia<-function(x){
  cat("Usia Anda: ",x,"\nAnda termasuk")

  if(x>=0 && x<=12){
    cat(" Anak-anak\n")
  }
  if(x>=13 && x<=17){
    cat(" Remaja\n")
  }
  if(x>=18 && x<=59){
    cat(" Dewasa\n")
  }
  if(x>=60){
    cat(" Lansia\n")
  }
}

usia(20)

## Usia Anda:  20 
## Anda termasuk Dewasa

usia(15)

## Usia Anda:  15 
## Anda termasuk Remaja

usia(65)

## Usia Anda:  65 
## Anda termasuk Lansia