Luas Lingkaran pascal ~ butterflay sweet dream

Rabu, 09 Mei 2012

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.