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:

 

Sekian dan Terima Kasih.

Advertisements