trigonometri

uses crt;
var
a,b,c,d,e,f,alfa : real;


begin
clrscr;
write('sudut : ');
read(alfa);


if alfa=0 then
begin
writeln('sin : 0.00');
writeln('cos : 1.00');
writeln('tan : 0.00');
writeln('cotan : tak hingga');
writeln('sec : 1.00');
writeln('cosec : tak hingga');
readkey;
exit;
end;

if alfa=90 then
begin
writeln('sin : 1.00');
writeln('cos : 0.00');
writeln('tan : tak hingga');
writeln('cotan : 0.00');
writeln('sec : tak hingga');
writeln('cosec : 1.00');
readkey;
exit;
end;

if alfa=180 then
begin
writeln('sin : 0.00');
writeln('cos : -1.00');
writeln('tan : 0.00');
writeln('cotan : tak hingga');
writeln('sec : -1.00');
writeln('cosec : tak hingga');
readkey;
exit;
end;

if alfa=270 then
begin
writeln('sin : -1.00');
writeln('cos : 0.00');
writeln('tan : tak hingga');
writeln('cotan : 0.00');
writeln('sec : tak hingga');
writeln('cosec : -1.00');
readkey;
exit;
end;

if alfa=360 then
begin
writeln('sin : 0.00');
writeln('cos : 1.00');
writeln('tan : 0.00');
writeln('cotan : tak hingga');
writeln('sec : 1.00');
writeln('cosec : tak hingga');
readkey;
exit;
end;


a := sin (alfa*pi/180);
b := cos (alfa*pi/180);
c := a/b;
d := b/a;
e := 1/ b;
f := 1/ a;


if a=-0.00 then a:=0.00;
if b=-0.00 then b:=0.00;
if c=-0.00 then c:=0.00;
if d=-0.00 then d:=0.00;
if e=-0.00 then e:=0.00;
if f=-0.00 then f:=0.00;


writeln('sin : ',a:0:2);
writeln('cos : ',b:0:2);
writeln('tan : ',c:0:2);
writeln('cotan : ',d:0:2);
writeln('sec : ',e:0:2);
writeln('cosec : ',f:0:2);

readkey;

end.