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

fortran程序设计1、国际象棋:第一格放1粒米,第二格放2粒,第三格放4粒,以此类推.共放多少吨米?2、猜身高:共猜五次,最后不管有没有猜出,均出正确身高(都可用循环结构) 第一题K=0DO 10 I=1,2DO 10 J=1,210 K=K+I/JWRITE(*,*)KEND第二题K=0DO 10 I=1,6,2DO 10 J=1,6,3IF(K.LT.I*J)K=I*J10 CONTINUEWRITE(*,*)KEND这个是fortran语言的程序设计,但是我几乎不怎么理解,以前学的是VB恳请知道的同学朋 fortran fortran里面CA=EA(N+1, FORTRAN语言中,FORMAT(1X,E8. FORTRAN 101 format(1X,F7. 在女子国际象棋比赛中规定,胜得1分,负得零分,和棋各得0.在1993年女子国际象棋比赛中,我国女子国际象棋一元一次方程解、、、 fortran中do循环应用问题.比如我有一组数据,2,4,6,8,10,12,能不能用fortran写一个循环程序,让第一次循环,输出的是第一个数2减半的数(也就是1),第二次循环,输出的是前面两个数据2,4,减半的数,第 fortran 中 read(1,*)(TOUT(I),I=1, fortran循环, fortran 中, fortran中的:: fortran rec fortran 欧拉数e怎么表示如题,fortran中 欧拉数e怎么表示,比如1/e+1怎么表示 求fortran大神帮我编一个Fortran程序计算无理数π的1-100的小数位, 程序设计计算S=1+2+3+------+100的值 C程序设计:输入2个正整数m和n(1 在女子国际象棋比赛中,胜得1分,负得零分,和棋各得0.在1993年女子国际象棋比赛在女子国际象棋比赛中规定,胜得1分,负得零分,和棋各得0.在1993年女子国际象棋比赛中,我国女子国际象棋大师谢