Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  PROJECTIL
Language: FORTRAN
Code:
       PROGRAM PROJEC
       REAL HGHTO, HGHT, VELOCO, VELOC, ACCEL, TIME
       ACCEL = -9.807
       PRINT *, 'ENTER THE INITIAL HEIGHT AND VELOCITY:'
       READ *, HGHTO, VELOCO
       PRINT *, 'ENTER TIME AT WHICH TO CALCULATE HEIGHT AND VELOCITY:'
       READ *, TIME
       HGHT = 0.5 * ACCEL * TIME ** 2  +  VELOC * TIME  +  HGHTO
        VELOC = ACCEL * TIME + VELOC
        PRINT *, 'AT TIME ', TIME, ' THE VERTICAL VELOCITY IS ', VELOC
        PRINT *, 'AND THE HEIGHT IS ', HGHT
        END                          

          
          
          
          
          
          
          
Comments: