|
#1
|
|||
|
|||
Pадианы, градусы
Помогите пожалуйста.
Есть 2 radiobutton'a как сделать, чтобы при нажатии 2го результат выходил в (edit1) в градусах (sin,cos,tg), а 1го обратно в радианы? кнопка = Код:
procedure TForm1.BitBtn18Click(Sender: TObject); begin if edit1.Text<>'' then b:=strtofloat (edit1.Text); case c of 'x':edit1.Text:=floattostr(power(a,b)); '+':edit1.Text:=floattostr(a+b); '-':edit1.Text:=floattostr(a-b); '*':edit1.Text:=floattostr(a*b); '/':begin if b<>0 then edit1.Text:=floattostr(a/b) else form3.Show; end; end; end; Код:
procedure TForm1.BitBtn24Click(Sender: TObject); begin x:=strtofloat(edit1.Text); y:=sin(x);//sin,cos,sin(x)/cos(x). edit1.Text:=floattostr(y); end; Последний раз редактировалось OmG killer, 08.04.2013 в 13:01. |
#2
|
||||
|
||||
В модуле math есть ф-ии DegToRad, GradToRad и т.д.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
|||
|
|||
Я незнаю как применять функции DegToRad, GradToRad, незнаю даже какое условие подобрать.(мне бы пример на radiobutton )
|
#4
|
||||
|
||||
Цитата:
http://yandex.ru/yandsearch?text=DegToRad&lr=213 Я за здоровый экстрим! Спасибо за "спасибо") |
#5
|
|||
|
|||
все равно не понимаю.
|
#6
|
||||
|
||||
Цитата:
Код:
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; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#7
|
||||
|
||||
Я так понимаю, ранее даный ответ не устроил?
Код:
procedure TForm1.RadioGroup1Click(Sender: TObject); begin case RadioGroup1.ItemIndex of 0 : Edit1.Text := FloatToStr(RadToGrad(StrToFloatDef(Edit1.Text, 0))); 1 : Edit1.Text := FloatToStr(GradToRad(StrToFloatDef(Edit1.Text, 0))); end; end; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#8
|
|||
|
|||
вроде как нет
|
#9
|
||||
|
||||
Ну давай, изобретай свой велосипед. Показать потом не забудь.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#10
|
||||
|
||||
Пожалуйста заполните форму "Нужен код".
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |