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

← →
Barlok © (2003-06-21 11:03) [0]

У меня вопрос по 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]

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

Gr := Rd*180/Pi

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

Rd := Gr*Pi/180

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

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

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

← →
uw © (2003-06-21 13:24) [5]

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

← →
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]

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

Gr := Rd*180/Pi

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

Rd := Gr*Pi/180

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

← →
DAC © (2003-06-21 14:52) [10]

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

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

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

← →
uw © (2003-06-21 15:13) [12]

Label.Caption := "sin 45";

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

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

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

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

Удалено модератором

← →
Barlok © (2003-06-21 15:34) [15]

Удалено модератором

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

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

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

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

← →
uw © (2003-06-21 15:52) [18]

>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]

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

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

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)));

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

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

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

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

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

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

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

2 Народ:

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

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

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 ) < 0 then
for i := -1 downto -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 ) = 0 then
begin //этот случай самый интересный.
//Здесь у меня оптимизация кода
Edit1.Text := "sin 0";
exit;
end;

Edit1.Text := "Градусов в таких синусах не бывает!";

end;

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

type TForm1 = class(TForm) Label1: TLabel; procedure Button1Click(Sender: TObject); private procedure Seta(Value: Double); public property a: Double write Seta; end; var Form1: TForm1; implementation {$R *.dfm} { TForm1 } 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;

Перевод в градусы синуса? Найти похожие ветки