Question

Write a program to print five tables (5) displaying the range that a ball would travel when it is thrown with an initial velocity v0 and angle θ.

One table should be calculated for each of the initial velocities: 0, 1, 10, 100, and 1000 meters per second.

The table should have one row for e very 5 degrees for angles between 5 and 85 degrees inclusive.

Note that this assignment does not require a READ statement since all data required can be constructed into the program.

Nested DO loops are required to solve this problem. Do not unnecessarily duplicate code.

Columns should have appropriate headings.

White space should separate the tables.

Do not use formatted Output for the program.

implicit none

! Declare constants
REAL, PARAMETER :: gravity = 9.81, pi=3.14159

! Declare variables
REAL :: velocity_initial
REAL :: range, alpha
INTEGER :: angle

! Display initial header
   WRITE (*,*)
   WRITE (*,*) "displaying the range that a ball would travel"
   WRITE (*,*)

! Initialize variables
velocity_initial = 0, 1, 10, 100 ,1000

! loop over all specified angles

loop: do angle = 5, 85, 5

! Covert angle(degree) to to radians
  
   alpha = angle * pi / 180.0

! Calculate range of a ball would travel

   range = (-2. * velocity_initial**2 / gravity) * cos(alpha) * sin(alpha)

! Write the range for this angle
   WRITE (*,*) 'Angle = ', angle, ' degree; Range = ', range, &
' meters'

END DO loop

END program ballistic

fortran

I shoul display result by initial velocity 0 1 100 1000

but I am not sure how to display all of them

i can only do for one value

i think i should use loop..

Comment

Answer 1

