TM.Komstat_Zidan Surya Pradana

for (i in 1:10) {
  cat("Saya suka bermain game PUBG\n")
}

## Saya suka bermain game PUBG
## Saya suka bermain game PUBG
## Saya suka bermain game PUBG
## Saya suka bermain game PUBG
## Saya suka bermain game PUBG
## Saya suka bermain game PUBG
## Saya suka bermain game PUBG
## Saya suka bermain game PUBG
## Saya suka bermain game PUBG
## Saya suka bermain game PUBG

rank_pubg <- function(x) {
  cat("Poin Anda:", x, "\n")
  
  if (x >= 3200 && x < 3700) {
    cat("Rank Anda Adalah Diamond\n")
  }
  
  if (x >= 3700 && x < 4200) {
    cat("Rank Anda Adalah Crown\n")
  }
  
  if (x >= 4200 && x < 4700) {
    cat("Rank Anda Adalah Ace\n")
  }
  
  if (x >= 4700 && x <= 5200) {
    cat("Rank Anda Adalah Ace Master\n")
  }
}

rank_pubg(3500)

## Poin Anda: 3500 
## Rank Anda Adalah Diamond

rank_pubg(3999)

## Poin Anda: 3999 
## Rank Anda Adalah Crown

rank_pubg(4450)

## Poin Anda: 4450 
## Rank Anda Adalah Ace

rank_pubg(5100)

## Poin Anda: 5100 
## Rank Anda Adalah Ace Master