Pascal – Membuat Program Untuk Menghitung Luas dan Keliling Bujur Sangkar

Saya ingin berbagi tentang program penghitung luas dan keliling bujur sangkar dengan bahasa pascal. Berikut adalah programnya.

uses crt;
var s:integer;

function Cari_Luas(sisi:integer):integer;
begin
Cari_Luas:=sisi*sisi;
end;

function Cari_Keliling(sisi:integer):integer;
begin
Cari_Keliling:=4*sisi;
end;

begin
clrscr;
write('Masukkan nilai sisi= '); readln(s);
writeln('Luas = ',Cari_Luas(s));
writeln('Keliling = ',Cari_Keliling(s));
readln;
end.

Output dari program diatas jika saya isi sisi dengan 5 adalah:

 Output_Luas_dan_Keliling_Bujur_Sangkar

Sekian dan Terima Kasih.

Advertisements

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