Code program ball ! constant real values > gravitation, pi val ! real values> angles, myalpha implicit none ! Declaring the constant real values REAL, PARAMETER :: gravitation-9.81, pi_val-3.14159 !variabledeclarations REAL :: velocities (5) REAL:: myrange, myalpha INTEGER :: angles, i REAL :: maxdeg, maxrange !variable Initialization maxdeg = 5. maxrange0 velocities = (/0, 1, 10, 100, 1000/) ! Displaying result WRITE (*, *) WRITE (*, *) "Displaying the range of the ball will travel" WRITE (*, *) ! looping over all the given initial_velocities loop1: do i-1,5 WRITE WRITE WRITE (*, *) (*,*) (*, *) "TABLE " , ! looping over all the given initial_angles loop: do angles -5, 85, !5 ! Coverting angles in degree to the radian values myalpha - angles pi_val / 180.0 ! Calculating the range of the ball myrange 2 velo sin(myalpha) (-2. *velocities (i)**2/gravitation) cos (myalpha) ! Writing the range for angles WRITE (Angle angles, degree: Range - ', myrange, & ' meters' check the angles range between 0 and 85 ! if loop IF angles < 0 .or. angles > 85) then

!Display a warning WRITE (*, *) "Error, angle range invalid" CYCLE !end of If END IEF !Comparing range to previous max range. If the range is large ! saving it and angle's occurance. ! if loop IF myrange > maxrange THEN maxrangemyrange maxdegangles ! end of If END I ! end of Do END DO loop ! Skiping a line ! printing out max range and angle of occurrance. WRITE (*, *) '' WRITE (*, *) 'Maximum range -', maxrange,' END DO loop1 end program ball ', maxdeg, 'degrees" Output Success time: 0 memory: 3924 signal:0 Displaying the range of the ball will travel TABLE 1 5 degree; Range= -0.00000000E+00 meters 10 degree; Range# -0.00000000E+00 meters 15 degree; Range# -0.00000000E+00 meters 20 degree; Range= -0.00000000E+00 meters 25 degree; Range= -0.00000000E+00 meters 30 degree; Range= -0.00000000e+00 meters Angle Angle Angle- Angle Angle

Angle Angle = Angle Angle- Angle Angle Angle Angle Angle Angle Angle = 35 degree; Range= -0.00000000E+00 meters 40 degree; Range-0.000000E+00 meters egree; Range0.00000000E+00 meters 50 degree; Range0.00000E+00 meters 55 degree; Range0.0000E+00 meters 60 degree; Range0.0000000E+00 meters 65 degree; Range0.00000E+00 meters 70 degree; Range0.00000000E+00 meters 75 degree; Range0.00000000E+00 meters 80 degree; Range0.00000000E+00 meters = -0.00000000E+00 meters 85 degree; Range TABLE 2 Angle - Angle - Angle - Angle - Angle - Angle - Angle - Angle Angle - Angle- 5 degree; Range1.77011248E-02 meters 10 degree; Range# -3.48644108E-02 meters 15 degree; Range -5.09683602E-02 meters 20 degree; Range-6.55236617E-02 meters 25 degree; Range= -7.80880675E-02 meters 30 degree; Range8.82798135E-02 meters 35 degree; Range9.57892239E-02 meters 40 degree; Range0.100388125 45 degree; Range..-0.101936795 50 degree; Range.100388177 55 degree; Range9.57893059E-02 meters meters meters meters Angle Angle Angle Angle = Angle 60 degree; Range# -8.82799327E-02 meters 65 degree; Range= 70 degree; Range 75 degree; Range= -5.09685948 E-02 meters 80 degree; Range3.48646492E-02 meters 85 degree; Range 7.80882388E-02 meters 6.55238628E-02 meters # -1.77013893E-02 meters Maximum range .00000000E+00 at 5.00000000 degrees

TABLE 3 Angle Angle 5 degree; Range1.77011251 10 degree; Range# -3.48644137 15 degree; Range# -5.09683657 20 degree; Range -6.55236721 25 degree; Range# -7.80880737 30 degree; Range8.82798195 35 degree; Range-9.57892227 40 degree; Range-10.0388126 45 degree Range-10.1936798 50 degree; Range10.0388174 55 degree; Range9.57893085 60 degree; Range8.82799435 65 degree; Range7.80882406 70 degree; Range6.55238628 75 degree; Range5.09685993 80 degree; Range3.48646498 85 degree; Range1.77013910 meters meters meters meters meters meters meters meters meters meters meters meters meters meters meters meters meters Angle - Angle - Angle - Angle - Angle Angle - Angle - Angle - Angle Maximum range 0.00000000E+00 at 5.00000000 degrees TABLE 4 5 degree; Range# -177.011246 10 degree; Range# -348.644104 15 degree; Range# -509.683594 20 degree; Range-655.236633 25 degree; Range-780.880676 30 degree; Range-882.798096 meters meters meters meterS meters meters Angle Angle Angle Angle Angle Angle Angle- 35 degree; Range-957.892151 40 degree; Range-1003.88123 45 degree; Range-1019.36792 50 degree; Range1003.88165 meters meters meters meters

Angle- Angle- Angle Angle Angle Angle Angle 55 degree; Range957.893005 60 degree; Range882.799316 65 degree; Range= -780.882385 70 degree; Range655.238586 75 degree; Range509.685913 348.646484 85 degree; Range177.013901 Maximum range .00000000E+00 at 5.00000000 meters meters meters meters meters meters meters 80 degree; Range - degrees TABLE Angle Angle Angle Angle Angle- Angle Angle Angle Angle Angle Angle Angle Angle Angle Angle- Angle- Angle- 5 degree; Range17701.1250 10 degree; Range-34864.4102 15 degree; Range-50968.3633 20 degree; Range-65523.6680 25 degree; Range= -78088.0703 30 degree; Range88279.8125 35 degree; Range95789.2266 40 degree; Range100388.133 45 degree; Range# -101936.789 50 degree; Range-100388.172 55 degree; Range-95789.3125 60 degree; Range-88279.9375 65 degree; Range-78088.2422 70 degree; Range65523.8633 75 degree; Range50968.5938 80 degree; Range34864.6484 85 degree; Range17701.3887 meters meters meters meters meters meters meters meters meters meters meters meters meters meters meters meters meters
Executable Code

program ball

! constant real values > gravitation, pi_val

! real values > angles, myalpha

implicit none

! Declaring the constant real values

REAL, PARAMETER :: gravitation = 9.81, pi_val=3.14159

! variable declarations

REAL :: velocities(5)

REAL :: myrange, myalpha

INTEGER :: angles, i

REAL :: maxdeg, maxrange

! variable Initialization

maxdeg = 5.

maxrange = 0

velocities = (/0, 1, 10, 100, 1000/)

! Displaying result

WRITE (*,*)

    WRITE (*,*) "Displaying the range of the ball will travel"

    WRITE (*,*)

! looping over all the given initial_velocities

loop1: do i=1,5

    WRITE (*,*)

    WRITE (*,*) "TABLE",i

    WRITE (*,*)

! looping over all the given initial_angles

loop: do angles = 5, 85, 5

! Coverting angles in degree to the radian values

myalpha = angles * pi_val / 180.0

! Calculating the range of the ball

myrange = (-2. * velocities(i)**2 / gravitation) * cos(myalpha) * sin(myalpha)

! Writing the range for angles

    WRITE (*,*) 'Angle = ', angles, ' degree; Range = ', myrange, &

     ' meters'

! check the angles range between 0 and 85

     ! if loop

    IF ( angles < 0 .or. angles > 85 ) then

          !Display a warning

          WRITE (*,*) "Error, angle range invalid"

CYCLE

     ! end of If

    END IF

! Comparing range to previous max range. If the range is large

! saving it and angle's occurance.

     ! if loop

     IF ( myrange > maxrange ) THEN

     maxrange = myrange

     maxdeg = angles

     ! end of If

     END IF

! end of Do

END DO loop

! Skiping a line

! printing out max range and angle of occurrance.

WRITE (*,*) ' '

WRITE (*,*) 'Maximum range = ', maxrange, ' at ', maxdeg, 'degrees'

END DO loop1

end program ball