Как вычислить арккосинус числа?

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

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

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