您所在位置：主题：运行出错了!简单的问题,按着书打都要错啊,路漫漫,求指点
gemingcao
[专家分：0] 发布于 2007-02-02 11:58:00
这个大家可能做过的,就是算圆锥的体积的问题,我抄的书,运行的时候在a:=Format处出现了问题,怎么的啊?请指点!感激
procedure TForm1.Button1Click(Sender: TObject);
const
pi:real=3.1415926;
enterkey:char=#13;
var
r,height,v:real;
a,b:string;
begin
r:=strtofloat(edit1.Text );
height:=strtofloat(edit2.Text );
v:=1/3*pi*r*r*height;
a:=Format('the r you put into is:%12f',[r]');
b:=Format('the height you put into is:%12f',[height]');
showmessagefmt(a+enterkey+b+enterkey+'v is:'+enterkey+'%12.4f',[v]');
end;
end.
[em18][em18]
procedure TForm1.Button1Click(Sender: TObject);
const
pi:real=3.1415926;
enterkey:char=#13;
var
r,height,v:real;
a,b:string;
begin
r:=strtofloat(edit1.Text );
height:=strtofloat(edit2.Text );
v:=1/3*pi*r*r*height;
a:=Format('the r you put into is:%12f',[r]');
b:=Format('the height you put into is:%12f',[height]');
showmessagefmt(a+enterkey+b+enterkey+'v is:'+enterkey+'%12.4f',[v]');
end;
end.
[em18][em18]
