fortran程序设计1、国际象棋:第一格放1粒米,第二格放2粒,第三格放4粒,以此类推.共放多少吨米?2、猜身高:共猜五次,最后不管有没有猜出,均出正确身高(都可用循环结构)
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/20 16:28:27
![fortran程序设计1、国际象棋:第一格放1粒米,第二格放2粒,第三格放4粒,以此类推.共放多少吨米?2、猜身高:共猜五次,最后不管有没有猜出,均出正确身高(都可用循环结构)](/uploads/image/z/9622102-22-2.jpg?t=fortran%E7%A8%8B%E5%BA%8F%E8%AE%BE%E8%AE%A11%E3%80%81%E5%9B%BD%E9%99%85%E8%B1%A1%E6%A3%8B%EF%BC%9A%E7%AC%AC%E4%B8%80%E6%A0%BC%E6%94%BE1%E7%B2%92%E7%B1%B3%2C%E7%AC%AC%E4%BA%8C%E6%A0%BC%E6%94%BE2%E7%B2%92%2C%E7%AC%AC%E4%B8%89%E6%A0%BC%E6%94%BE4%E7%B2%92%2C%E4%BB%A5%E6%AD%A4%E7%B1%BB%E6%8E%A8.%E5%85%B1%E6%94%BE%E5%A4%9A%E5%B0%91%E5%90%A8%E7%B1%B3%3F2%E3%80%81%E7%8C%9C%E8%BA%AB%E9%AB%98%3A%E5%85%B1%E7%8C%9C%E4%BA%94%E6%AC%A1%2C%E6%9C%80%E5%90%8E%E4%B8%8D%E7%AE%A1%E6%9C%89%E6%B2%A1%E6%9C%89%E7%8C%9C%E5%87%BA%2C%E5%9D%87%E5%87%BA%E6%AD%A3%E7%A1%AE%E8%BA%AB%E9%AB%98%EF%BC%88%E9%83%BD%E5%8F%AF%E7%94%A8%E5%BE%AA%E7%8E%AF%E7%BB%93%E6%9E%84%EF%BC%89)
fortran程序设计1、国际象棋:第一格放1粒米,第二格放2粒,第三格放4粒,以此类推.共放多少吨米?2、猜身高:共猜五次,最后不管有没有猜出,均出正确身高(都可用循环结构)
fortran程序设计
1、国际象棋:第一格放1粒米,第二格放2粒,第三格放4粒,以此类推.共放多少吨米?
2、猜身高:共猜五次,最后不管有没有猜出,均出正确身高
(都可用循环结构)
fortran程序设计1、国际象棋:第一格放1粒米,第二格放2粒,第三格放4粒,以此类推.共放多少吨米?2、猜身高:共猜五次,最后不管有没有猜出,均出正确身高(都可用循环结构)
1.
program RiceProblem
integer Ngrid,NumPerTon
real TonNum
double precision Sum
Ngrid=64
NumPerTon=5d7
Sum=0d0
do i=1,Ngrid
Sum=Sum+2.0d0**(i-1)
enddo
TonNum=Sum/NumPerTon
write(*,*)TonNum
end
2.
program TallProblem
integer Time
real Tall,Guess
read(*,*) Tall
Time=5d0
do i=1,Time
write(*,*)"try the",i,"th time:"
read(*,*) Guess
if(Guess.eq.Tall) then
write(*,*) 'Success!'
goto 10
endif
enddo
write(*,*) 'What a pity!'
10 write(*,*)Tall
end