Latihan Kode Program Pascal: Menghitung Luas Belah Ketupat

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


Soal Menghitung Luas Belah Ketupat

Buatlah kode program dalam bahasa Pascal untuk menghitung luas belah ketupat. Kode program butuh 2 inputan berupa panjang diagonal 1 dan panjang diagonal 2. Kemudian tampilkan output luas belah ketupat.

Bonus soal: buat juga dalam bentuk function.

Berikut contoh tampilan akhir yang diinginkan (1) :

##  Program Pascal Menghitung Luas Belah Ketupat  ##
====================================================

Input panjang diagonal 1: 10
Input panjang diagonal 2: 20
Luas belah ketupat = 100.00

Berikut contoh tampilan akhir yang diinginkan (2) :

##  Program Pascal Menghitung Luas Belah Ketupat  ##
====================================================

Input panjang diagonal 1: 6.35
Input panjang diagonal 2: 10.75
Luas belah ketupat = 34.13

Silahkan coba sebentar membuat kode program ini.


Tips Membuat Kode Program Menghitung Luas Belah Ketupat

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

Dikutip dari wikipedia, Belah Ketupat adalah bangun datar dua dimensi yang dibentuk oleh empat buah segitiga siku siku masing-masing sama besar dengan sudut di hadapannya.

Rumus untuk menghitung luas belah ketupat adalah 1/2 * (panjang diagonal 1 + panjang diagonal 2).

Berikut ilustrasi rumus luas belah ketupat:

Luas belah ketupat

Luas belah ketupat (sumber gambar: katadata.co.id)


Kode Program Bahasa Pascal Menghitung Luas Belah Ketupat

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

program luas_belah_ketupat;
uses crt;
var
  diagonal1, diagonal2, luas: real;
begin
  clrscr;
  writeln('##  Program Pascal Menghitung Luas Belah Ketupat  ##');
  writeln('====================================================');
  writeln;
  
  write('Input panjang diagonal 1: ');
  readln(diagonal1);
  write('Input panjang diagonal 2: ');
  readln(diagonal2);

  luas := 0.5 * diagonal1 * diagonal2;
  writeln('Luas belah ketupat = ',luas:4:2);
  
  readln;
end.

 

Latihan Kode Program Pascal - Menghitung Luas Belah Ketupat

Di baris 4 terdapat deklarasi 3 variabel: diagonal1, diagonal2 dan luas. Ketiga variabel menggunakan tipe data real agar nilai input belah ketupat bisa menampung angka pecahan.

Kemudian user diminta menginput nilai diagonal 1 dan diagonal 2 dengan perintah readln antara baris 11-14. Nilai ini kemudian dipakai untuk menghitung luas belah ketupat dengan perintah luas := 0.5 * diagonal1 * diagonal2.

Terakhir, luas belah ketupat ditampilkan di baris 17. 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_belah_ketupat;
uses crt;
var
  diagonal1, diagonal2, luas: real;
begin
  clrscr;
  writeln('##  Program Pascal Menghitung Luas Belah Ketupat  ##');
  writeln('====================================================');
  writeln;
  
  write('Input panjang diagonal 1: ');
  readln(diagonal1);
  write('Input panjang diagonal 2: ');
  readln(diagonal2);

  writeln('Luas belah ketupat = ',0.5 * diagonal1 * diagonal2:4:2);
  
  readln;
end.

Setelah menerima semua inputan, di akhir baris 16 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 belah ketupat di tempat lain.


Kode Program Bahasa Pascal Menghitung Luas Belah Ketupat (Function)

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

program luas_belah_ketupat;
uses crt;
var
  diagonal1, diagonal2, luas: real;

function hitungLuasBelahKetupat(d1,d2:real):real; 
  begin 
    hitungLuasBelahKetupat := 0.5 * d1 * d2;
  end;

begin
  clrscr;
  writeln('##  Program Pascal Menghitung Luas Belah Ketupat  ##');
  writeln('====================================================');
  writeln;
  
  write('Input panjang diagonal 1: ');
  readln(diagonal1);
  write('Input panjang diagonal 2: ');
  readln(diagonal2);

  writeln('Luas belah ketupat = ', 
          hitungLuasBelahKetupat(diagonal1, diagonal2):4:2);
  
  readln;
end.

Di awal kode program, tepatnya pada baris 6-9, saya mendefinisikan fungsi hitungLuasBelahKetupat(). Fungsi ini menerima 2 argument yang disimpan ke dalam parameter d1 dan d2.

Fungsi hitungLuasBelahKetupat() hanya berisi 1 perintah yang langsung mengembalikan hasil perhitungan 0.5 * d1 * d2 di baris 8.

Proses pemanggilan fungsi dilakukan dari dalam perintah writeln di baris 22-23. Nilai variabel diagonal1 dan diagonal2 yang diinput oleh user, dilewatkan sebagai parameter menjadi hitungLuasBelahKetupat(diagonal1, diagonal2).


Demikian kode program menghitung luas belah ketupat 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