Pascal: Функция тангенс (tg)
03.12.2011
В языке не нашел этой функции. Странно. Из математики тангенс это отношение sin(x) к cos(x). Вот функция:
[pascal]
function tg (arg : real) : real;
begin
tg := sin(arg)/cos(arg);
end;
[/pascal]