Tugas Pemrograman Sains Data

1. Operasi dan Tipe Data Dasar

# a. Menerima dua bilangan dari pengguna
bil1 <- as.numeric(readline(prompt = "Masukkan bilangan pertama: "))

## Masukkan bilangan pertama:

bil2 <- as.numeric(readline(prompt = "Masukkan bilangan kedua: "))

## Masukkan bilangan kedua:

# b. Menghitung hasil operasi
penjumlahan <- bil1 + bil2
perkalian <- bil1 * bil2
pembagian <- bil1 / bil2
pangkat <- bil1 ^ bil2

# c. Menampilkan hasil dan tipe data
cat("\\n=== Hasil Operasi ===\\n")

## \n=== Hasil Operasi ===\n

cat("Penjumlahan:", penjumlahan, "\\n")

## Penjumlahan: NA \n

cat("Perkalian:", perkalian, "\\n")

## Perkalian: NA \n

cat("Pembagian:", pembagian, "\\n")

## Pembagian: NA \n

cat("Pangkat:", pangkat, "\\n")

## Pangkat: NA \n

cat("\\n=== Tipe Data Hasil Operasi ===\\n")

## \n=== Tipe Data Hasil Operasi ===\n

cat("Tipe data penjumlahan:", typeof(penjumlahan), "\\n")

## Tipe data penjumlahan: double \n

cat("Tipe data perkalian:", typeof(perkalian), "\\n")

## Tipe data perkalian: double \n

cat("Tipe data pembagian:", typeof(pembagian), "\\n")

## Tipe data pembagian: double \n

cat("Tipe data pangkat:", typeof(pangkat), "\\n")

## Tipe data pangkat: double \n

# a. Menerima input nilai ujian dari pengguna
nilai_input <- readline(prompt = "Masukkan nilai ujian (0–100): ")

## Masukkan nilai ujian (0–100):

nilai <- as.numeric(nilai_input)

# Memeriksa apakah input adalah angka yang valid
if (is.na(nilai)) {
  cat("Input tidak valid. Harap masukkan angka yang benar.\\n")
} else {
  # b. Menampilkan keterangan berdasarkan ketentuan
  if (nilai >= 85) {
    cat("Sangat Baik\\n")
  } else if (nilai >= 70 && nilai <= 84) {
    cat("Baik\\n")
  } else if (nilai >= 60 && nilai <= 69) {
    cat("Cukup\\n")
  } else {
    cat("Perlu Perbaikan\\n")
  }
}

## Input tidak valid. Harap masukkan angka yang benar.\n

# a. Membuat fungsi kelipatan_genap(n)
kelipatan_genap <- function(n) {
  cat("Bilangan genap kelipatan 4 dari 1 hingga", n, "adalah:\\n")
  for (i in 1:n) {
    if (i %% 4 == 0) {
      cat(i, "\\n")
    }
  }
}

# b. Contoh pemanggilan fungsi
kelipatan_genap(20)

## Bilangan genap kelipatan 4 dari 1 hingga 20 adalah:\n4 \n8 \n12 \n16 \n20 \n