Арккосинус в Паскале

В Turbo Pascal arccos не существует, как и ряд других математических функций. Однако, представить его можно из геометрических соображений, используя существующие математические функции. Арккосинус в pascal можно найти следующим образом:

function arccos (x : real) : real;

begin

arccos := Arctan(Sqrt(1-sqr(x))/x);

end;

Скачать:

Arccos - Акрккосинус в Паскале