作业帮fortran语言中的do语句、write语句分别具体杂用最好有个例子,结合例子,一步一步说明下,比如这个例子：S=0.0DO 10 I=1,100T=1.0READ(*,*)NIF(N.GT.0)THENDO 20 K=1,N20 T=T*KELSET=NEND IF 10 S=S+TWRITE(*,*)SEND 又如：WRIT
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/29 13:25:01
fortran语言中的do语句、write语句分别具体杂用最好有个例子,结合例子,一步一步说明下,比如这个例子：S=0.0DO 10 I=1,100T=1.0READ(*,*)NIF(N.GT.0)THENDO 20 K=1,N20 T=T*KELSET=NEND IF 10 S=S+TWRITE(*,*)SEND 又如：WRIT
fortran语言中的do语句、write语句分别具体杂用
最好有个例子,结合例子,一步一步说明下,
比如这个例子：S=0.0
DO 10 I=1,100
T=1.0
READ(*,*)N
IF(N.GT.0)THEN
DO 20 K=1,N
20 T=T*K
ELSE
T=N
END IF
10 S=S+T
WRITE(*,*)S
END
又如：WRITE语句中的一个例子
INTEGER A(3,2)
READ(*,*)((A(I,J),I=1,3),J=1,2)
WRITE(*,*)A
WRITE(*,100)((A(I,J),J=1,2),I=1,3)
WRITE(*,200)((A(I,J),I=1,3),J=1,2)
100 FORMAT(1X,2I4)
200 FORMAT(1X,3I4)
END
这些程序具体的是咋运行的!
fortran语言中的do语句、write语句分别具体杂用最好有个例子,结合例子,一步一步说明下,比如这个例子：S=0.0DO 10 I=1,100T=1.0READ(*,*)NIF(N.GT.0)THENDO 20 K=1,N20 T=T*KELSET=NEND IF 10 S=S+TWRITE(*,*)SEND 又如：WRIT
DO 10 I=1,100
I从1循环到100
循环体到行号10为止,包含行号10.即
10 S=S+T
内嵌循环
DO 20 K=1,N
20 T=T*K
很明显是计算阶乘的
WRITE(*,100)((A(I,J),J=1,2),I=1,3)
第一个星号表示使用默认输出设备,即显示器
100表示输出格式为行号100的语句,即
100 FORMAT(1X,2I4)
这几个格式控制符我记不清了,一般的Fortran手册都有
后面((A(I,J),J=1,2),I=1,3)是输出内容
这些问题都很基本,在一般的Fortran入门上都有.