Latihan Kode Program Pascal: Menghitung Luas Balok

Latihan kode program bahasa Pascal kali ini akan membahas cara menghitung luas permukaan balok. Materi ini berhubungan dengan logika matematika dan penggunaan operator aritmatika.


Soal Menghitung Luas Permukaan Balok

Buatlah kode program dalam bahasa Pascal untuk menghitung luas permukaan balok. Kode program butuh 3 inputan berupa panjang, lebar dan tinggi balok. Kemudian tampilkan output luas permukaan balok tersebut.

Bonus soal: buat juga dalam bentuk function.

Berikut contoh tampilan akhir yang diinginkan (1) :

##  Program Pascal Menghitung Luas Balok  ##
============================================

Input panjang balok: 20
Input lebar balok: 8
Input tinggi balok: 16

Luas permukaan balok = 1216.00

Berikut contoh tampilan akhir yang diinginkan (2) :

##  Program Pascal Menghitung Luas Balok  ##
============================================

Input panjang balok: 12.25
Input lebar balok: 9.75
Input tinggi balok: 5.55

Luas permukaan balok = 483.08

Silahkan coba sebentar membuat kode program ini.


Tips Membuat Kode Program Menghitung Luas Balok

Soal ini melatih pemahaman terkait logika matematika dan penggunaan operator aritmatika. Berikut tutorial pendahuluan yang bisa diikuti:

Dikutip dari wikipedia, Balok adalah bangun ruang tiga dimensi yang dibentuk oleh tiga pasang persegi atau persegi panjang, dengan paling tidak satu pasang di antaranya berukuran berbeda.

Balok memiliki 6 sisi, 12 rusuk dan 8 titik sudut. Balok yang dibentuk oleh enam persegi sama dan sebangun disebut sebagai kubus.

Rumus untuk menghitung luas permukaan balok adalah: 2*(panjang*lebar) + 2*(panjang*tinggi) + 2*(lebar*tinggi).


Kode Program Bahasa Pascal Menghitung Luas Permukaan Balok

Berikut salah satu solusi dari soal menghitung luas balok menggunakan bahasa pemrograman Pascal:

program luas_balok;
uses crt;
var
  panjang, lebar, tinggi, luas: real;
begin
  clrscr;
  writeln('##  Program Pascal Menghitung Luas Balok  ##');
  writeln('============================================');
  writeln;
  
  write('Input panjang balok: ');
  readln(panjang);
  write('Input lebar balok: ');
  readln(lebar);
  write('Input tinggi balok: ');
  readln(tinggi);
  writeln;

  luas := 2*(panjang*lebar) + 2*(panjang*tinggi) + 2*(lebar*tinggi);
  writeln('Luas permukaan balok = ', luas:4:2);
  
  readln;
end.

Hasil kode program:

Latihan Kode Program Pascal - Menghitung Luas Balok

Di baris 4 terdapat deklarasi 4 variabel: panjang, lebar, tinggi dan luas. Keempat variabel menggunakan tipe data real agar nilai input balok bisa menampung angka pecahan.

Kemudian user diminta menginput nilai panjang, lebar dan tinggi dengan perintah readln antara baris 11-16. Nilai ini kemudian dipakai untuk menghitung luas balok dengan perintah luas := 2*(panjang*lebar) + 2*(panjang*tinggi) + 2*(lebar*tinggi).

Terakhir, luas balok ditampilkan di baris 20. Tambahan perintah luas:4:2 dipakai untuk menampilkan format angka dengan 2 tempat desimal.

Proses perhitungan luas sebenarnya juga bisa langsung dilakukan ke dalam perintah writeln, tidak harus ditampung dulu ke variabel luas terlebih dahulu. Berikut contoh yang dimaksud:

program luas_balok;
uses crt;
var
  panjang, lebar, tinggi, luas: real;
begin
  clrscr;
  writeln('##  Program Pascal Menghitung Luas Balok  ##');
  writeln('============================================');
  writeln;
  
  write('Input panjang balok: ');
  readln(panjang);
  write('Input lebar balok: ');
  readln(lebar);
  write('Input tinggi balok: ');
  readln(tinggi);
  writeln;

  writeln('Luas permukaan balok = ', 
          2*(panjang*lebar) + 2*(panjang*tinggi) + 2*(lebar*tinggi):4:2);
  
  readln;
end.

Setelah menerima semua inputan, di akhir baris 19 perhitungan luas langsung ditulis ke dalam perintah writeln.

Penulisan seperti ini memang lebih singkat. Namun kelemahannya kita harus melakukan perhitungan ulang jika butuh nilai luas balok di tempat lain.


Kode Program Bahasa Pascal Menghitung Luas Balok (Function)

Untuk soal bonus, yakni membuat kode program menghitung luas balok dalam bentuk function, bisa menggunakan kode berikut:

program luas_balok;
uses crt;
var
  panjang, lebar, tinggi, luas: real;

function hitungLuasBalok(p,l,t:real):real; 
  begin 
    hitungLuasBalok := 2*(p*l) + 2*(p*t) + 2*(l*t);
  end;

begin
  clrscr;
  writeln('##  Program Pascal Menghitung Luas Balok  ##');
  writeln('============================================');
  writeln;
  
  write('Input panjang balok: ');
  readln(panjang);
  write('Input lebar balok: ');
  readln(lebar);
  write('Input tinggi balok: ');
  readln(tinggi);
  writeln;

  writeln('Luas permukaan balok = ', 
          hitungLuasBalok(panjang,lebar,tinggi):4:2);
  
  readln;
end.

Di awal kode program, tepatnya pada baris 6-9, saya mendefinisikan fungsi hitungLuasBalok(). Fungsi ini menerima 3 argument yang disimpan ke dalam parameter p, l dan t.

Fungsi hitungLuasBalok() hanya berisi 1 perintah yang langsung mengembalikan hasil perhitungan 2*(p*l) + 2*(p*t) + 2*(l*t) di baris 8.

Proses pemanggilan fungsi dilakukan dari dalam perintah writeln di baris 25-26. Nilai variabel panjang, lebar, dan tinggi yang diinput oleh user, dilewatkan sebagai parameter menjadi hitungLuasBalok(panjang,lebar,tinggi).


Demikian kode program menghitung luas permukaan balok menggunakan bahasa pemrograman Pascal. Semoga tutorial ini bisa bermanfaat.


eBook Pascal Uncover Duniailkom
Apabila anda serius ingin mempelajari Pascal dan butuh materi Pascal yang jauh lebih lengkap, Duniailkom telah menerbitkan eBook Pascal Uncover yang membahas bahasa pemrograman Pascal dari dasar hingga procedure, function dan contoh kasus. Penjelasan lebih lanjut bisa ke eBook Pascal Uncover Duniailkom.

Add Comment