Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  circle
Language: FORTRAN
Code:
!First version UD @ uom 19/03/19 at 11:45
!Last version UD @ uom 19/03/19 at 12:00


  PROGRAM circle
     IMPLICIT NONE
     
      REAL :: r, theta, pi, theta_in_radians
       pi = ATAN(1.0)*4.0
       PRINT*, "Type in r and Theta (in degrees)"
       READ*, r, theta
       theta_in_radians = (theta/180.0)*pi
       PRINT*, "( x,y ) is ",r*COS(theta_in_radians),& ",",r*SIN(theta_in_radians)," )"
    END PROGRAM circle
Comments: