C
cnsyj
Unregistered / Unconfirmed
GUEST, unregistred user!
在程序:
procedure TForm1.Button1Click(Sender:TObject);
var
r,v,f:real;
s:string;
begin
r:=strtofloat(edit1.text);
v:=4/3*pi*r*r*r;
f:=f*pi*r*r;
s:=Format('球的表面积是:%12.4f',[f]);
showmessagefmt('球的体积是: %12.4f'+#13+s,[v]);
end;
中%12.4f是什么意思??pi又是怎么定义的?showmessagefmt与format的格式
又是怎么定义的?
procedure TForm1.Button1Click(Sender:TObject);
var
r,v,f:real;
s:string;
begin
r:=strtofloat(edit1.text);
v:=4/3*pi*r*r*r;
f:=f*pi*r*r;
s:=Format('球的表面积是:%12.4f',[f]);
showmessagefmt('球的体积是: %12.4f'+#13+s,[v]);
end;
中%12.4f是什么意思??pi又是怎么定义的?showmessagefmt与format的格式
又是怎么定义的?