Table of Speed versus Height The velocity of an initially stationary ball can be
ID: 3855307 • Letter: T
Question
Table of Speed versus Height The velocity of an initially stationary ball can be calculated as a function of the distance it has fallen from the equation v = squareroot 2 g delta h where g is the acceleration due to gravity and delta h is the distance that the ball has fallen. If g is in units of m/s^2 and delta h is in units of meters, then the velocity will be in units of m/s. Write a program to create a table of the velocity of the ball as a function of how far it has fallen for distances from 0 to 200 m in steps of 10 m. The program should properly label each of the columns in the table.Explanation / Answer
program calling_func
real :: a
a =velocity(9.8)
end program calling_func
! this function computes the area of a circle with radius r
function velocity (r)
! function result
implicit none
! dummy arguments
real :: velocity
! local variables
real :: r
real :: ve
integer :: n
do n = 0,200,10
ve= SQRT(2*9.8*n)
print*, "Velocity at distance ",n," is", ve
end do
end function velocity
=============================
Velocity at distance 0 is 0.00000000E+00
Velocity at distance 10 is 14.0000000
Velocity at distance 20 is 19.7989902
Velocity at distance 30 is 24.2487106
Velocity at distance 40 is 28.0000000
Velocity at distance 50 is 31.3049526
Velocity at distance 60 is 34.2928581
Velocity at distance 70 is 37.0405197
Velocity at distance 80 is 39.5979805
Velocity at distance 90 is 42.0000000
Velocity at distance 100 is 44.2718887
Velocity at distance 110 is 46.4327469
Velocity at distance 120 is 48.4974213
Velocity at distance 130 is 50.4777184
Velocity at distance 140 is 52.3832016
Velocity at distance 150 is 54.2217674
Velocity at distance 160 is 56.0000000
Velocity at distance 170 is 57.7234802
Velocity at distance 180 is 59.3969688
Velocity at distance 190 is 61.0245857
Velocity at distance 200 is 62.6099052
Related Questions
Navigate
Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.