Код:
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,s,p:real;
begin
a:= StrToFloat(Edit1.Text);
b:= StrToFloat(Edit2.Text);
c:= StrToFloat(Edit3.Text);
if RadioButton1.Checked then
begin
p:=a+b+c;
Label1:=FloatToStr(p);
end else
if RadioButton2.Checked then
begin
s:=1/2*(a*b*c)
Label1:=s;
end;
end;
меня для Label1 интересует.. как тут вывести..