Professor Diomar Cesar Lobao

Universidade Federal Fluminense-Volta Redonda, RJ, Brasil

Diomar Cesar


Dept. Ciências Exatas - Exact Science Dept.

Search

trig.f

c<html>
c<head><title>trig.f</title></head>
c<body>
c<pre>
      program trig
c
c       John Mahaffy,  Penn State University, CmpSc 201 Example
c       1/26/96
c
C
C    Program to Calculate SIN and COS of ANGLE
C    Given in Degrees
c
C    angdeg - angle in degrees  (INPUT)
*    angrad - angle in radians
c    pi     -  3.14159....
c    sinang - sin ( angrad )  OUTPUT
c    cosang - cos ( angrad )  OUTPUT
c <a name="implict"><font color="FF0000"> 
      implicit none
c </font></a>
      real angrad, angdeg, pi, sinang, cosang
      print *, 'Angle in Degrees?'
      read *, angdeg
c
c       Convert the Angle to Radians
c      <a name=2><font color=FF0000>
          pi=asin(1.0)*2.0
c         </font>
          angrad=angdeg*pi/180.0
c
c       Calculate Trig Functions
c     <a name=1><font color=ff00f0>
      sinang=sin(angrad)
c     </font>
      cosang=cos(angrad)
c<a name="print"><font color="FF0000">
      print *, 'ANGLE =',angdeg,' degrees =',angrad,' radians'
      print *, 'SIN(ANGLE) = ', sinang
      print *, 'COS(ANGLE) = ', cosang
c</font></a>
      stop
      end
c</pre>
c</body>
c</html>
Skip to content