作者Hydrisk (小辛苦)
看板Yup00-02
标题Re: 斜抛物体题目
时间Mon Jun 7 11:43:42 2004
program hk
implicit none
integer :: j
real :: V
real :: Vx,Vy,t,Dx,Dy
write(*,*)"请输入速度"
read(*,*)V
do j=1,90
call final( V,j,Vx,Vy,t,Dx,Dy )
write(*,*)'当角度为',j,'度时'
write(*,*)'水平速度为',Vx
write(*,*)'垂直速度为',Vy
write(*,*)'飞行时间为',t
write(*,*)'飞行距离为',Dx
write(*,*)'最大高度为',Dy
end do
stop
end
subroutine final( V,j,Vx,Vy,t,Dx,Dy )
implicit none
integer :: j
real :: V,Vx,Vy,t,Dx,Dy
real, parameter :: pi=3.14159
real, parameter :: G=9.81
Vx = V*cos(j*pi/180)
Vy = V*sin(j*pi/180)
t = 2*V*sin(j*pi/180)/G
Dx = V**2*sin(2*j*pi/180)/G
Dy = V**2*sin(j*pi/180)*sin(j*pi/180)/G/2
return
end
※ 引述《Hydrisk (小辛苦)》之铭言：
: program hk
: implicit none
: integer :: j
: real :: V
: real :: Vx,Vy,t,Dx,Dy
: write(*,*)"请输入速度"
: read(*,*)V
: do j=1,90
: call final( V,j,Vx,Vy,t,Dx,Dy )
: write(*,*)'当角度为',j,'度时'
: write(*,*)'水平速度为',Vx
: write(*,*)'垂直速度为',Vy
: write(*,*)'飞行时间为',t
: write(*,*)'飞行距离为',Dx
: write(*,*)'最大高度为',Dy
: end do
: end
: stop
: subroutine final( V,j,Vx,Vy,t,Dx,Dy )
: implicit none
: integer :: j
: real :: Vx,Vy,t,Dx,Dy
: real, parameter :: pi=3.14159
: real, parameter :: G=9.81
: Vx = V*cos(j*pi/90)
: Vy = V*sin(j*pi/90)
: t = 2*V*sin(j*pi/90)/G
: Dx = V**2*sin(2*i*pi/90)/G
: Dy = V**2*sin(j*pi/90)*sin(i*pi/90)/G/2
: return
: end
: ※ 引述《Hydrisk (小辛苦)》之铭言：
: : program hk
: : implicit none
: : real :: V
: : write(*,*)"请输入速度"
: : read(*,*)V
: : do i=1,90
: : write(*,*)"当角度为",i,"度时"
: : write(*,*)"水平速度为"Vx
: : write(*,*)"垂直速度为"Vy
: : write(*,*)"飞行时间为"t
: : write(*,*)"飞行距离为"Dx
: : write(*,*)"最大高度为"Dy
: : end do
: : subroutine final( angle, rad )
: : implicit none
: : integer :: i
: : real :: Vx,Vy,t,Dx,Dy
: : real, parameter :: pi=3.14159
: : real, parameter :: G=9.81
: : Vx = V*cos(i*pi/90)
: : Vy = V*sin(i*pi/90)
: : t = 2*V*sin(i*pi/90)/G
: : Dx = V**2*sin(2*i*pi/90)/G
: : Dy = V**2*sin(i*pi/90)*sin(i*pi/90)/G/2
: : return
: : end
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.136.202.9