|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Перевод из радиан в градусы и наоборот с помошью radiobutton
Помогите пожалуйста.
Есть 2 radiobutton'a как сделать, чтобы при нажатии 2го, результат выходил в (edit1) в градусах для ((кнопок) sin,cos,tg), а при нажатии 1го обратно в радианы? Тоесть: радианы sin(1)=0,84147098.... Нажимаем radiobutton2 (радианы переводятся в градусы) sin(1)=0,017452506... Нажимаем radiobutton1 (градусы переводятся в радианы) и sin oпять равен sin(1)=0,84147098.... также для кнопок сos,tg. Кнопки sin,cos,tg. Код:
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, 09.04.2013 в 13:58. |
#2
|
||||
|
||||
Повтор темы.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |