《改變程序流程》PPT課件.ppt

第五章 改變程序流程,結(jié)構(gòu)化編程方法概述,選擇結(jié)構(gòu),異常的程序流程,循環(huán)結(jié)構(gòu),內(nèi)容提要,結(jié)構(gòu)化編程方法,基本程序結(jié)構(gòu),順序結(jié)構(gòu),選擇結(jié)構(gòu),結(jié)構(gòu)化編程方法,循環(huán)結(jié)構(gòu),當(dāng)型循環(huán)結(jié)構(gòu),直到型循環(huán)結(jié)構(gòu),結(jié)構(gòu)化編程方法,goto 語句(不提倡使用) 例： 100 print *, 請(qǐng)輸入一個(gè)實(shí)數(shù) read *, a print *, a = , a goto 100,結(jié)構(gòu)化編程方法,結(jié)構(gòu)化編程方法,判斷語句的構(gòu)成,關(guān)系表達(dá)式,結(jié)構(gòu)化編程方法,邏輯表達(dá)式,結(jié)構(gòu)化編程方法,運(yùn)算優(yōu)先級(jí),結(jié)構(gòu)化編程方法概述,選擇結(jié)構(gòu),異常的程序流程,循環(huán)結(jié)構(gòu),內(nèi)容提要,選擇結(jié)構(gòu),塊if,:if()then else endif ,選擇結(jié)構(gòu), : if()then else if()then else if()then else endif ,if（）,if() then if(邏輯表達(dá)式) then else if () then else endif if() end if,選擇結(jié)構(gòu),Lab1:,Lab2:,Lab2,Lab1,if語句的嵌套使用,Lab2,Lab2,exam_5_1,選擇結(jié)構(gòu),select case （Fortran 90新增）, : select case() case () case default end select ,不能出現(xiàn)浮點(diǎn)數(shù),Elcal.for、STIFFNESS.F90,選擇結(jié)構(gòu),if(x .le. 0.0) then y = 0.0 else y = 1.0 endif print *, y = , y,y = 1.0 if(x .le. 0.0) y = 0.0 print *, y = , y,選擇結(jié)構(gòu),算術(shù)if （Fortran 90廢除）,if(x - 0.0) 10, 10, 20 10 y = 0.0 goto 30 20 y = 1.0 30 print *, y = , y,選擇結(jié)構(gòu),計(jì)算goto （Fortran 95廢除）,goto(10, 20) (x .le. 0.0) + 2 10 y = 0.0 goto 30 20 y = 1.0 30 print *, y = , y,back3.for,.T. = -1 .F. = 0,選擇結(jié)構(gòu),賦值goto （Fortran 90廢除，F(xiàn)ortran95取消）,assign 10 to a goto a, (10, 20) 10 y = 0.0 goto 30 20 y = 1.0 30 print *, y = , y,結(jié)構(gòu)化編程方法概述,選擇結(jié)構(gòu),異常的程序流程,循環(huán)結(jié)構(gòu),內(nèi)容提要,當(dāng)型循環(huán)結(jié)構(gòu),直到型循環(huán)結(jié)構(gòu),循環(huán)結(jié)構(gòu),循環(huán)結(jié)構(gòu),計(jì)數(shù)型循環(huán)（當(dāng)型）, : do =, enddo ,循環(huán)次數(shù) = max(int(循環(huán)終值-循環(huán)初值) /步長+ 1, 0),循環(huán)變量一般應(yīng)為整型（可以用實(shí)型，但不提倡）,循環(huán)結(jié)構(gòu),i： 循環(huán)變量 e1：初值 e2： 終值 inc：步長 r： 循環(huán)次數(shù),exam_5_2,不允許改變循環(huán)變量i,循環(huán)結(jié)構(gòu),允許改變表達(dá)式e1，e2，inc中變量的值，并且不影響循環(huán)次數(shù),退出循環(huán)后循環(huán)變量的值有意義,循環(huán)結(jié)構(gòu),do循環(huán)的嵌套,do i = e1, e2, inc do j = e1, e2, inc enddo enddo,循環(huán)結(jié)構(gòu),do 10, i = e1, e2, inc 10 continue,FORTRAN 77中的do循環(huán),do 10, i = e1, e2, inc 10 ,循環(huán)終端語句可以是除了GOTO、塊IF、CASE、CYCLE、DO、ELSE、ELSE IF、END IF、END、END SELECT、EXIT、SELECT CASE、STOP和RETURN語句以外的任一可執(zhí)行語句,循環(huán)結(jié)構(gòu),do 10, i = e1, e2, inc do 20, j = e1, e2, inc 20 continue 10 continue,do 10, i = e1, e2, inc do 10, j = e1, e2, inc 10 continue,Stiff.for,循環(huán)結(jié)構(gòu),條件型循環(huán), : do while() enddo ,當(dāng)型,do if() exit enddo, if() goto 10,直到型,結(jié)構(gòu)化編程方法概述,選擇結(jié)構(gòu),異常的程序流程,循環(huán)結(jié)構(gòu),內(nèi)容提要,異常的程序流程,在選擇和循環(huán)結(jié)構(gòu)中不允許從結(jié)構(gòu)外跳轉(zhuǎn)到結(jié)構(gòu)內(nèi),goto 10 if() then 10 end if,goto 10 do i = e1, e2, inc 10 enddo,do i = e1, e2, inc goto 10 enddo 10 .,允許從結(jié)構(gòu)內(nèi)跳轉(zhuǎn)到結(jié)構(gòu)外，但不符合結(jié)構(gòu)化的編程規(guī)范,if() then goto 10 end if 10 ,異常的程序流程,改變循環(huán)結(jié)構(gòu)流程的語句,: do i = e1, e2, inc if() exit enddo