Menghitung Luas Segiempat

Program Luas_Empat_Segi_Panjang;

uses wincrt;

var
panjang, lebar, luas : real;

begin
write ('Berapa panjang segiempat? '); readln (panjang);
write ('Berapa lebar segiempat? ')  ; readln (lebar);
luas := panjang*lebar;
writeln;
writeln ('Luas segiempat = ', luas:5:2, ' satuan luas');

end.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s