Menghitung Luas dan keliling persegi PANJANG (turbo pascal)

Selamat datang di blog Muslihsystem, untuk postingan kali ini saya akan membahas mengenai cara mencari Luas dan Keliling dari bangun datar Persegi Panjang. Tapi sebelum membahas ke sintak ada baiknya kita mengetahui rumus matematika nya, Rumus Luas:

L : Luas Persegi Panjang

p : Panjang

l = Lebar

Sedangkan untuk Kelilingnya:

K : Keliling Persegi Panjang

Dan untuk sintak pascalnya, bisa kita lihat di bawah ini:

uses wincrt;
var
p,lb:integer;
l,k : real;
begin
writeln ('========================');
writeln ('   Menghitung Luas dan');
writeln ('Keliling Persegi Panjang ');
writeln ('========================');
writeln (' ');
write ('Masukan Panjang : ');readln (p);
write ('Masukan Lebar   : ');readln (lb);
l := p*lb;
k := 2*(p+lb);
writeln ('Jadi Luasnya adalah    ', l:1:1 , ' satuan luas');
writeln ('dan kelilingnya adalah ', k:1:1 , ' satuan keliling');
readln;
end.

Bila program ini dijalankan maka akan tampak seperti pada gambar berikut ini:

Bagi yang mau mendownload Source Code programnya bisa di download di link:

Semoga Bermanfaat..