| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

посчитать sin , cos в Delphi [D7, XP]

zol ©   (2007-01-02 14:37:00) 

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

---

zol   (2007-01-02 16:41:00) [1]

> Ученик чародея ©   (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;

---

Ученик чародея   (2007-01-02 16:36:00) [2]

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


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

---

Ученик чародея   (2007-01-02 16:34:00) [3]

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


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

DegToRad

---

Anatoly Podgoretsky   (2007-01-02 15:21:00) [4]

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

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

---

Sergey Masloff   (2007-01-02 15:20:00) [5]

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

---

zol   (2007-01-02 15:19:00) [6]

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

то что написал Ученик чародея не правильно? А как тогда правильно будет?
В помощи смотрел
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;

---

Anatoly Podgoretsky   (2007-01-02 15:12:00) [7]

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

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

---

zol   (2007-01-02 15:06:00) [8]

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

тоесть?

---

Anatoly Podgoretsky   (2007-01-02 15:05:00) [9]

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

---

Chort   (2007-01-02 15:05:00) [10]

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

---

Chort   (2007-01-02 15:04:00) [11]

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


> 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 14:52:00) [12]

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

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

---

Ученик чародея   (2007-01-02 14:47:00) [13]

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

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

GradToRad

---

Наверх