Точні науки програмування Delphi 5.0

end;

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

if RadioButton3.Checked=True then begin

Edit7.Enabled:=false;

Edit8.Enabled:=false;

Edit1.Enabled:=false;

Edit2.Enabled:=true;

Edit3.Enabled:=true;

Edit6.Enabled:=true;

Button1.Enabled:=true;

Edit6.text:='';

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if RadioButton1.Checked=True then begin

val(edit7.text,st1,code);

val(edit8.text,st2,code);

S:=st2*(st1/2);

str(S:8:2,str_S);

edit6.Text:=str_S;

end;

if RadioButton2.Checked=True then begin

val(edit1.text,st1,code);