tm-komstat-1.R

#nomor 1
hitung_jarak_lari <- function(vektor_jarak) {
  total_jarak <- 0
  
  cat("--- MENGHITUNG TOTAL DISTANCE RUNNING ---\n")
  
  for (i in 1:length(vektor_jarak)) {
    total_jarak <- total_jarak + vektor_jarak[i]
    cat("Hari ke-", i, ": Today Distance =", vektor_jarak[i], "km | Total distance =", total_jarak, "km\n")
  }
  
  cat("----------------------------------\n")
  cat("Total jarak lari selama", i, "hari adalah : ", total_jarak, "km\n")
}
jadwal_lari <- c(3, 5, 4, 6, 7)
hitung_jarak_lari(jadwal_lari)

## --- MENGHITUNG TOTAL DISTANCE RUNNING ---
## Hari ke- 1 : Today Distance = 3 km | Total distance = 3 km
## Hari ke- 2 : Today Distance = 5 km | Total distance = 8 km
## Hari ke- 3 : Today Distance = 4 km | Total distance = 12 km
## Hari ke- 4 : Today Distance = 6 km | Total distance = 18 km
## Hari ke- 5 : Today Distance = 7 km | Total distance = 25 km
## ----------------------------------
## Total jarak lari selama 5 hari adalah :  25 km

#nomor 2
harga_cukur <- function(nama_pelanggan, usia) {
  cat("--- BIAYA PANGKAS RAMBUT WAHAU BARBERSHOP ---\n")
  cat("Nama pelanggan :", nama_pelanggan, "\n")
  cat("Usia          :", usia, "tahun\n")
  cat("----------------------------------\n")
  
  if (usia < 17) {
    cat("Kategori      : Anak-anak\n")
    cat("Biaya Pangkas Rambut   : Rp 30.000\n")
  } else if (usia >= 17 && usia <= 59) {
    cat("Kategori      : Dewasa\n")
    cat("Biaya Pangkas Rambut   : Rp 50.000\n")
  }
}
harga_cukur("Bahtiar", 16)  

## --- BIAYA PANGKAS RAMBUT WAHAU BARBERSHOP ---
## Nama pelanggan : Bahtiar 
## Usia          : 16 tahun
## ----------------------------------
## Kategori      : Anak-anak
## Biaya Pangkas Rambut   : Rp 30.000

harga_cukur("Ibnu", 25)  

## --- BIAYA PANGKAS RAMBUT WAHAU BARBERSHOP ---
## Nama pelanggan : Ibnu 
## Usia          : 25 tahun
## ----------------------------------
## Kategori      : Dewasa
## Biaya Pangkas Rambut   : Rp 50.000