Срочно!!!! arcsin,arccos

← →
Blackweber © (2002-05-21 21:40) [0]

У кого-нибудь есть ф-ции?

← →
Malder © (2002-05-21 22:00) [1]

Цитирую.

Сводка функций модуля Math

Тригонометрические функции и процедуры

ArcCos - Арккосинус
ArcCosh - Пиперболический арккосинус
ArcSIn - Арксинус
ArcSInh - Гиперболический арксинус
ArcTahn - Гиперболический арктангенс
ArcTan2 - Арктангенс с учетом квадранта (функция ArcTan,
не учитывающая квадрант, находится в модуле System)
Cosh - Гиперболический косинус
Cotan - Котангенс

← →
Дремучий © (2002-05-21 22:00) [2]

есть

← →
Blackweber © (2002-05-21 22:24) [3]

спаибо, особенно Дремучий.
Вот то что надо

CONST epsilon: REAL = 1.0e-9;
FUNCTION ArcCos(x:REAL):REAL;
VAR t:REAL;
BEGIN
IF Abs(x) < epsilon THEN BEGIN
ArcCos := Pi/2.0;
END ELSE
IF (1.0 + x) < epsilon THEN
ArcCos := Pi
ELSE
IF (x - 1.0) < epsilon THEN
ArcCos := 0.0
ELSE BEGIN
t := ArcTan(Sqrt(1.0-Sqr(x))/x);
IF t < 0.0 THEN
ArcCos := t + Pi
ELSE
ArcCos := t;
END;
END;

FUNCTION ArcSin(x:REAL):REAL;
BEGIN
IF (1.0 - Abs(x)) < 1.0e-9 THEN BEGIN
IF x < 0 THEN
ArcSin := -Pi/2.0
ELSE
ArcSin := Pi/2.0;
END ELSE
ArcSin := ArcTan(x/Sqrt(1.0-Sqr(x)));
END;

begin
writeln(arcsin(1):2:2);
readln;
end.

← →
Malder © (2002-05-21 23:17) [4]

какие мы обидчивые...

А пример Blackweber © (21.05.02 22:24) нецелесообразен. Зачем вычислять ArcCos, если уже в Delphi есть готовая функция...

2 Blackweber © (21.05.02 22:24)
>>спаибо, особенно Дремучий.
>>Вот то что надо...
не за что.
ты ведь не просил исходников или ссылок,
я просто точно и лаконично ответил на твой вопрос

P.S.смотрел фильм "Исполнитель желаний"? Рекомендую.
:)

Срочно!!!! arcsin,arccos Найти похожие ветки