TM.Komstat_Anjani Izza Nurlaila

Function menggunakan statement for

hitung_total_belanja <- function(nama_barang, harga_barang) {
  total <- 0
  cat("Rincian Belanjaan:\n")
  for (i in 1:length(harga_barang)) {
    cat(i, ".", nama_barang[i], ": Rp", harga_barang[i], "\n")
    total <- total + harga_barang[i]
  }
  cat("---------------------------\n")
  cat("Total Belanjaan Anda: Rp", total, "\n")
}
barang <- c("Buku Tulis", "Pensil", "Penggaris")
harga <- c(15000, 25000, 10000)

hitung_total_belanja(barang, harga)

## Rincian Belanjaan:
## 1 . Buku Tulis : Rp 15000 
## 2 . Pensil : Rp 25000 
## 3 . Penggaris : Rp 10000 
## ---------------------------
## Total Belanjaan Anda: Rp 50000

Function menggunakan statement if

cek_suhu <- function(suhu) {
  cat("Suhu Tubuh:", suhu, "°C\n")
  if (suhu >= 37.5) {
    cat("Keterangan: Anda Mengalami Demam\n")
  } else {
    cat("Keterangan: Suhu Tubuh Normal\n")
  }
}

cek_suhu(38.2)

## Suhu Tubuh: 38.2 °C
## Keterangan: Anda Mengalami Demam

cek_suhu(36.6)

## Suhu Tubuh: 36.6 °C
## Keterangan: Suhu Tubuh Normal