预约成功
(1)可以用转移控制语句使流程从循环体内转移到循环体外，但不允许从循环体外转到循环体内。如下图7.3.1所示。
图7.3.1
(2)循环控制变量在循环体内不能再被赋以新值。
如：
DO 10 I=1，10
I=3*I
10 WRITE(*，*)I
是不允许的。
(3)当循环重复次数为零时，不执行循环体。如：
DO 4 J=4，2，1
4 WRITE(*，100)
6 WRITR(*，200)
STOP
100 FORMAT(2X，’******’)
200 FORMAT(2X，’######’)
END
程序输出结果为： ######
(4)IF块、ELSE IF块、ELSE块可以包含DO语句，但DO循环的范围必须整个部分被分别包括在IF块、ELSE IF块、ELSE块内。
如：
S=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
以上程序就是输入100个整数，要求计算其中正数的阶乘，并求出它们和输入的全部负数之和。
(5)CONTINUE语句。
许多可执行语句可以作为DO循环的终端语句，但GOTO语句、块IF、ELSE、ELSEIF、END IF、算术IF、END等不能作为循环的终端语句。为了使流程引向它的下一个语句继续执行，可以采用CONTINUE语句，它称为继续语句或空语句，是一个可执行语句，但不进行任何操作。如求20!，可如下编程：
DOUBLE PRECISION C
C=1.0
DO 10 N=2.20
C=C*N
10 CONTINUE
WRITE (*，100) C
100 FORMAT(2X，’C=’，D18.12)
END
更多内容访问>> 注册土木工程师(岩土)考试频道 注册土木工程师(岩土)考试论坛 岩土工程师课程试听
·2011年注册土木工程师（岩土）考试辅导招生简章
·岩土工程师辅导现在报名任意专业知识赠送专业知识习题班
·老师辅导每天24小时不限时间随时反复学习……
