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

[natka]

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

[Altair]

Использовать отношения sin к cos и обратно как - то нерационально.

Это почему же ?

[natka]

Да потому что у меня километровая функция со всякими логарифмами, корнями и т.п. Если еще туда же и sin c 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;

[klem4]

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

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

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

[volvo]

Ну это просто умереть, не встать - арктангенс есть, а тангенса нет?!

Ха-ха... А то, что АркСинуса нет, а Синус - есть, это НЕ "умереть, не встать"? И вообще... Если ты пользуешься FPC (судя по другим твоим постам), то открой для себя модуль Math...