Гиперболический синус

Гиперболический синус

function sh(x:fload):fload;
begin
sh:=(exp(x)-exp(-x))/2;
end;