Гиперболический тангенс

Гиперболический тангенс

function th(x:fload):fload;
begin
th:=sh(x)/ch(x);
end;