program Funkcje_trygonometryczne;

var w,x,y:real;
begin
   {sinus}
   writeln('Podaj wartosc kata dla funkcji sinus w stopniach ');
   readln(w);
   x:=w*PI/180;
   y:=sin(x);
   writeln('sin(',w:3:2,')=',y:0:10);
   writeln;

   {cosinus}
   writeln('Podaj wartosc kata dla funkcji cosinus w stopniach ');
   readln(w);
   x:=w*PI/180;
   y:=cos(x);
   writeln('cos(',w:3:2,')=',y:0:10);
   writeln;

   {tangens}
   writeln('Podaj wartosc kata dla funkcji tangens w stopniach ');
   readln(w);
   x:=w*PI/180;
   if (w<>90) then
   begin
      y:=sin(x)/cos(x);
      writeln('tan(',w:3:2,')=',y:0:10);
   end
   else
      writeln('tangens 90 stopni nie istnieje');
   writeln;

   {cotangens}
   writeln('Podaj wartosc kata dla funkcji cotangens w stopniach ');
   readln(w);
   x:=w*PI/180;
   if (w<>0) then
   begin
      y:=cos(x)/sin(x);
      writeln('ctan(',w:3:2,')=',y:0:10);
   end
   else
      writeln('cotangens 0 stopni nie istnieje');
   writeln;

   {arcus sinus}
   writeln('Podaj wartosc dla funkcji arcus sinus <0-1)');
   readln(x);
   y:=arctan(x/sqrt(1-sqr(x)));
   writeln('arcus sinus(',x:0:10,') = ',y:0:10,' radianow = ',y*180/PI:3:2,' stopni');
   writeln;

   {arcus cosinus}
   writeln('Podaj wartosc dla funkcji arcus cosinus (0-1>');
   readln(x);
   y:=arctan(sqrt(1-sqr(x))/x);
   writeln('arcus cosinus(',x:0:10,') = ',y:0:10,' radianow = ',y*180/PI:3:2,' stopni');
   writeln;

   {arcus tangens}
   y:=arctan(x);
   writeln('Podaj wartosc dla funkcj arcus tangens');
   readln(x);
   writeln('arcus tangens(',x:0:10,') = ',y:0:10,' radianow = ',y*180/PI:3:2,' stopni');
   writeln;

   {arcus cotangens}
   writeln('Podaj wartosc dla funkcj arcus cotangens');
   readln(x);
   y:=1/arctan(x);
   writeln('arcus cotangens(',x:0:10,') = ',y:0:10,' radianow = ',y*180/PI:3:2,' stopni');
   writeln;
end.