Тангенс в Паскале

В Turbo Pascal тангенс находится, как отношение синуса к косинусу, а котангенс как функция обратная тангенсу (ctg(x)=1/tg(x))

function tg (x : real) : real;

begin

tg := sin(x)/cos(x);

end;

function ctg (x : real) : real;

begin

ctg := cos(x)/sin(x);

end;

Скачать:

Тангенс и котаненс - Нахождение тангенса tg и котангенса ctg в Паскале