岩土工程师辅导资料：DO循环的有关规定

　　(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小时不限时间随时反复学习……