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:
- Pengertian Variabel dalam Bahasa Pascal
- Pengertian Tipe Data Integer Pascal
- Pengertian Tipe Data Real Pascal
- Operator Aritmatika Pascal
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:
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.