This preview shows page 1. Sign up to view the full content.
Unformatted text preview: ! ! A BRIEF DESCRIPTION OF WHAT THE PROGRAM OR FUNCTION DOES program Lab03_CFU_rfelde implicit none real :: Deg, Tan write(*,*)'Input the value of theta in degrees: ' read(*,*) Deg Deg = Deg * (3.141592 / 180.0) if (cos(Deg) >= .00001) then Tan = (sin(Deg) / cos(Deg)) write(*,*) Tan else write(*,*)'Value of cosine(theta) is too close to 0' end if stop end...
View Full Document
This note was uploaded on 10/05/2009 for the course ENGR 117 taught by Professor Staff during the Spring '08 term at Purdue University-West Lafayette.
- Spring '08
- Computer Programming