fortran程序设计

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