MENGHITUNG LUAS PERSEGI PANJANG

Assalamu'alaikum semuanya... Wah kangen banget nih lama nggak posting. Para pembaca sekalian, kali ini saya akan membahas tentang cara menghitung luas persegi panjang dengan menggunakan Pascal. Langkah pertama yang harus kita perhatikan adalah mengidentifikasikan terlebih dahulu item - item apa saja yang kita butuhkan dalam menghitung luas persegi panjang. Sebagaimana kita ketahui bersama, Luas persegi panjang adalah panjang x lebar. Dari sini kita bisa mengetahui bahwa di dalam deklarasi variabel nanti kita harus menentukan tipe data apa saja yang harus digunakan untuk menentukan luas, panjang dan lebar. Berikut listing program lengkapnya.

program menghitung_luas_persegi_panjang;
uses crt;
var p,l,luas:integer;
begin
clrscr;
     write('MASUKKAN NILAI PANJANG    = ');
     readln(p);
     write('MASUKKAN NILAI LEBAR      = ');
     readln(l);
     luas:=p*l;
     write('JADI LUAS PERSEGI PANJANG = ',luas);
     readln;
end.

Dari program diatas kita akan mendapatkan hasil program seperti di bawah ini : 

Semoga bahasan kita kali ini bermanfaat bagi semuanya. Sampai ketemu lagi pada artikel pascal berikutnya.