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