TM.Komstat_vania

# Membuat function untuk menghitung pendapatan
hitung_pendapatan <- function(A) {
  
  total <- 0
  
  for (i in 1:length(A)) {
    cat("Hari ke-", i, ": Rp", A[i], "ribu\n")
    total <- total + A[i]
  }
  
  rata_rata <- total / length(A)
  
  cat("\nTotal pendapatan =", total, "ribu\n")
  cat("Rata-rata pendapatan =", rata_rata, "ribu\n")
}

# Data pendapatan selama 7 hari
A <- c(120, 150, 100, 175, 200, 125, 180)

# Menjalankan function
hitung_pendapatan(A)

## Hari ke- 1 : Rp 120 ribu
## Hari ke- 2 : Rp 150 ribu
## Hari ke- 3 : Rp 100 ribu
## Hari ke- 4 : Rp 175 ribu
## Hari ke- 5 : Rp 200 ribu
## Hari ke- 6 : Rp 125 ribu
## Hari ke- 7 : Rp 180 ribu
## 
## Total pendapatan = 1050 ribu
## Rata-rata pendapatan = 150 ribu

# Menentukan kategori penggunaan HP

lama_penggunaan <- 7

if (lama_penggunaan > 8) {
  print("Intensitas penggunaan HP: Tinggi")
} else if (lama_penggunaan >= 5) {
  print("Intensitas penggunaan HP: Sedang")
} else {
  print("Intensitas penggunaan HP: Rendah")
}

## [1] "Intensitas penggunaan HP: Sedang"