fortran程序设计1、国际象棋:第一格放1粒米,第二格放2粒,第三格放4粒,以此类推.共放多少吨米?2、猜身高:共猜五次,最后不管有没有猜出,均出正确身高(都可用循环结构)
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/17 11:41:25
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