TM.Komstat_Gladys-Amelia.R

#for
konversi<- function(harga_usd) {
  for (usd in harga_usd) {
    idr <- usd * 17812
    cat("$", usd, " = Rp", idr, "\n")
  }
}
harga <- c(2, 5, 10)
konversi(harga)

## $ 2  = Rp 35624 
## $ 5  = Rp 89060 
## $ 10  = Rp 178120

#if
cek_kategori<- function(usd) {
  idr <- usd * 17812
  
  if (idr >= 100000) {
    cat("Nominal Rp", idr, "-> Transaksi Kategori Besar\n")
  } else {
    cat("Nominal Rp", idr, "-> Transaksi Kategori Reguler\n")
  }
}

cek_kategori(10)

## Nominal Rp 178120 -> Transaksi Kategori Besar

cek_kategori(2)

## Nominal Rp 35624 -> Transaksi Kategori Reguler