TM.Komstat_Alviano Syafira

1. Function Statement For

Kebutuhan Minum Harian

minum_harian <- function(hari) {
  for (i in 1:hari) {
    cat("Hari ke-", i, ": Target minum minimal 2 Liter air\n")
  }
}

minum_harian(5)

## Hari ke- 1 : Target minum minimal 2 Liter air
## Hari ke- 2 : Target minum minimal 2 Liter air
## Hari ke- 3 : Target minum minimal 2 Liter air
## Hari ke- 4 : Target minum minimal 2 Liter air
## Hari ke- 5 : Target minum minimal 2 Liter air

2. Function Statement If

Skrining Kelayakan Donor Darah Berdasarkan BB dan HB

skrining_donor <- function(bb, hb) {
  cat("Berat Badan:", bb, "kg | Kadar Hb:", hb, "g/dL\n")
  cat("Status Donor: ")
  
  if (bb >= 45 && hb >= 12.5 && hb <= 17.0) {
    cat("LOLOS (Syarat Donor Terpenuhi)\n")
  } else {
    cat("TIDAK LOLOS (Syarat Donor Tidak Terpenuhi)\n")
  }
}

skrining_donor(50, 13.5)

## Berat Badan: 50 kg | Kadar Hb: 13.5 g/dL
## Status Donor: LOLOS (Syarat Donor Terpenuhi)

skrining_donor(42, 11.0)

## Berat Badan: 42 kg | Kadar Hb: 11 g/dL
## Status Donor: TIDAK LOLOS (Syarat Donor Tidak Terpenuhi)