Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ] > Код на шару!
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 09.04.2013, 13:51
OmG killer OmG killer вне форума
Прохожий
 
Регистрация: 13.03.2013
Сообщения: 23
Репутация: 10
Радость Перевод из радиан в градусы и наоборот с помошью 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.
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 21:49.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter