Перевод градусов в радианы в делфи

Перевод градусов в радианы в делфи

У меня вопрос по delphi. Если а := 0,707 как сделать чтобы в Label вместо sin 0,707 появилось sin 45.

← →
Palladin ( 2003-06-21 11:05 ) [1]

это не по делфи вопрос, это по математике школьной вопрос.
а вот образование у тебя высшее. это факт. 🙂

← →
Юрий Федоров ( 2003-06-21 11:22 ) [2]

ArcSin, и перевести из радиан в градусы

← →
Alex Y ( 2003-06-21 11:25 ) [3]

Градусы в радианы, соответственно:

Чем в школе на математике занимался? :))

← →
Marser ( 2003-06-21 13:03 ) [4]

Oh meine got! И это программист?!

Зато звучит как: градусы синуса!

← →
Calm ( 2003-06-21 13:43 ) [6]

может у него высшее гуманитарное образование. Или даже он спротфак закончил, тогда вообще

← →
Palladin ( 2003-06-21 14:04 ) [7]

Если высшее гуманитарное должен быть привыкшим книжки читать, вот и пусть читает, школьные учебники по математике.

← →
passm ( 2003-06-21 14:33 ) [8]

В школьных учебниках материал не предназначен для самостоятельного изучения. Без репетитора будет сложно.
:))

← →
Barlok ( 2003-06-21 14:43 ) [9]

Градусы в радианы, соответственно:

Это я знаю. Лучше дайти полностью кусок кода, а не огрызки в виде формул. Напишите ответ, а не стебитесь. Кроме стеба, путного я не чего не увидел может вы и не программисты а фуфло.

Перевод угловых величин
http://www.delphimaster.ru/cgi-bin/nuts.pl?&showpage=6

← →
Barlok ( 2003-06-21 15:01 ) [11]

DAC ©
Весьма туманно.

Label.Caption := «sin 45»;

← →
Palladin ( 2003-06-21 15:13 ) [13]

> может вы и не программисты а фуфло

скорей всего ты прав.

← →
Palladin ( 2003-06-21 15:14 ) [14]

← →
Mike B. ( 2003-06-21 15:39 ) [16]

> Barlok © (21.06.03 15:34)
Так их, паразитов, так, а то ишь ты, разумничались!

← →
Palladin ( 2003-06-21 15:44 ) [17]

ну жди тогда добрых самаритян.

>Barlok © (21.06.03 15:34)

Вон то самое слово с мягким знаком на конце пишется.

← →
Хороший человек (навсегда) ( 2003-06-21 17:08 ) [19]

Angle := Sin(Ang) * (180 / Pi)

← →
BOA_KAA ( 2003-06-21 17:35 ) [20]

> Хороший человек (навсегда) (21.06.03 17:08)

А что мы по этой формуле получим? 🙂

И как добрый саморитянин попрошу Barlok © обратиться к модулю Math. А не знать про перевод угловых величин — это позор даже для гуманитария!

← →
Хороший человек (навсегда) ( 2003-06-21 17:40 ) [21]

> A что мы по этой формуле получим? 🙂

← →
Mike B. ( 2003-06-21 17:46 ) [22]

Интересно а сколько градусов в синусе?

← →
kaif ( 2003-06-21 18:06 ) [23]

Привожу кусок кода:

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 1 to 90 do
if FormatFloat(«0.000»,
sin(i * 2 * pi/360)) = trim(Edit1.Text) then
begin
Edit1.Text := Format(«sin %d», [i]);
exit;
end;
Edit1.Text := «Градусов в таких синусах не бывает!»;
end;

← →
Хороший человек (навсегда) ( 2003-06-21 18:38 ) [24]

Label1.Caption := «Sin(45) = » + IntToStr(Round(sin(45)*(180/Pi)));

← →
alxx ( 2003-06-21 18:42 ) [25]

В одном синусе может быть 90, 450, 810, . градусов.
А в минус одном -90, 270, .

← →
Хороший человек (навсегда) ( 2003-06-21 18:47 ) [26]

> Хороший человек (навсегда) (21.06.03 18:38)

Ой! Фигня то какая! Не понял я, чего хочет человек.

← →
alxx ( 2003-06-21 18:49 ) [27]

А вообще, подстава это. Зря, ребята, паритесь.

← →
Хороший человек (навсегда) ( 2003-06-21 18:52 ) [28]

