Тангенс

Тангенс

function tg(x:fload):fload;
var a:fload;
begin
textcolor(12);
tg:=0;
a:=(pi/180)*x;
if frac((x-pi/2)/pi)=0
then
writeln('Неверный угол!')
else
tg:=sin(a)/cos(a);
textcolor(15);
end;