Форум по 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.
  #2  
Старый 09.04.2013, 15:03
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Повтор темы.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Закрытая тема


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

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

ВКонтакте   Facebook   Twitter