Turbo Pascal Program Persegi, buat yang belum bisa silahkan dibaca dan dicoba dibawah ini !
uses wincrt;
var
s,l,k:real;
begin
writeln('Program persegi');
write('masukkan sisi : ');readln(s);
l:=sqr(s);
k:=4*s;
writeln('luasnya : ' ,l:2:0);
writeln('kelilingnya : ' , k:2:0);
end.
Download
uses wincrt;
var
s,l,k:real;
begin
writeln('Program persegi');
write('masukkan sisi : ');readln(s);
l:=sqr(s);
k:=4*s;
writeln('luasnya : ' ,l:2:0);
writeln('kelilingnya : ' , k:2:0);
end.
Download
Logging you in...
![[Valid RSS]](valid-rss-rogers.png "Validate my RSS feed")
![[Valid Atom 1.0]](valid-atom.png "Validate my Atom 1.0 feed")
Postingan
