(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小時不限時間隨時反復學習……