【正文】 1991...4131211 ???????????1 0 011 1)1(ddds例 2：求 的值。 2022/8/21 114 當型與直到型循環(huán)的比較 當型循環(huán) 直到型循環(huán) 不同： 先判斷條件 先執(zhí)行循環(huán)體 再執(zhí)行循環(huán)體 再判斷條件 （循環(huán)體至少被 執(zhí)行一次） P A P A 循環(huán)結(jié)構(gòu)關(guān)鍵：⑴條件判斷 ⑵改變條件的語句 2022/8/21 115 用 do語句實現(xiàn)循環(huán) 當循環(huán)的初值、終值和循環(huán)次數(shù)都已知時，可用 do語句實現(xiàn)循環(huán)。 用 do語句實現(xiàn)的循環(huán)稱為 “ do循環(huán) ” 。do循環(huán)是由一個 do語句和循環(huán)體組成。 2022/8/21 116 用 do語句實現(xiàn)循環(huán) 一、一般形式 do s[,] v=e1, e2 [,e3] ┆ 循環(huán)體 s 終端語句 說明： ① s——循環(huán)體 終端語句 的標號 ② v——循環(huán)控制變量（ do變量），可為整型、實型或雙精度 2022/8/21 117 用 do語句實現(xiàn)循環(huán) 一、一般形式 do s[,] v=e1, e2 [,e3] ┆ 循環(huán)體 s 終端語句 說明： ③ e1,e2,e3是整型、實型或雙精度 表達式 e1——循環(huán)變量初值 e2——循環(huán)變量終值 e3——循環(huán)變量增量（步長，默認值： 1） 當 v為整型變量， e3=1時， e3可忽略 例： DO 10,I=1,10,2 DO 100,N=1,5 2022/8/21 118 do循環(huán) 執(zhí)行過程 P103 圖 計算 e1,e2,e3的值 v ← e1 v e2 執(zhí)行循環(huán)體 v←v+e3 Y N 執(zhí)行終端語句 下面的語句 2022/8/21 119 r=MAX(INT((e2e1+e3)/e3),0) v ← v+e3 執(zhí)行過程 P103 圖 并將其轉(zhuǎn)換為 循環(huán)變量的類型 2022/8/21 120 用 do語句實現(xiàn)循環(huán) 例如： 求 1～ 10的累加和。 integer x,sum sum=0 DO 10,x=1,10 sum=sum+x x=x+1 10 continue print*,sum end integer x,sum x= sum=0 10 if() then x=x+1 sum=sum+x goto 10 endif print*,sum end 2022/8/21 121 用 do語句實現(xiàn)循環(huán) 二、執(zhí)行過程（分四種情形） ⑴當 e2e1且 e30 ： ⑵當 e2e1且 e30 ： 2022/8/21 122 用 do語句實現(xiàn)循環(huán) ⑶ 當 e2e1且 e30 ： ⑷當 e2e1且 e30 ： 2022/8/21 123 用 do語句實現(xiàn)循環(huán) 編程如下： do 10 i=1, 30 read*, x 10 if () print*, i, x end 循環(huán)體 例 1：從鍵盤輸入 30個學(xué)生的單科成績，并將其中及格以上的學(xué)生序號和成績打印出來。 2022/8/21 124 用 do語句實現(xiàn)循環(huán) 例 2：打印正弦 sinx的值。（間隔 ，從 0o～360o） 編程如下： do 100 i=0, 3600 x=i/ y=sin(x*) 100 print*, ‘x=‘,x, ‘y=‘, y end 2022/8/21 125 用 do語句實現(xiàn)循環(huán) 說明： ⑴ DO循環(huán)是當型循環(huán) ⑵可用 e1, e2, e3的值求出循環(huán)次數(shù)。 計算公式： r=max(int((e2e1+e3)/e3),0) ① e3＝ 0 則運行時出錯（被零除） 例： do 10,i＝ , r=max(int(61+0/0),0)（ 因為循環(huán)變量 I是整型 ） ② e1e2且 e30 或 e1e2且 e30，則循環(huán)次數(shù)為 0 ⑶ 由于實數(shù)在內(nèi)存中存儲的誤差， v, e1, e2, e3盡可能用整型量。 2022/8/21 126 用 do語句實現(xiàn)循環(huán) 說明： ⑷ e1,e2,e3的值在 do循環(huán)體內(nèi)不會改變，即使給表達式 e1,e2,e3中的變量賦值也不影響循環(huán)次數(shù) 例： m=10 do 10,i=1,m,3 m=100+m print*,i,m 10 continue end r=(101+3)/3=4 2022/8/21 127 用 do語句實現(xiàn)循環(huán) 說明： ⑸循環(huán)終端語句必須是可執(zhí)行語句（但除 goto, 塊 if， else， elseif， endif， end， stop和return語句外）。 ⑹繼續(xù)語句（ continue語句） – 循環(huán)終端語句必須是可執(zhí)行語句。那么，這種作為循環(huán)終端語句的語句具有雙重作用：一是作為循環(huán)終端的標志，二是要完成自身的功能。因此影響了程序的可讀性。 – Fortran用一個專門的語句作為 do循環(huán)的終端語句，即 continue語句，它本身不進行任何機器操作。 2022/8/21 128 用 do語句實現(xiàn)循環(huán) 三、有關(guān) do循環(huán)的規(guī)定 ⑴在循環(huán)體內(nèi)不允許對循環(huán)變量再賦值，但可以引用。 例： do 10,i=20,1,1 i=2*i 不合法 k=2*i 引用 i，合法 print*,i,k 10 continue 2022/8/21 129 例 2: do 100,I=1,10 …… 20 print*,I …… 100 continue if(.) goto 20 例 1： do 10,n=1,100 …… if(n**)goto 20 …… 10 continue …… 20 print*, n， n**2 …… 用 do語句實現(xiàn)循環(huán) 三、有關(guān) do循環(huán)的規(guī)定 ⑵可從 do循環(huán)體內(nèi)轉(zhuǎn)到循環(huán)體外，但不允許從循環(huán)外轉(zhuǎn)到循環(huán)內(nèi)，內(nèi) 外 錯誤 2022/8/21 130 用 do語句實現(xiàn)循環(huán) 三、有關(guān) do循環(huán)的規(guī)定 ⑵當退出 do循環(huán)時，循環(huán)變量仍有定義，其值為離開循環(huán)時，循環(huán)變量的值 – 三種情況 ①循環(huán)正常結(jié)束 v=e1+r*e3 ② 循環(huán)次數(shù)為 0 v=e1 ③ 非正常退出循環(huán) 例： m=100 do 10,i=1,100,3 m=10+m print*,i,m if()goto 20 10 continue 20 print*,i,m end 2022/8/21 131 用 do語句實現(xiàn)循環(huán) 例：計算 100 100 100 n=∑k， ∑k2， ∑1/k 的值。 k=1 k=1 k=1 編程如下： c to pute n, m and s. n=0 m=0 s= do 50 k=1, 100 n=n+k m=m+k*k s=s+ 50 continue print*, n, m, s end 2022/8/21 132 用 do語句實現(xiàn)循環(huán) 四、 do循環(huán)的嵌套 在一個 do循環(huán)中還可以包含一套或多套 完整的do循環(huán)，這就是 do循環(huán)的嵌套。 一般形式（以雙重循環(huán)為例） do 10 i=1, 10 ┆ do 20 j=1, 10 ┆ 20 continue ┆ 10 continue 2022/8/21 133 用 do語句實現(xiàn)循環(huán) 五、關(guān)于 do循環(huán)嵌套的規(guī)定 ⑴內(nèi)外循環(huán) 不允許 交叉。 do 10 i=1, 10 ┆ do 20 j=1, 10 ┆ 10 continue ┆ 20 continue 2022/8/21 134 用 do語句實現(xiàn)循環(huán) 五、關(guān)于 do循環(huán)嵌套的規(guī)定 ⑵在一個程序單位中， 并列的 do循環(huán)可用同名循環(huán)變量，而 嵌套的 do循環(huán)不允用同一變量作為循環(huán)變量 。 例： do 10 i=1, 10 ┆ do 20 i=1, 10 ┆ 20 continue ┆ 10 continue 使循環(huán)控制產(chǎn)生混亂 2022/8/21 135 用 do語句實現(xiàn)循環(huán) 例：打印 “ 九九表 ” 。 編程如下： do 10 i=1, 9 do 20 j=1, 9 k=i*j print*, i,‘*‘,j, ?=?,k 20 continue print *,‘ ‘ 10 continue end 2022/8/21 136 用 do語句實現(xiàn)循環(huán) 六、三種循環(huán)形式的選擇 ⑴循環(huán)次數(shù)可事先確定，優(yōu)先用 do循環(huán) ⑵若循環(huán)體可能一次也不執(zhí)行，則優(yōu)先用當型循環(huán) 若循環(huán)體至少執(zhí)行一次，則當型、直到型循環(huán)都可 2022/8/21 137 課后練習(xí)題 P126：第二、三、八題。 2022/8/21 138 第六章 Fortran的數(shù)據(jù)結(jié)構(gòu) 2022/8/21 139 程序中的數(shù)據(jù)結(jié)構(gòu) 程序代數(shù)表達式 : 程序 = 算法 + 數(shù)據(jù)結(jié)構(gòu) 對于同一個問題的求解，即一個程序的實現(xiàn)，可以采用不同的數(shù)據(jù)結(jié)構(gòu)和不同的算法。選擇合適的數(shù)據(jù)結(jié)構(gòu)可以降低算法的復(fù)雜度。 2022/8/21 140 程序中的數(shù)據(jù)結(jié)構(gòu) 在計算機高級語言中用數(shù)據(jù)類型來表示不同的數(shù)據(jù)結(jié)構(gòu)。 數(shù)據(jù)結(jié)構(gòu)一般有以下三類： 基本類型 （ Fortran支持） 構(gòu)造類型 （ Fortran支持） 指針類型 （ Fortran90支