Tugas Masuk 1

cek_predikat_ipk <- function(ipk) {
  if (ipk >= 3.51) {
    predikat <- "Dengan Pujian (Cumlaude)"
  } else if (ipk >= 3.00) {
    predikat <- "Sangat Memuaskan"
  } else if (ipk >= 2.75) {
    predikat <- "Memuaskan"
  } else {
    predikat <- "Cukup"
  }
  return(predikat)
}
cek_predikat_ipk(3.65)

## [1] "Dengan Pujian (Cumlaude)"

sapa_peserta <- function(daftar_nama) {
  for (nama in daftar_nama) {
    cat("Selamat datang di seminar,", nama, "\n")
  }
}
peserta <- c("Andi", "Budi", "Citra", "Dewi")
sapa_peserta(peserta)

## Selamat datang di seminar, Andi 
## Selamat datang di seminar, Budi 
## Selamat datang di seminar, Citra 
## Selamat datang di seminar, Dewi