home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol134 / tstan2.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  745 b   |  33 lines
  1.            PROGRAM TSTAN2;
  2.  
  3. CONST
  4.     PI = 3.1415927;
  5.  
  6. VAR
  7.     RC,
  8.     THETAR,
  9.     THETAD   : REAL;
  10.     RESPONSE : CHAR;
  11.     FAILURE  : BOOLEAN;
  12.  
  13. {$ITRIGLIB.PAS }
  14.  
  15. BEGIN
  16.  REPEAT
  17.  WRITE('SUBMIT A REGRESSION COEFFICIENT TO BE CONVERTED TO THE CORRESPONDING');
  18.  WRITELN(' SLOPE ANGLE.');
  19.  READ(RC);
  20.  THETAR := ANTITAN(RC);
  21.  THETAD := RAD2DEGREES(THETAR);
  22.  WRITE(' ANGLE =',THETAR:7:3,' RADIANS | = ',THETAD:7:3,'DEGREES | ');
  23.  WRITELN('TAN[THETA] =',TAN(THETAR):7:3);
  24.  WRITE('  SINE =',SIN(THETAR):7:3);
  25.  WRITELN(' |  ARCSINE = ',ARCSINE(SIN(THETAR)):7:3);
  26.  WRITE('COSINE =',COS(THETAR):7:3);
  27.  WRITELN(' | ARCOSINE = ',ARCOSINE(COS(THETAR)):7:3);
  28.  WRITELN('TRY AGAIN? {"X" = EXIT, ELSE =  CONTINUE}');
  29.  READ(RESPONSE);
  30.  UNTIL RESPONSE = 'X'
  31. END.
  32.  
  33.