编辑代码

program main
implicit none
integer,parameter :: players=3
real :: angle(players)=(/ 30.0, 45.0, 35.0 /)
real :: speed(players)=(/ 25.0, 20.0, 21.0 /)
real :: distance(players)
integer :: i

do i=1,3
    call get_dis(angle(i),speed(i),distance(i))
    write(*,*) "player",i,"distance=",distance(i)
end do

stop
end


subroutine get_dis(angle,speed,distance)
implicit none
real angle,speed,distance,rad,time
rad=angle*3.14/180.0
time=2*speed*sin(rad)/9.8
distance=speed*cos(rad)*time
return
end