home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol022 / trig4.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  1.0 KB  |  43 lines
  1. (****************************************************
  2. *
  3. *        PROGRAM FOR TRIG TABLE
  4. *
  5. *    Simple program to generate a short trig chart.
  6. *  Written by Ray Penley while trying to overcome a
  7. *  bug.
  8. *
  9. *  Donated Sept 1980
  10. *******************************************************
  11.  
  12. PROGRAM TRIG4;
  13. {    Computes the SIN, COS, and TAN of an angle "x",
  14. +    expressed in radians, from 10 degrees to 85 degrees.
  15. +
  16. +    This program uses the supplied SIN function
  17. +    but a new COSINE routine.            }
  18. const
  19.     {+ CONVERSION FACTOR DEGREES TO RADIANS +}
  20.     C = 1.745329E-02; {+++ = PI/180   +++}
  21. var    g: real;
  22.     angle,rads : real;
  23.  
  24. FUNCTION COSINE(X:REAL):REAL; EXTERNAL;
  25.  
  26. function TAN(x: real): real;
  27. {+  angle "x" must be in radians  +}
  28. begin
  29.   TAN := SIN(X) / COSINE(x);
  30. end;
  31.  
  32. begin
  33.   writeln('        SINE         COSINE        TANGENT',
  34.           '       RADIANS        DEGREES');
  35.   g := 10.0;
  36.   While (g < 90.0) Do
  37.     begin
  38.       writeln( SIN(g*c):8:6, COSINE(g*c):8:6, TAN(g*c):8:6, g*c:8:6, g:4:2);
  39.       g := g + 5.0;
  40.     end;
  41. end.
  42.  
  43.