Shrek, я думаю, такое
Код:
function arccos(x:real):real;
begin
arccos:=arctan(sqrt(1-sqr(x))/x);
end;
задание функции arccos - "не есть хорошо", и вот почему:
1. При х=0 возникнет ошибка деления на ноль, а должно быть возвращено Pi/2.
2. Как при х=1, так и при х=-1 такая функция вернет arccos(х)=0, в то время как должно быть при x=1 arccos(x)=0, a при x=-1 arccos(x)=Pi.
Могу предложить такой вариант (он "зашит" в мои библиотеки):
Код:
function ArcCos(X:Real):Real;
BEGIN
IF ROUND(X*10000)=10000 THEN ArcCos:=0 ELSE
IF ROUND(X*10000)=-10000 THEN ArcCos:=Pi ELSE
ArcCos:=(Pi/2)-ArcTan(X/SQRT(1-X*X));
END;