tm 1

angka <- function() {
  for (i in 1:10) {
    cat("Angka ke-", i, "\n")
  }
}

angka()

## Angka ke- 1 
## Angka ke- 2 
## Angka ke- 3 
## Angka ke- 4 
## Angka ke- 5 
## Angka ke- 6 
## Angka ke- 7 
## Angka ke- 8 
## Angka ke- 9 
## Angka ke- 10

kelulusan <- function(x) {
  cat("Nilai Anda: ", x, "\n")

  if (x >= 60) {
    cat("Keterangan: Lulus\n")
  }

  if (x < 60) {
    cat("Keterangan: Tidak Lulus\n")
  }
}

kelulusan(75)

## Nilai Anda:  75 
## Keterangan: Lulus

kelulusan(50)

## Nilai Anda:  50 
## Keterangan: Tidak Lulus