Pascal/Turbo Pascal - programa para el secante y cosecante inverso en pascal

{A ver si esto sirve}

 program seccoseca;

 uses

    crt;

  var

    cosecanter, secanter : real;

    cosesecanteinvr, secanteinvr : real;

    nume : shortint;

  function secante(n : real) : real;

  begin

     secante := 1 / cos(n);

  end;

  function cosecante(n : real) : real;

  begin

     cosecante := 1 / sin(n);

  end;

  function secanteinversa(n : real) : real;

  begin

     if n - 1 > 0 then

     nume := 1;

     if n - 1 = 0 then

     nume := 0;

     if n - 1 < 0 then

     nume := -1;

     secanteinversa := arctan(n / sqrt(n * n - 1)) +                                  nume * (2 * arctan(1));

  end;

  function cosecanteinversa(n : real) : real;

  begin

     if n > 0 then

     nume := 1;

     if n = 0 then

     nume := 0;

     if n < 0 then

     nume := -1;

     cosecanteinversa := arctan(n / sqrt(n * n - 1)) +

                              (nume - 1) * (2 * arctan(1));

   end;

   begin

      clrscr;

      secanter := secante(4.50);

      writeln('    Secante De 4.50        = ',secanter:0:2);

      cosecanter := cosecante(4.50);

      writeln('    Cosecante De 4.50      = ',cosecanter:0:2);

      secanteinvr := secanteinversa(4.50);

      writeln('    Secante Inversa 4.50   = ',secanteinvr:0:2);

      cosesecanteinvr := cosecanteinversa(4.50);

      writeln('    cosecante Inversa 4.50 = ',cosesecanteinvr:0:2);

      writeln;

      writeln('<<<< Pulse Una Tecla >>>>');

      readkey;

   end.