Latihan Kode Program Pascal: Menghitung Luas Persegi Panjang

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


Soal Menghitung Luas Persegi Panjang

Buatlah kode program dalam bahasa pascal untuk menghitung luas persegi panjang. Kode program butuh 2 inputan berupa panjang dan lebar, kemudian menampilkan output luas persegi panjang.

Bonus soal: buat juga dalam bentuk function.

Berikut contoh tampilan akhir yang diinginkan (1) :

##  Program Pascal Menghitung Luas Persegi Panjang  ##
======================================================

Input panjang persegi: 8
Input lebar persegi: 12
Luas persegi panjang = 96.00

Berikut contoh tampilan akhir yang diinginkan (2) :

##  Program Pascal Menghitung Luas Persegi Panjang  ##
======================================================

Input panjang persegi: 7.25
Input lebar persegi: 5.75
Luas persegi panjang = 41.69

Silahkan coba sebentar membuat kode program ini.


Tips Membuat Kode Program Menghitung Luas Persegi Panjang

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

Dikutip dari wikipedia, persegi panjang (rectangle) adalah bangun datar dua dimensi yang dibentuk oleh dua pasang sisi yang masing-masing sama panjang dan sejajar dengan pasangannya, dan memiliki empat buah sudut yang kesemuanya adalah sudut siku-siku.

Rumus untuk menghitung luar persegi panjang adalah panjang * lebar.


Kode Program Bahasa Pascal Menghitung Luas Persegi Panjang

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

program luas_persegi_panjang;
uses crt;
var
  panjang, lebar, luas: real;
begin
  clrscr;
  writeln('##  Program Pascal Menghitung Luas Persegi Panjang  ##');
  writeln('======================================================');
  writeln;
  
  write('Input panjang persegi: ');
  readln(panjang);
  write('Input lebar persegi: ');
  readln(lebar);

  luas := panjang * lebar;
  writeln('Luas persegi panjang = ',luas:4:2);
  
  readln;
end.

Latihan Kode Program Pascal - Menghitung Luas Persegi Panjang

Di baris 4 terdapat deklarasi variabel panjang, lebar, dan luas bertipe real. Disini saya menggunakan tipe data real agar nilai panjang dan lebar persegi panjang bisa menampung angka pecahan.

Kemudian user diminta menginput nilai panjang persegi dengan perintah readln(panjang) di baris 12, dan nilai lebar persegi dengan perintah readln(lebar) di baris 14.

Kedua nilai ini dipakai untuk menghitung luas persegi panjang dengan perintah luas := panjang * lebar.

Terakhir, luas persegi panjang ditampilkan di baris 17.

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_persegi_panjang;
uses crt;
var
  panjang, lebar, luas: real;
begin
  clrscr;
  writeln('##  Program Pascal Menghitung Luas Persegi Panjang  ##');
  writeln('======================================================');
  writeln;
  
  write('Input panjang persegi: ');
  readln(panjang);
  write('Input lebar persegi: ');
  readln(lebar);

  writeln('Luas persegi panjang = ',panjang * lebar:4:2);
  
  readln;
end.

Setelah menerima inputan panjang dan lebar, 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 persegi panjang di tempat lain.


Kode Program Bahasa Pascal Menghitung Luas Persegi Panjang (Function)

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

program luas_persegi_panjang;
uses crt;
var
  panjang, lebar, luas: real;

function hitungLuasPersegiPanjang(p,l:real):real;
  begin
    hitungLuasPersegiPanjang := p*l;
  end;

begin
  clrscr;
  writeln('##  Program Pascal Menghitung Luas Persegi Panjang  ##');
  writeln('======================================================');
  writeln;
  
  write('Input panjang persegi: ');
  readln(panjang);
  write('Input lebar persegi: ');
  readln(lebar);

  writeln('Luas persegi panjang = ',
  hitungLuasPersegiPanjang(panjang, lebar):4:2);
  
  readln;
end.

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

Fungsi hitungLuasPersegiPanjang() hanya berisi 1 perintah yang langsung mengembalikan hasil perhitungan p * l di baris 8.

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


Demikian kode program menghitung luas persegi panjang 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