Question

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

这些程序具体的是咋运行的！

Answer 1

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入门上都有。

Answer 2

do应当是无论如何都要做一次的意思
while是当条件为真时才做的意思