Kamis, 17 November 2011

Turbo Pascal Program Persegi

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

Template by : kendhin x-template.blogspot.com