TM 1 Praktikum Komputasi Statistika

#Nomor 1
tugas <- c(3, 5, 2, 4, 6)

for(i in 1:5) { 
  cat("Minggu", i, "jumlah tugas =", tugas[i], "\n")
  
}

## Minggu 1 jumlah tugas = 3 
## Minggu 2 jumlah tugas = 5 
## Minggu 3 jumlah tugas = 2 
## Minggu 4 jumlah tugas = 4 
## Minggu 5 jumlah tugas = 6

#Nomor 2
baterai<-function(x){
  cat("Persentase baterai: ",x,"%\nStatus baterai: ")
  
  if (x>=0 && x<20){
    cat("Sangat Lemah\n")
  }
  if (x>=20 && x<40){
    cat("Lemah\n")
  }
  if (x>=40 && x<60){
    cat("Sedang\n")
  }
  if (x>=60 && x<80){
    cat("Cukup\n")
  }
  if (x>=80 && x<=100){
    cat("Aman\n")
  }
}

baterai(15)

## Persentase baterai:  15 %
## Status baterai: Sangat Lemah

baterai(75)

## Persentase baterai:  75 %
## Status baterai: Cukup