TM 1 KOMSTAT

IMT <- function(x){
  cat("Nilai IMT anda adalah: ",x, "\nAnda termasuk dalam kelompok: ")
  if (x<18.5){
    cat("Berat Badan Kurang (Underweight)")
  }
  if (x>=18.5 && x<=24.9){
    cat("Berat Badan Ideal (Normal)")
  }
  if (x>=25 && x<=29.9){
    cat("Berat Badan Berlebih/Pre-Obesitas (Overweight)")
  }
  if (x>=30 && x<=34.9){
    cat("Obesitas Tingkat I")
  }
  if (x>=35 && x<=39.9){
    cat("Obesitas Tingkat II")
  }
  if (x>=40){
    cat("Obesitas Tingkat III")
  }
}
IMT(20)

## Nilai IMT anda adalah:  20 
## Anda termasuk dalam kelompok: Berat Badan Ideal (Normal)

IMT(66)

## Nilai IMT anda adalah:  66 
## Anda termasuk dalam kelompok: Obesitas Tingkat III

total_jajan <- function(pengeluaran){
  total <- 0
  
  for (i in pengeluaran) {
    total <- total + i
  }
  return(total)
}

jajan <- c(10000,15000,25000,15000,60000)
total_jajan(jajan )

## [1] 125000