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

[natka]

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

[klem4]

а тангенса нет?!

Ну так сделай тангенс и используй ;)

function Tg(x : single) : single;
begin
  Tg := sin(x) / cos(x);
end;