А я так хотела помочь!

← →
Mihey ( 2003-06-21 19:15 ) [29]

Чтобы не усложнять человеку жизнь, можно посоветовать переводить радианы в градусы вообще по простому — функцией RadToDeg.

← →
kaif ( 2003-06-21 19:59 ) [30]

Простите, забыл, что синусы могут быть отрицательными тоже

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
if trim(Edit1.Text) = «» then
raise Exception.Create(«Не могу вычислить градусы для пустого синуса!»);

if StrTofloat(Edit1.Text ) > 0 then
for i := 1 to 90 do
if FormatFloat(«0.000»,
sin(i * 2 * pi/360)) = trim(Edit1.Text) then
begin
Edit1.Text := Format(«sin %d», [i]);
exit;
end
else
if StrTofloat(Edit1.Text )

Вот истинное решение поставленной задачи!

type
TForm1 = class(TForm)
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
procedure Seta(Value: Double);
public
property a: Double write Seta;
end;

procedure TForm1.Seta(Value: Double);
begin
try
Label1.Caption := «Sin » + IntToStr(Round(ArcSin(Value) * 180 / Pi)) + » = » + FloatToStr(Value);
except
Label1.Caption := «Таких градусов синуса не покажу :)»
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
a := 0.707;
end;

Источник

Как перевести градусы в радианы

Нужна работа? Скачивай здесь

Бесплатно на любую тему

Градусы в радианы

Краткое описание

Угол — это два луча, выходящие из одной точки. Эта точка называется вершиной. Взяв за единицу измерения некий конкретный угол, можно определить величину любого угла, выяснив, сколько раз в нем укладывается такой единичный угол. При измерении угла исходят из двух его свойств:

1. Величины равных углов равны.
2. Величина суммы двух углов равна сумме их величин.

Если ясно, о чем идет речь, вместо «величина угла» говорят просто «угол».

Равные углы с вершиной в центре окружности будут создавать на ней дуги одинаковой длины. Их сумма будет равняться сумме стягиваемых ими дуг. Поэтому единицы измерения углов можно задавать, указывая, какую часть окружности составляет соответствующая дуга.

В чем можно измерять угол

Наиболее распространены две единицы измерения:

• градус, равный дуге в 1/360 всей окружности;
• радиан — центральный угол, высекающий дугу, равную радиусу окружности.

Существуют еще такие единицы измерения, как град, равный 1/100 прямого угла, оборот, равный полному кругу, тысячная — \(\frac1<2\mathrm\pi\;\times\;1000>\) и румб — 1/32 полной окружности.

Связь между градусами и радианами

Мера угла

На практике чаще всего используют градусы. Их обозначают знаком \(^\circ\;\) .

1/60 градуса — минута, обозначаемая знаком ‘. Секунду обозначают знаком », она составляет 1/3600 доли.

Математики и астрономы предпочитают пользоваться радианом, безразмерной величиной. Это удобнее при рассмотрении тригонометрических функций. Обозначение «рад» при этом обычно опускают. Радиан равен примерно \(57^\circ17’45»\) .

Формула соотношения

Длина дуги, высекаемой углом в a радиан на окружности радиуса R, вычисляется умножением a на R, а для единичной окружности длина дуги и величина угла совпадают.

Так как радиус равен единице, длина единичной окружности будет равна \(2\mathrm\pi\) .

Таким образом, связь радиан и градусов можно выразить формулой

Формулы перевода

Градусы в радианы

Осуществить переход от градусов к радианам можно по формуле

Радианы в градусы

Таблица перевода градусов в радианы

Соотношение двух систем измерения на окружности можно наглядно увидеть на схеме:

Но на практике, чтобы преобразовать одну величину измерения в другую, удобнее пользоваться таблицей:

Примеры расчета градусов и минут в радианы

Пример 1

Перевести 35 градусов в радианы.

Решение

Согласно формуле, нам нужно 35 умножить на число пи и разделить на 180.

Чтобы выполнить перевод минут и секунд, нужно сначала перевести их в градусы.

Пример 2

Перевести в радианы угол \(87^\circ14’21»\) .

Решение

Воспользуемся формулой, подставив найденное значение:

Пример 3

Перевести в радианы угол \(194^\circ19’\) .

Решение

Пишешь работы сам? Загружай в нашу базу и получай деньги

Источник