unit Grades;

interface

uses math;

function Cog(Angle:double):double;
function Sig(Angle:double):double;
function Tag1(Angle:double):double;
function ArcCog(Angle:double):double;
function ArcSig(Angle:double):double;
function ArcTag(Angle:double):double;
function Cotag(Angle:double):double;

implementation

function Cog(angle:double):double;
begin
  result:=cos(angle*pi/200)
end;

function Sig(angle:double):double;
begin
  result:=sin(angle*pi/200)
end;

function Tag1(angle:double):double;
begin
  result:=tan(angle*pi/200)
end;

function ArcCog(angle:double):double;
begin
  result:=arccos(angle)*200/pi;
end;

function ArcSig(angle:double):double;
begin
  result:=arcsin(angle)*200/pi;
end;

function ArcTag(angle:double):double;
begin
  result:=arctan(angle)*200/pi;
end;

function Cotag(Angle:double):double;
begin
  result:=1/tan(Angle*pi/200);
end;
end.