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

   
Vista:

programa para el secante y cosecante inverso en pascal

Publicado por Sara (6 intervenciones) el 16/11/2013 02:13:49
Hola, me podrian ayudar por favor!! necesito un programa para el secante y cosecante inverso en pascal.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

programa para el secante y cosecante inverso en pascal

Publicado por ramon (2072 intervenciones) el 18/11/2013 17:37:39
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
{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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar