program j5
integer :: i
integer, parameter ::length=24
real :: g=-9.8, vyi=0,
vxi=0, yi=0, xi=0, vi, theta
character*40 :: prompt
= 'enter vi and theta'
real, dimension(length)
:: y, t, x
print *, prompt
read (*,*) vi,theta
write (7,*) '# shooting
cannon w/ velocity',vi,' angle',theta
theta=theta*6.2831853/360.
vxi=vi*cos(theta)
vyi=vi*sin(theta)
write (7,*) 'y_distance',
' x_distance ', 'time'
do i=1,length
t(i)=i-1
y(i)=yi+vyi*t(i)+.5*g*t(i)**2
x(i)=xi+vxi*t(i)
write
(7,*) y(i), x(i), t(i)
end do
print *, 'vxi=', vxi,
'vyi=', vyi
print *, y
end program j5
Back to Main Page |