arcsin в паскале

Ответ от Gennady[гуру]
Доброго времени суток.
arcsin(x)=arctg(x/sqrt(1-x^2)), то есть arctan(x/sqrt(1-x^2));
arccos(x) = (pi/2) - arcsin(x);
Кроме того, арксинус можно посчитать как сумму ряда
arcsin(x) = x+1/2 *x^3/3 + 1/2*3/4*x^5/5 + .
Ну и для полного счастья, пара функций.
function ArcCos ( X : Real ): Real;
var
tmpArcCos : Real;
begin
if X = 0.0 then { чтобы не было деления на 0 }
tmpArcCos := Pi / 2.0
else
tmpArcCos := ArcTan ( Sqrt ( 1 - X * X ) / X );
if X < 0.0 then
tmpArcCos := Pi - tmpArcCos;
ArcCos := tmpArcCos;
end;
function ArcSin ( X : Real ): Real;
begin
if X = 1.0 then { чтобы не было деления на 0 }
ArcSin := Pi / 2.0
else
ArcSin := ArcTan ( X / Sqrt ( 1 - X * X ) );
end;
Удачи!
Gennady
Гений
(51222)
Пожалуйста! Надеюсь, на взаимность в плане выбора ответа. 🙂