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.
ngakakk
LikeLike