【正文】 eight height100 ) then ! 如果體重大于身高減去 100, 會執(zhí)行下面的程序 write(*,*) Too fat! else ! 如果體重不大于身高減去 100, 會執(zhí)行下面的程序 write(*,*) Under control. end if stop end 14 512 邏輯 運算 IF命令需搭配邏輯表達式才能使用。 ?上面程序中 if到 end if之間的內容可以改寫成下面這一行程序代碼： If (speed) write (*,*) “Slow down” * 12 51 IF語句 ?IF命令還可以搭配 ELSE，用來賦值當判斷式不成立時，會去執(zhí)行某一段程序代碼。 IF （邏輯判斷式） THEN ……. ……. ……. End IF 邏輯成立時才會執(zhí)行 這里面的程序代碼 * 能夠在程序執(zhí)行當中自動選擇轉向、跳過某些程序模塊來執(zhí)行程序代碼，這是 IF關鍵字的功能。 ? 流程圖是描述算法的圖形化方法，修改比較麻煩。 ? 偽代碼具有靈活性和易修改的特點。 6 * 502 偽代碼與流程圖 ? 用來建立算法的結構可以用兩種不同的方法描述： 偽代碼 和流程圖 。 ? 描述算法的形式稱為 結構 (construction)，利用這些結構描述的算法稱為 結構化算法 (constructed algorithm)。 4 * 501自頂向下設計 開始 表明問題 定義所需的輸入輸出量 設計算法 將算法轉換為 Fortran語句 測試完成的 Fortran程序 結束 子任務單元測試 連續(xù)構建子任務 子任務加入主程序 Alpha版本 Beta版本 正式版本 5 * 502 偽代碼與流程圖 ? 作為設計過程的一部分，有必要對欲實現(xiàn)的算法進行描述。 4. 將算法轉換為 Fortran語句。 3 * 501自頂向下設計 1. 清楚的陳述要解決的問題 2. 定義程序所需的輸入和程序產生的輸出。 對每一個塊單獨編碼和測試，直到每一個子任務都能夠獨立的正確工作。 2 * 501自頂向下設計 ? 自頂向下設計就是一個過程 ： 從大型任務開始，將其分解為更小的、更容易理解的塊（子任務），執(zhí)行所需任務的一部分。 ? 現(xiàn)實世界中，問題一般都是大型的，如果嘗試采用這種方法，程序員將陷入絕望的困境。Fortran95 程序設計 彭國倫 編著 第 5章 流程控制與邏輯運算 501自頂向下設計 ? 當給定一個新問題，如上一章的作業(yè)，一個很自然的傾向就是坐在電腦前面開始編程，而不是“浪費”時間進行思考。對于很小的問題，這種飛躍式的編程方法通常都是可行的。 ? 在編寫程序解決大型問題之前，徹底考慮一下問題以及將要采取的方法是非常值得的。 如果需要，每個子任務還可以依次再細分為更小的子任務。 將子任務集成為一個完整的任務。 3. 設計要在程序中實現(xiàn)的算法。 5. 測設完成的 Fortran程序。為便于你和他人理解，應該以一種標準的形式對算法進行描述，并且這個描述還應該便于設計思路轉換為Fortran代碼。當算法在 Fortran程序中實現(xiàn)時，結果程序稱為 結構化程序(structured program)。 ? 偽代碼是 Fortran語句和自然語言摻雜在一起的混合體，構成類 Fortran程序，對每個不同的想法或代碼段都有單獨的一行來表示。 ? 偽代碼中經常使用 ?代替 =號，表示一個值存在于一個變量中，或者叫賦值。 7 * 502 偽代碼與流程圖 8 橢圓框表示算法的開始和結束 矩形框表示計算，并將計算結果賦給一個變量 表示輸入或輸出操作 兩種選擇中的選擇指向 子程序的引用 反復的或計數的循環(huán)回路 * 51 IF語句 511 IF基本用法 ?最基本的使用方法是由一個程序模塊所構成，當 IF所賦值的邏輯判斷式成立時，這模塊中的程序代碼才會執(zhí)行。 [] program ex0501 implicit none real(kind=4) :: speed write(*,*) “speed:“ !信息提示 read(*,*) speed !讀入車速 if ( speed ) then ! speed 100 時才會執(zhí)行下面這一行程序 write(*,*) Slow down. end if stop end * 程序的核心部分： if ( speed ) then ! speed 100 時才會執(zhí)行下面這一行程序 write(*,*) Slow down. end if stop 從 IF到 END IF之間的程序算是一個區(qū)塊， IF中判斷式成立時會執(zhí)行這個區(qū)塊中的程序 IF中判斷式不成立時，會跳躍到 END IF后的地方繼續(xù)執(zhí)行 ?IF括號中的判斷式成立時，如果所需要執(zhí)行的程序模塊只有一行程序代碼，可以把 IF跟這行程序代碼寫在同一行。 IF （邏輯判斷式） THEN ……. ……. ELSE ……. ……. END IF 邏輯成立時，執(zhí)行 這一段的程序代碼 邏輯不成立時則執(zhí)行 這一段的程序代碼 ?如果 …. 那么就 …. ，否則就 ….. 。 邏輯運算符號： F90以上 F77 說明 == .EQ. 判斷是否“相等” /= .NE. 判斷是否“不相等” .GT. 判斷是否“大于” = .GE. 判斷是否“大于或等于” .LT. 判斷是否“小于” = .LE. 判斷是否“小于或等于” * * PROGRAM ex0501 IMPLICIT NONE REAL speed WRITE(*,*) speed: READ (*,*) speed IF ( speed .GT. 100 ) then ! FORTRAN 77要用縮寫 . write(*,*) Slow down. END IF STOP END [] [] 16 512 邏輯 運算 邏輯表達式除了可以單純對兩個數字比較大小之外，還可以對兩個邏輯表達式間的關系來運算。 表示相互關系的集合運算符： .AND. 交集，如兩邊表達式都成立，整個表達式就成立。 .NOT. 邏輯反向，如后面的表達式不成立，整個表達式就成立。 .NEQV. 兩邊表達式的邏輯運算結果不同時，整個表達式就成立。 If((key==?Y?) .OR. (key==?y?)) then…… ! 如果變量 key等于字符 Y或 y時，條件成立 If(.NOT.(A==10)) then…… ! 變量 A等于 10時，條件不成立。 邏輯表達式中包含算術運算符、關系運算符和邏輯運算符，它們的運算優(yōu)先次序如下表： * 運算類別 運算符 優(yōu)先級 括號 （ ） 1 算術運算 ** 2 * / 3 + 4 關系運算 (.GT.) =(.GE.) (.LT.) =(.LE.) ==(.EQ.) /=(.NE.) 5 邏輯運算 .NOT. 6 .AND. 7 .OR. 8 .EQV. .NEQV. 9 23 512 邏輯 運算 程序代碼中可以使用邏輯表達式來設置邏輯變量的內容 Logical_var = A B 當 A的數值大于 B時， logical_var這個 邏輯變量會被設定成“真” (.TRUE.), 否則會被設定為“假” (.FALSE.) * 使用 IF時，可以先把邏輯運算的結果存放到邏輯變量中，再利用邏輯變量來做條件判斷。A39。B39。C39。D39。E? else