Скачать: CL | DM;

Как вычислить арккосинус числа?   Найти похожие ветки 

← →
Nox777   (2005-08-09 20:33) [0]

Простой функцией arccos(x/r)  у меня не вычисляет! Что делать? Вот код:
procedure TIndexForm.Button3Click(Sender: TObject);
var
alpha,x,r:real;
begin
….
alpha:=arccos(x/r);
….
End;

---

← →
Eraser ©   (2005-08-09 20:38) [1]

См. ArcCos из модуля Math.

---

← →
Eraser ©   (2005-08-09 20:39) [2]

Возвращаемое значение, понятное дело, в радианах будет.

---

← →
Kolan ©   (2005-08-09 20:41) [3]

наверно проблемма в том что не подключен модуль, где лежит эта функция.

Чтобы это сделать добавте в секцию uses Math
Пример:
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, Math;

PS В таких случиях надо приводить текст ошибки.

---

← →
Antonn ©   (2005-08-10 07:11) [4]

Nox777   (09.08.05 20:33)
см [2]
caption:=floattostr(arccos(x/r)*180/pi);

---

← →
begin...end ©   (2005-08-10 07:27) [5]

> Antonn ©   (10.08.05 07:11) [4]
> *180/pi

RadToDeg. Модуль Math.

:-)

---

← →
Desdechado ©   (2005-08-10 19:53) [6]

а ты уверен, что у тебя допустимая величина как аргумент идет?
а то ведь от -1 до 1 должно быть
и про периодичность не забудь :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.957 c