TMKomstat_1

#Statement For
total_pengunjung <- function(data)
{
  total <- 0
  for(i in 1:length(data))
  {
    total <- total + data[i]
  }
  cat("Total pengunjung:", total)
}
pengunjung <- c(30, 16, 20, 42, 32)
total_pengunjung(pengunjung)

## Total pengunjung: 140

#Statement If
status_hadir <- function(x)
{
  if(x >= 80)
  {
    cat("Kehadiran memenuhi syarat")
  }
  else
  {
    cat("Kehadiran belum memenuhi syarat")
  }
}
status_hadir(70)

## Kehadiran belum memenuhi syarat