part 3
Adiff=abs(Diff)
if (Diffɬ) then
Miss="Far"
else
Miss="Short"
end if
if (Adiff<=Alpha) then
exit
else
write (unit=*,fmt="(2x,' you missed by ',f6.1,' meters ',a5)") Adiff,Miss
end if
end do
print *," !!!!!!!!!!!!"
print *," You get it in ",Guess," guesses"
print *," !!!!!!!!!!!!"
print *,"calculates trajectory and save to file"
Previous slide
Next slide
Back to first slide
View graphic version