TM 1 KOMSTAT

```prediksi_sampah <- function(sampah_awal, laju_pertumbuhan, hari) { cat(“— Prediksi Akumulasi Sampah Makanan (kg) —”) total_sampah <- sampah_awal for (i in 1:hari) { total_sampah <- total_sampah * (1 + laju_pertumbuhan) cat(“Hari ke-”, i, “:”, round(total_sampah, 2), “kg”) } } prediksi_sampah(10, 0.10, 5)

status_ketersediaan_tempat <- function(total_sampah) { cat(“Total Sampah Makanan:”, total_sampah, “kgKapasitas:”) if (total_sampah >= 50) { cat(” Bahaya Overflow (Tempat Sampah Penuh)“) } else { cat(” Aman (Kapasitas Masih Mencukupi)“) } } status_ketersediaan_tempat(65) status_ketersediaan_tempat(30) ```