C     Find the height, in feet, of an object given the observed angle to
C     the highest point on the object and the distance, in paces, from
C     the base of the object to the point at which that angle was
C     measurement was made.  The "observer" is assumed to be six feet
C     high.  Also report the height if the angle was off by plus or
C     minus five degrees.  Paces are assumed to be three feet.
C                           
C          ---   +---------+
C           |    |         | \
C           |    | +-+ +-+ |  \
C           |    | | | | | |   \
C           |    | +-+ +-+ |    \
C           |    |         |     \
C         height |         | theta\
C           |    |         |------ o
C           |    |         |      \|/
C           |    |         |       | 
C           |    |         |      / \
C          --- --+---------+---------------------
C                          |-paces-|
C                                   
C
C     John Schneider
C     CptS 203, HW 2, problem 2
C-------------------------------------------------------------------------

      program height
      implicit none
      real paces, high, angle, pi

      pi = acos(-1.0)

      print *,'Enter the angle (in degrees) to the highest point.'
      read *, angle

C.....Get distance in paces and convert to feet.
      print *,'Enter distance to base of object in paces (3 feet/pace).'
      read *, paces
      paces = paces * 3.0

C.....Result if observed angle is right on.  Must convert angle to radians.
      high = paces * tan(angle*pi/180.) + 6.0
      print *, 'Using observed angle, height is: ',high,' feet.'

C.....Result if angle is off by plus of minus five degrees.
      high = paces * tan((angle-5.0)*pi/180.) + 6.0
      print *, 'If true angle five less than observed, height is: ',
     &     high,' feet.'

      high = paces * tan((angle+5.0)*pi/180.) + 6.0
      print *, 'If true angle five more than observed, height is: ',
     &     high,' feet.'

      stop
      end