例：DO 3 I=1,20 IF(I>10)I=I+1 X=5*I ..... 3 CONTINUE 在這個循環里，能不能實現IF語句？或者用其它的方法來實現？
1 回答
素胚勾勒不出你
TA貢獻1827條經驗 獲得超9個贊
DO+計數器變量
的結構，是Fortran里面非常特殊的一種循環結構，也是許多有其它語言基礎的人開始學Fortran時很容易迷惑不解的地方。
DO
label
I=min,
max,
step
……
……
label
continue
或者
DO
I=min,
max,
step
……
……
END
DO
都是DO+計數器變量
結構，它們的執行過程可能出乎許多人的意料，是先根據
(max-min)/step
+1
計算好要循環多少次，然后一股腦的執行這么多次。你可以在循環體中引用這個變量，你甚至可以用非整型變量來當計數器（編譯器自動給你進行變量類型轉換，然后按整型計算次數。）
我這樣解釋一下原理，你就應該明白為什么不允許你在循環體內隨便更改計數器變量了吧……這一特性很奇怪，不過也確實為Fortran帶來了方便手工/自動并行化和編譯器級別的自動優化加速等等好處。
=============================================================
大部分情況下，你應該利用上述特性，更高級一點的還有隱DO循環等。但如果你確實需要在循環體中改寫計數器變量的值，那么不應該用上述“DO+計數器變量”的循環結構，而應該是
DO
……
……
if(循環終止判斷)
exit
END
DO
這種無計數器變量的DO循環結構。你可以把你要寫的循環改寫成類似于
+++++++++++++++++++++++++
i
=
1
DO
if(i>10)
i=i+1
x=5*i
……
i=i+1
if(i>20)
exit
END
DO
+++++++++++++++++++++++++
或者，如果你還在看譚浩強那本Fortran77的破書的話，趁早扔掉改學Fortran90/95吧，在Fortran90以后開始支持——
DO
WHILE
(判斷)
……
……
END
DO
的結構，類似于C/C++語言的while結構，用這種結構可以寫得更簡單
+++++++++++++++++++++++++
i=1
DO
WHILE
(i
<=
20)
if(i>10)
i=i+1
x=5*i
……
i=i+1
END
DO
+++++++++++++++++++++++++
事實上上述exit和do
while都是Fortran77標準中沒有的，Fortran90標準才有。
- 1 回答
- 0 關注
- 238 瀏覽
添加回答
舉報
0/150
提交
取消