Blogroll

Rabu, 09 Mei 2012

Luas Lingkaran pascal

Posted by Unknown On 20.07 No comments
var
r,Luas,Keliling:real;

begin
r:=strtofloat(edit1.Text);
Luas:=3.14*r*r;
label3.caption:=floattostr(luas);
end;
end.

0 komentar:

Posting Komentar

Site search

    Blogger news

    Blogroll

    About