delphi代码实现计算

来源：百度知道 编辑：UC知道 时间：2024/09/28 17:35:32
计算x=(a+b)/c^2，其中a,b,c都是通过edit输入的，如果没输入c或者输入0，就不计算，并且提示从新输入信息。

编译调试通过：edit1代表a,edit2代表b,edit3代表c,edit4代表x
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,x:double;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);

if (edit3.text='')or(FormatFloat('0.000',StrToFloat(edit3.Text))='0.000' )

then
showmessage('c不能为0或空，请重新输入')
else
begin
x:=(a+b)/power(strtofloat(edit3.text),2);
edit4.Text:=formatfloat('0.000',x);
end;
end;

end.

var
a,b,c,x: string;
begin
a:=edt1.text;
b:=edt2.text;
c:=edt3.text;
if (c<>'' )and (c<>'0') then
edt4.text:=x:=(a+b)/c^2
else
messagebox('提示'，‘请重新输入C的内容！’，mb_ok);
end;
刚写的没有调试，你试试吧。。。