用delphi7编一个程序

来源：百度知道 编辑：UC知道 时间：2024/06/08 02:46:22
d=(a+b+c)*15% 输入a，b，c数据 按下控件按钮 直接出d的结果

在船体上 放三个Edit控件,一个按钮和一个Label控件
然后在按钮的Onclick 事件中输入
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d: double;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
c := StrToFloat(Edit3.Text);
d := (a + b + c) * 0.15;
label1.Caption := '结果为: ' + FloatToStr(d);
end;