uses wincrt;
var
p,l,Hsl:real;
Begin
write ('masukkan panjang:');Readln(p);
write ('masukkan lebar:');Readln(l);
Hsl:=p*l;
writeln ('hasilnya adalah:',Hsl:2:2);
end.
Kamis, 18 November 2010
Tpw Menghitung Luas Persegi Panjang
Posted by Hanif Ramadhan Fahmi Putra on 13.14
0 komentar:
Posting Komentar