TM.Komstat_Mellyana Dyah Febrianti

#FOR
peserta <- c("Melly","Kalil","Kiran","Aluna")
lomba <- c("SCC","Poster","Badminton","Fotografi")

daftarlomba <- function(x,y){
  for (i in 1:4){
    cat("Peserta: ",x[i]," | Lomba: ",y[i],"\n")
  }
}
daftarlomba(peserta,lomba)

## Peserta:  Melly  | Lomba:  SCC 
## Peserta:  Kalil  | Lomba:  Poster 
## Peserta:  Kiran  | Lomba:  Badminton 
## Peserta:  Aluna  | Lomba:  Fotografi

#IF
peserta <- c("Melly","Kalil","Kiran","Aluna")
pendaftaran <- function(x){
  cat("Nama peserta: ",x,"\n")
  if (x %in% peserta){
    cat("Status: Terdaftar\n")
  }
  else {
    cat("Status: Tidak Terdaftar\n")
  }
}
pendaftaran("Melly")

## Nama peserta:  Melly 
## Status: Terdaftar

pendaftaran("Annisa")

## Nama peserta:  Annisa 
## Status: Tidak Terdaftar