TUGAS-MASUK-1_KOMPUTASI-STATISTIKA.R

#Nomor 1
hitung_jarak <- function(jarak) {
  total <- 0
  
  for (i in 1:length(jarak)) {
    total <- total + jarak[i]
  }
  
  return(total)
}

# Jarak perjalanan selama 5 hari (km)
jarak <- c(12, 15, 10, 18, 20)

# Menghitung total jarak
total <- hitung_jarak(jarak)

print(paste("Total jarak perjalanan =", total, "km"))

## [1] "Total jarak perjalanan = 75 km"

#Nomor 2
Kategori_tanaman <- function(tinggi) {
  
  if (tinggi >= 150) {
    kategori <- "Tinggi"
  } else if (tinggi >= 100) {
    kategori <- "Sedang"
  } else {
    kategori <- "Pendek"
  }
  
  cat("Data tinggi tanaman:\n")
  cat("  Tinggi tanaman =", tinggi, "cm\n\n")
  
  cat("Kategori tanaman:\n")
  cat("  ", kategori, "\n")
  
}

tinggi <- 125

Kategori_tanaman(tinggi)

## Data tinggi tanaman:
##   Tinggi tanaman = 125 cm
## 
## Kategori tanaman:
##    Sedang