Modul Praktikum: Program Penentuan Kategori Indeks Massa Tubuh (BMI)

Menggunakan R

Universitas Sebelas Maret
Fakultas Matematika dan Ilmu Pengetahuan Alam

A. Tujuan Praktikum

Setelah melakukan praktikum ini, mahasiswa diharapkan mampu:

1. Menggunakan variabel pada bahasa pemrograman R.
2. Melakukan operasi aritmatika menggunakan R.
3. Menggunakan input dan output pada R.
4. Menggunakan percabangan if, else if, dan else.
5. Membuat program sederhana untuk menentukan kategori BMI.

B. Dasar Teori

a. Body Mass Index (BMI)

BMI merupakan nilai yang digunakan untuk melihat kategori berat badan seseorang berdasarkan berat badan dan tinggi badan.

Rumus BMI:

\[ BMI = \frac{\text{berat badan (kg)}}{\text{tinggi badan (m)}^2} \]

Kategori yang digunakan dalam program:

Nilai BMI	Kategori
Kurang dari 18,5	Berat badan kurang
18,5 sampai kurang dari 25	Normal
25 sampai kurang dari 30	Berat badan berlebih
30 atau lebih	Obesitas

b. Percabangan

Percabangan digunakan agar program dapat mengambil keputusan berdasarkan kondisi tertentu. Dalam program ini, if, else if, dan else digunakan untuk menentukan kategori berdasarkan nilai BMI.

C. Studi Kasus

Seseorang ingin mengetahui kategori BMI berdasarkan berat badan dan tinggi badannya. Program menerima input berupa berat badan dalam kilogram (kg) dan tinggi badan dalam meter (m). Selanjutnya, program menghitung BMI dan menentukan kategori berdasarkan nilai BMI tersebut.

Contoh:

• Berat badan = 60 kg
• Tinggi badan = 1,65 m

Program akan menghitung BMI dan memberikan hasil kategori.

D. Algoritma

Langkah-langkah penyelesaian:

1. Mulai.
2. Masukkan nama.
3. Masukkan berat badan.
4. Masukkan tinggi badan.
5. Hitung BMI menggunakan rumus.
6. Jika BMI kurang dari 18,5, kategori adalah Berat badan kurang.
7. Jika BMI minimal 18,5 dan kurang dari 25, kategori adalah Normal.
8. Jika BMI minimal 25 dan kurang dari 30, kategori adalah Berat badan berlebih.
9. Jika BMI minimal 30, kategori adalah Obesitas.
10. Tampilkan nilai BMI dan kategorinya.
11. Selesai.

E. Flowchart

Alur program secara ringkas:

Mulai
  |
Masukkan nama, berat, dan tinggi
  |
Hitung BMI = berat / (tinggi^2)
  |
Apakah BMI < 18,5? -- Ya --> Berat badan kurang
  |
 Tidak
  v
Apakah BMI < 25? ---- Ya --> Normal
  |
 Tidak
  v
Apakah BMI < 30? ---- Ya --> Berat badan berlebih
  |
 Tidak
  v
Obesitas
  |
Tampilkan BMI dan kategori
  |
Selesai

F. Implementasi Program R

Kode berikut merupakan program interaktif yang meminta pengguna memasukkan nama, berat badan, dan tinggi badan melalui konsol R.

# PROGRAM KATEGORI BMI

# Input data
nama <- readline("Masukkan nama: ")
berat <- as.numeric(readline("Masukkan berat badan (kg): "))
tinggi <- as.numeric(readline("Masukkan tinggi badan (m): "))

# Menghitung BMI
bmi <- berat / (tinggi^2)

# Menentukan kategori
if (bmi < 18.5) {
  kategori <- "Berat badan kurang"
} else if (bmi < 25) {
  kategori <- "Normal"
} else if (bmi < 30) {
  kategori <- "Berat badan berlebih"
} else {
  kategori <- "Obesitas"
}

# Menampilkan hasil
cat("\n===== HASIL PEMERIKSAAN BMI =====\n")
cat("Nama     :", nama, "\n")
cat("Berat    :", berat, "kg\n")
cat("Tinggi   :", tinggi, "m\n")
cat("BMI      :", round(bmi, 2), "\n")
cat("Kategori :", kategori, "\n")
cat("=================================\n")

Catatan: Kode interaktif di atas menggunakan readline(), sehingga tidak dijalankan otomatis saat dokumen di-knit. Untuk memperlihatkan contoh hasil pada dokumen, bagian berikut menggunakan data contoh secara langsung.

G. Contoh Input dan Output

Misalnya, data yang dimasukkan adalah:

• Nama: Hisyam
• Berat badan: 60 kg
• Tinggi badan: 1,65 m

nama <- "Hisyam"
berat <- 60
tinggi <- 1.65

bmi <- berat / (tinggi^2)

if (bmi < 18.5) {
  kategori <- "Berat badan kurang"
} else if (bmi < 25) {
  kategori <- "Normal"
} else if (bmi < 30) {
  kategori <- "Berat badan berlebih"
} else {
  kategori <- "Obesitas"
}

cat("===== HASIL PEMERIKSAAN BMI =====\n")

## ===== HASIL PEMERIKSAAN BMI =====

cat("Nama     :", nama, "\n")

## Nama     : Hisyam

cat("Berat    :", berat, "kg\n")

## Berat    : 60 kg

cat("Tinggi   :", tinggi, "m\n")

## Tinggi   : 1.65 m

cat("BMI      :", round(bmi, 2), "\n")

## BMI      : 22.04

cat("Kategori :", kategori, "\n")

## Kategori : Normal

cat("=================================\n")

## =================================

H. Pembahasan

Pada program tersebut, pengguna memasukkan nama, berat badan, dan tinggi badan. Data berat dan tinggi kemudian digunakan untuk menghitung BMI.

Perhitungan dilakukan dengan kode berikut:

berat <- 60
tinggi <- 1.65
bmi <- berat / (tinggi^2)
round(bmi, 2)

## [1] 22.04

Setelah nilai BMI diperoleh, program menggunakan percabangan if, else if, dan else untuk menentukan kategori.

Pada contoh, berat badan sebesar 60 kg dan tinggi badan 1,65 m menghasilkan BMI sebesar 22,04, sehingga termasuk kategori Normal.

Kesimpulan

Program kategori BMI dapat digunakan untuk menentukan kategori berat badan berdasarkan nilai BMI. Program ini menerapkan beberapa konsep dasar pemrograman R, yaitu variabel, input, operasi aritmatika, percabangan, dan output.