【正文】 數(shù)據(jù)打印在右端，左補(bǔ)空格。 2022/8/21 50 簡(jiǎn)單的輸入語(yǔ)句 二、表控格式輸入語(yǔ)句 一般格式： read ﹡, 〈 輸入表列 〉 read (﹡,﹡) 〈 輸入表列 〉 例 1： read ﹡,a, b （若 a=, b=） 鍵盤輸入： ,↙ 2022/8/21 51 簡(jiǎn)單的輸入語(yǔ)句 例 2： read ﹡,x,k （若 x=,k=200） 鍵盤輸入： ,200↙ 例 3： read ﹡,x,y,z （若 x=,y=,z=） read ﹡,i,j （若 i=5,j=10） 鍵盤輸入： ,↙ 5,10↙ 2022/8/21 52 簡(jiǎn)單的輸入語(yǔ)句 注意幾點(diǎn)： ⑴輸入數(shù)據(jù)的個(gè)數(shù)不得少于 read語(yǔ)句中變量的個(gè)數(shù)，但多余的數(shù)據(jù)也不起作用。） 2022/8/21 55 參數(shù)語(yǔ)句（ parameter語(yǔ)句） 一、 parameter語(yǔ)句的功能 為常量命名，即用一個(gè)符號(hào)代表一個(gè)常量。 2022/8/21 58 pause語(yǔ)句 , stop語(yǔ)句 , end語(yǔ)句 一、 pause語(yǔ)句 ⒈一般形式 Pause [n] 注： n為 1～ 5位正整數(shù)或字符常量。 print*,s,h end 2022/8/21 60 pause語(yǔ)句 , stop語(yǔ)句 , end語(yǔ)句 二、 stop語(yǔ)句 ⒈一般形式 stop [n] 注： n為 1～ 5位正整數(shù)或字符常量。 程序 =數(shù)據(jù)結(jié)構(gòu) +算法 即 “ 程序就是在數(shù)據(jù)的某些特定的表示方式和結(jié)構(gòu)的基礎(chǔ)上，對(duì)抽象算法的具體描述。 基本思想： 把一個(gè)需要求解的復(fù)雜問(wèn)題分為若干個(gè)模塊來(lái)處理，每個(gè)模塊處理一個(gè)子問(wèn)題；設(shè)計(jì)時(shí)遵循 自頂向下 、 逐步細(xì)化 、 模塊化設(shè)計(jì) 和 結(jié)構(gòu)化編碼 的原則。 模塊化設(shè)計(jì) 將一個(gè)復(fù)雜問(wèn)題的程序分為若干個(gè)程序模塊，每個(gè)模塊完成一項(xiàng)特定功能；其中有一個(gè) 主模塊 和若干個(gè) 子模塊 ，主模塊控制各個(gè)子模塊來(lái)實(shí)現(xiàn)整個(gè)程序的功能。 規(guī)定一個(gè)對(duì)象的函數(shù)可以訪問(wèn)另一對(duì)象的函數(shù) ， 但一個(gè)對(duì)象的數(shù)據(jù)不能應(yīng)用于另一對(duì)象的函數(shù)中 。 ⑵確定性 ——方法步驟是明確的。） 2022/8/21 69 算法及其表示方法 Fortran是結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)言，每個(gè)程序單位可由三種基本結(jié)構(gòu)組成： ⑴順序結(jié)構(gòu) ⑵分支選擇結(jié)構(gòu) ⑶循環(huán)結(jié)構(gòu) 實(shí)踐證明，任何復(fù)雜的問(wèn)題都可以用這三種基本結(jié)構(gòu)來(lái)描述。 A B 2022/8/21 71 算法及其表示方法 例：若 a=， b=，求 a+b的平方。 ①當(dāng)型循環(huán)（ P為條件， A循環(huán)體） 如：若條件 P成立，則執(zhí)行循環(huán)體 A，否則跳出循環(huán)體。 一、關(guān)系運(yùn)算符 （ P80 表 41） .gt. （大于） .ge. （大于等于） .eq. （等于） .lt. （小于） .le. （小于等于） .ne. （不等于） 2022/8/21 76 關(guān)系表達(dá)式 二、關(guān)系表達(dá)式的一般形式 〈 算術(shù)量 〉〈 關(guān)系運(yùn)算符 〉〈 算術(shù)量 〉 即： ⑴關(guān)系表達(dá)式是由關(guān)系運(yùn)算符將兩個(gè)算術(shù)量連接起來(lái)的式子。 2022/8/21 80 邏輯表達(dá)式 一、邏輯表達(dá)式的一般形式 〈 邏輯量 〉〈 邏輯運(yùn)算符 〉〈 邏輯量 〉 即： ⑴邏輯表達(dá)式是由邏輯運(yùn)算符將兩個(gè)邏輯量連接起來(lái)的式子。 邏輯變量可以通過(guò)賦值語(yǔ)句來(lái)接受邏輯常量的值，但在使用前，要進(jìn)行類型說(shuō)明。 ) ——(當(dāng) a、 b為同一邏輯常量時(shí)，為真。 ⑴ ().and.() ① t ② f ③ f 2022/8/21 87 邏輯表達(dá)式 例 2：若 a=,b=,c=,d=,求下列邏輯表達(dá)式的值。 2022/8/21 94 用塊 if 實(shí)現(xiàn)選擇結(jié)構(gòu) 例 1：求一元二次方程 ax2+bx+c=0的根。,f,39。,f,39。,x1 print*,39。 邏輯 if語(yǔ)句的一般形式： If〈 條件 〉 語(yǔ)句 例： if () n=n+1 2022/8/21 101 邏輯 if 語(yǔ)句 例： 2X＋ 3 (X≤2) Y＝ X＋ 5 (X＞ 2) 編程如下： read(*,*) x read(*,*)x if () then if() y=2*x+3 y=2*x+3 if() y=x+5 else write(*,*)‘y=‘,y y=x+5 end endif write(*,*)‘y=‘,y end 2022/8/21 102 課后練習(xí)題 P96： 第一～三題；第四、五、七題 2022/8/21 103 第五章 循環(huán)結(jié)構(gòu)的實(shí)現(xiàn) 2022/8/21 104 第五章 循環(huán)結(jié)構(gòu)的實(shí)現(xiàn) 所謂循環(huán)，是指在程序執(zhí)行過(guò)程中需要重復(fù)執(zhí)行的程序段。 編寫程序段： integer x,sum x= sum= 10 x=x+1 sum=sum+x goto 10 2022/8/21 106 用 goto語(yǔ)句實(shí)現(xiàn)循環(huán) 如果我們把以上 goto語(yǔ)句作為邏輯 if語(yǔ)句中的執(zhí)行語(yǔ)句，則就可以實(shí)現(xiàn)有條件的循環(huán)。 2022/8/21 109 當(dāng)型循環(huán)的實(shí)現(xiàn) 二、用 do while語(yǔ)句實(shí)現(xiàn)當(dāng)型循環(huán) 一般形式 do s1[,] while (條件 ) ┆ 循環(huán)體 s1 終端語(yǔ)句 2022/8/21 110 當(dāng)型循環(huán)的實(shí)現(xiàn) 例：求 n!。 編程如下： read*,n m=1 i=1 10 continue m=m*i i=i+1 if () goto 10 print*,m end 讀 n m→1, i→1 m*i→m i+1→i 直到 i＞ n 輸出 m 結(jié)束 2022/8/21 113 直到型循環(huán)的實(shí)現(xiàn) 編程如下： integer sign s= d= sign=1 10 sign=(1)*sign t=sign/d s=s+t d=d+1 if () goto 10 print*, s end 1 0 01991...4131211 ???????????1 0 011 1)1(ddds例 2：求 的值。 2022/8/21 116 用 do語(yǔ)句實(shí)現(xiàn)循環(huán) 一、一般形式 do s[,] v=e1, e2 [,e3] ┆ 循環(huán)體 s 終端語(yǔ)句 說(shuō)明： ① s——循環(huán)體 終端語(yǔ)句 的標(biāo)號(hào) ② v——循環(huán)控制變量（ do變量），可為整型、實(shí)型或雙精度 2022/8/21 117 用 do語(yǔ)句實(shí)現(xiàn)循環(huán) 一、一般形式 do s[,] v=e1, e2 [,e3] ┆ 循環(huán)體 s 終端語(yǔ)句 說(shuō)明： ③ e1,e2,e3是整型、實(shí)型或雙精度 表達(dá)式 e1——循環(huán)變量初值 e2——循環(huán)變量終值 e3——循環(huán)變量增量（步長(zhǎng)，默認(rèn)值： 1） 當(dāng) v為整型變量， e3=1時(shí)， e3可忽略 例： DO 10,I=1,10,2 DO 100,N=1,5 2022/8/21 118 do循環(huán) 執(zhí)行過(guò)程 P103 圖 計(jì)算 e1,e2,e3的值 v ← e1 v e2 執(zhí)行循環(huán)體 v←v+e3 Y N 執(zhí)行終端語(yǔ)句 下面的語(yǔ)句 2022/8/21 119 r=MAX(INT((e2e1+e3)/e3),0) v ← v+e3 執(zhí)行過(guò)程 P103 圖 并將其轉(zhuǎn)換為 循環(huán)變量的類型 2022/8/21 120 用 do語(yǔ)句實(shí)現(xiàn)循環(huán) 例如： 求 1～ 10的累加和。 計(jì)算公式： r=max(int((e2e1+e3)/e3),0) ① e3＝ 0 則運(yùn)行時(shí)出錯(cuò)（被零除） 例： do 10,i＝ , r=max(int(61+0/0),0)（ 因?yàn)檠h(huán)變量 I是整型 ） ② e1e2且 e30 或 e1e2且 e30，則循環(huán)次數(shù)為 0 ⑶ 由于實(shí)數(shù)在內(nèi)存中存儲(chǔ)的誤差， v, e1, e2, e3盡可能用整型量。因此影響了程序的可讀性。 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語(yǔ)句實(shí)現(xiàn)循環(huán) 四、 do循環(huán)的嵌套 在一個(gè) do循環(huán)中還可以包含一套或多套 完整的do循環(huán)，這就是 do循環(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語(yǔ)句實(shí)現(xiàn)循環(huán) 六、三種循環(huán)形式的選擇 ⑴循環(huán)次數(shù)可事先確定，優(yōu)先用 do循環(huán) ⑵若循環(huán)體可能一次也不執(zhí)行，則優(yōu)先用當(dāng)型循環(huán) 若循環(huán)體至少執(zhí)行一次，則當(dāng)型、直到型循環(huán)都可 2022/8/21 137 課后練習(xí)題 P126：第二、三、八題。 數(shù)據(jù)結(jié)構(gòu)一般有以下三類： 基本類型 （ Fortran支持） 構(gòu)造類型 （ Fortran支持） 指針類型 （ Fortran90