Tg, Ctg, вычисление тангентса и др. Опции

[natka]

Я правильно поняла, что в Паскале нет встроенных функций для вычисления tg и ctg, или все - таки они как - то вычисляются? Использовать отношения sin к cos и обратно как - то нерационально.

[Altair]

А так чем не нравиться ?
Вообще стандартной функции нет.

function tg(x:double): double;
begin
 result:= sin(x)/cos(x);
end;

function ctg(x:double): double;
begin
 result:= cos(x)/sin(x);
end;