Menghitung Keliling dan Luas Persegi
program persegi;
uses
crt;
var
sisi : integer;
keliling, luas : real;
begin
clrscr;
write('Masukkan sisi persegi: ');
readln(sisi);
keliling := 4 * sisi;
luas := sisi * sisi;
writeln;
writeln('keliling persegi = ', keliling:0:2);
writeln('luas persegi = ', luas:0:2);
readln;
end.
hasil output:
Masukkan sisi persegi: 2(misalkan)
keliling persegi = 8.00
luas persegi = 4.00
writeln('luas persegi = ', luas:0:2);
readln;
end.
hasil output:
Masukkan sisi persegi: 2(misalkan)
keliling persegi = 8.00
luas persegi = 4.00
Show
0 Comments
prev
next
