Latihan Kode Program Pascal: Menghitung Luas Trapesium

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

Soal Menghitung Luas Trapesium

Buatlah kode program dalam bahasa Pascal untuk menghitung luas trapesium. Kode program butuh 3 inputan berupa panjang sisi atas trapesium, panjang sisi bawah trapesium, dan tinggi trapesium. Kemudian tampilkan output luas trapesium.

Bonus soal: buat juga dalam bentuk function.

Berikut contoh tampilan akhir yang diinginkan (1) :

##  Program Pascal Menghitung Luas Trapesium  ##
================================================

Input panjang sisi sejajar atas: 15
Input panjang sisi sejajar bawah: 10
Input tinggi trapesium: 5
Luas trapesium = 62.50

Berikut contoh tampilan akhir yang diinginkan (2) :

##  Program Pascal Menghitung Luas Trapesium  ##
================================================

Input panjang sisi sejajar atas: 12.25
Input panjang sisi sejajar bawah: 20.75
Input tinggi trapesium: 8.5
Luas trapesium = 140.25

Silahkan coba sebentar membuat kode program ini.

Tips Membuat Kode Program Menghitung Luas Trapesium

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

Dikutip dari wikipedia, Trapesium adalah bangun datar dua dimensi yang dibentuk oleh empat buah rusuk yang dua di antaranya saling sejajar namun tidak sama panjang.

Rumus untuk menghitung luas trapesium adalah 1/2 * (panjang sisi sejajar atas + panjang sisi sejajar bawah) * tinggi.

Berikut ilustrasi rumus luas trapesium:

Rumus Luas Trapesium (sumber gambar: kompas.com)

Kode Program Bahasa Pascal Menghitung Luas Trapesium

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

program luas_trapesium;
uses crt;
var
  sisi_atas, sisi_bawah, tinggi, luas: real;
begin
  clrscr;
  writeln('##  Program Pascal Menghitung Luas Trapesium  ##');
  writeln('================================================');
  writeln;
  
  write('Input panjang sisi sejajar atas: ');
  readln(sisi_atas);
  write('Input panjang sisi sejajar bawah: ');
  readln(sisi_bawah);
  write('Input tinggi trapesium: ');
  readln(tinggi);

  luas := 0.5 * (sisi_atas + sisi_bawah) * tinggi;
  writeln('Luas trapesium = ',luas:4:2);
  
  readln;
end.

Di baris 4 terdapat deklarasi 4 variabel: sisi_atas, sisi_bawah, tinggi dan luas. Semua variabel menggunakan tipe data real agar nilai input trapesium bisa menampung angka pecahan.

Kemudian user diminta menginput nilai sisi atas, sisi bawah dan tinggi trapesium dengan perintah readln antara baris 11-16. Nilai ini kemudian dipakai untuk menghitung luas trapesium dengan perintah luas := 0.5 * (sisi_atas + sisi_bawah) * tinggi.

Terakhir, luas trapesium ditampilkan di baris 19. 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_trapesium;
uses crt;
var
  sisi_atas, sisi_bawah, tinggi, luas: real;
begin
  clrscr;
  writeln('##  Program Pascal Menghitung Luas Trapesium  ##');
  writeln('================================================');
  writeln;
  
  write('Input panjang sisi sejajar atas: ');
  readln(sisi_atas);
  write('Input panjang sisi sejajar bawah: ');
  readln(sisi_bawah);
  write('Input tinggi trapesium: ');
  readln(tinggi);

  writeln('Luas trapesium = ',0.5*(sisi_atas+sisi_bawah)*tinggi:4:2);
  
  readln;
end.

Setelah menerima semua inputan, di akhir baris 18 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 trapesium di tempat lain.

Kode Program Bahasa Pascal Menghitung Luas Trapesium (Function)

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

program luas_trapesium;
uses crt;
var
  sisi_atas, sisi_bawah, tinggi, luas: real;

function hitungLuasTrapesium(a,b,t:real):real; 
  begin 
    hitungLuasTrapesium := 0.5 * (a+b) * t;
  end;

begin
  clrscr;
  writeln('##  Program Pascal Menghitung Luas Trapesium  ##');
  writeln('================================================');
  writeln;
  
  write('Input panjang sisi sejajar atas: ');
  readln(sisi_atas);
  write('Input panjang sisi sejajar bawah: ');
  readln(sisi_bawah);
  write('Input tinggi trapesium: ');
  readln(tinggi);

  writeln('Luas trapesium = ',
          hitungLuasTrapesium(sisi_atas,sisi_bawah,tinggi):4:2);
  
  readln;
end.

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

Fungsi hitungLuasTrapesium() hanya berisi 1 perintah yang langsung mengembalikan hasil perhitungan 0.5 * (a+b) * t di baris 8.

Proses pemanggilan fungsi dilakukan dari dalam perintah writeln di baris 24-25. Nilai variabel sisi_atas, sisi_atas, dan tinggi yang diinput oleh user, dilewatkan sebagai parameter menjadi hitungLuasTrapesium(sisi_atas,sisi_bawah,tinggi).

Demikian kode program menghitung luas trapesium 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.