[Alegun]

Сообщение от OmG killer

все равно не понимаю.

Код:

uses Math;
procedure TForm1.Button1Click(Sender: TObject);
begin
 if RadioButton1.Checked then
   Edit1.Text:= FloatToStr(GradToRad(30))
// Edit1.Text:=FloatToStr(DegToRad(30))
 else
// Edit1.Text:=FloatToStr(RadToDeg(0.523598775598299));
   Edit1.Text:= FloatToStr(RadToGrad(0.471238898038469));
 end;