посчитать sin , cos в Delphi

← →
zol (2007-01-02 14:37) [0]

Здравствуйте! Как посчитать sin , cos в Delphi? Например синус тридцати градусов?

← →
Ученик чародея © (2007-01-02 14:47) [1]

cos()
sin()
- в радианах

Из градусов в радианы
Uses math;

GradToRad

← →
Anatoly Podgoretsky © (2007-01-02 14:52) [2]

> Ученик чародея (02.01.2007 14:47:01) [1]

А кто просил переводить грады в радианы?

← →
Chort © (2007-01-02 15:04) [3]

Подскажите правильно или нет:

> procedure TForm1.Button1Click(Sender: TObject);
> var
> R: Extended;
> S: string;
> begin
> R := Sin(GradToRad(strtoint(Edit1.Text)));
> Str(R, S);
> Label1.Caption:=S;
> end;

К примеру ввожу синус 30 градусов- выдает ответ 4.53990499739547E-0001. А ведь должно быть 0.5.
Наверно я чтото не то напорол?

← →
Anatoly Podgoretsky © (2007-01-02 15:05) [4]

Так ты не читай ту чушь, которую тебе написал Ученик чародея ©

← →
Chort © (2007-01-02 15:05) [5]

Хотя пусть сам автор разбирается,пора спать...

← →
zol (2007-01-02 15:06) [6]

> Так ты не читай ту чушь, которую тебе написал Ученик чародея
> ©

тоесть?

← →
Anatoly Podgoretsky © (2007-01-02 15:12) [7]

> zol (02.01.2007 15:06:06) [6]

Что не понятного?

← →
zol (2007-01-02 15:19) [8]

> Что не понятного?

то что написал Ученик чародея не правильно? А как тогда правильно будет?
В помощи смотрел
var R: Extended; S: string; begin R := Sin(Pi); Str(R:5:3, S); Canvas.TextOut(10, 10, "The Sin of Pi is " + S); end;

← →
Sergey Masloff (2007-01-02 15:20) [9]

Кое-кто не отличает градусы от градов. Можно про последние прочесть
http://www.rubricon.com/ann/bse/04_g/04_g24351.asp

> zol (02.01.2007 15:19:08) [8]

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

> Anatoly Podgoretsky © (02.01.07 14:52) [2]
>
> > Ученик чародея (02.01.2007 14:47:01) [1]
>
> А кто просил переводить грады в радианы?

Тху блин, не ту функцию

DegToRad

> Anatoly Podgoretsky © (02.01.07 15:21) [10]
>
> > zol (02.01.2007 15:19:08) [8]
>
> Никакого смысла прикидываться градами для градусов нет,
> результат будет не верный.
> Подойди к учителю математики и спроси, что такое грады,
> если вы их не проходили.

Да, я знаю в круге градов 400, градусов 360, просто сперва запостил потом прочитал.

← →
zol (2007-01-02 16:41) [13]

> Ученик чародея © (02.01.07 16:34) [11]

Cпасибо! Теперь все нормально
procedure TForm1.Button1Click(Sender: TObject); var R: Extended; S: string; begin R := Sin(DegToRad(strtoint(Edit1.Text))); Str(R:5:3, S); Label1.Caption:=S; end;

посчитать sin , cos в Delphi Найти похожие ветки