proses_antrian <- 5
for (i in 1:10) {
cat("memanggil nomor antrean ke- ", i, "\n")
}
## memanggil nomor antrean ke- 1
## memanggil nomor antrean ke- 2
## memanggil nomor antrean ke- 3
## memanggil nomor antrean ke- 4
## memanggil nomor antrean ke- 5
## memanggil nomor antrean ke- 6
## memanggil nomor antrean ke- 7
## memanggil nomor antrean ke- 8
## memanggil nomor antrean ke- 9
## memanggil nomor antrean ke- 10
cek_dosis <- function(umur) {
if (umur < 12) {
cat("Umur:", umur, "tahun -> Dosis: 5 ml (Anak-anak)\n")
} else {
cat("Umur:", umur, "tahun -> Dosis: 10 ml (Dewasa)\n")
}
}
cek_dosis(8)
## Umur: 8 tahun -> Dosis: 5 ml (Anak-anak)
cek_dosis(20)
## Umur: 20 tahun -> Dosis: 10 ml (Dewasa)