FORTRAN语言第3章(共8章).ppt
《FORTRAN语言第3章(共8章).ppt》由会员分享,可在线阅读,更多相关《FORTRAN语言第3章(共8章).ppt(26页珍藏版)》请在三一文库上搜索。
1、IF结构除了能够单独使用外,结构中的任意一个语句块里都可以再次嵌入另一个结构。 被嵌入的结构可以是另一个IF结构,也可以是另一些形态、功能不同的结构,如CASE结构、DO结构等。前提是必须将整个结构完整地嵌入到IF结构的某一个语句块中,不允许被嵌入结构的一部分在一个语句块中,另一部分在别的语句块或是不在被嵌入的IF结构中,即被嵌入的任何结构不允许跨越两个独立的语句块。,二、块IF的嵌套,第二节 块IF选择结构,IF语句嵌套的形式可以表示如下: 构造名1:IF(逻辑表达式1) THEN 构造名2:IF(逻辑表达式2) THEN 构造名3:IF(逻辑表达式3) THEN ENDIF构造名3 END
2、IF构造名2 ELSE ENDIF构造名1,第二节 块IF选择结构,一个嵌套分支结构可使用若干个块IF语句,相应就有若干个ENDIF语句,每个块IF语句还可能使用一些ELSE IF语句、ELSE语句,这就可能构成一个复杂的IF-ELSEIF-THEN-ELSE结构。当嵌套层次过多时,往往一时难以找到同一层的块IF中的各语句,一般可按以下方法确定:,(1)从最内层的块IF语句开始,向下找到离它最近的ENDIF语句,将它们用线括起来,这就是同一层次的块IF。 (2)由内向外重复这一个过程,直到遇见最外层块IF语句和ENDIF语句为止。 (3)在书写嵌套分支结构时采取缩进方式进行程序书写,程序的嵌套
3、层次就容易确定。,例、 给定一个年份,判断是否为闰年。,分析:闰年的判断条件是能被4整除,但不能被100整除或能被100整除且能被400整除。,T,F,T,打印Y 是闰年,F,打印Y 是闰年,T,F,打印Y不是闰年,例、 给定一个年份,判断是否为闰年。,分析:闰年的判断条件是能被4整除,但不能被100整除或能被100整除且能被400整除。,If ( MOD(y, 4) = 0) Then If ( MOD(y ,100) = 0) Then If( MOD(y,400) = 0) Then a = “TRUE ” !既能被100又能被400整除的数 Else a = “FALSE “ !能被1
4、00整除但不能被400整除的数 End If Else a = “TRUE“ !能被4整除但不能被100整除的数 End If Else a = “FALSE“ !不能被4,100和400整除的数 End If,使用块IF嵌套应注意以下几点: 1、不允许从块IF语句外控制转移到块IF语句的语句体内的任意位置。 2、允许通过控制转移语句(如GOTO语句)从块IF语句内控制转移到块IF语句外。 3、在嵌套的块IF语句中,内层的块IF不能和外层的块IF相互交叉。,第二节 块IF选择结构,IF结构除了可以实现二义判断之外,还可以实现多重判断。此时,IF结构中需加入新的元素-ELSEIF语句。 方法1:
5、转化为单分支,逻辑IF语句并列 方法2:逐次二分,转化为块IF结构嵌套 例:将百分制转换成等级制,根据成绩x输出 A: x=90 B: 80=x90 C: 70=x80 D: 60=x70 E: x60,第二节 块IF选择结构,方法1:,WRITE(*,*)“请输入成绩:“ READ(*,*) X If (X = 90) WRITE(*,*) “优秀!“ If (X = 80 . AND. X= 70 .AND. X= 60 .AND. X70) WRITE(*,*) “及格!“ If (X 60) WRITE(*,*) “不及格!“,上述代码段中有5个IF语句。一个学生的得分只能是上述5种情
6、况当中的一种,但程序仍然要做5次判断,所以算法效率较低。下面用ELSEIF块重写上述代码段。,第二节 块IF选择结构,方法2:,执行左侧代码段时,一旦发现某个逻辑条件为“真”,就不会再去判断其他的逻辑条件。最不利情况下(如50分),系统才要判断4次。此算法效率明显高于前一种。,WRITE(*,*)“请输入成绩:“ READ(*,*) a If (a = 90) Then WRITE(*,*) “优秀!“ Else If (a = 80 )Then WRITE(*,*) “良好!“ Else If( a = 70) Then WRITE(*,*) “中等!“ Else If (a = 60) T
7、hen WRITE(*,*) “及格!“ Else WRITE(*,*) “不及格!“ End If End If End If End If,WRITE(*,*)“请输入成绩:“ READ(*,*) X If (X = 90) Then WRITE(*,*) “优秀!“ ElseIf (X = 80 )Then WRITE(*,*) “良好!“ ElseIf( X= 70) Then WRITE(*,*) “中等!“ ElseIf (X = 60) Then WRITE(*,*) “及格!“ Else WRITE(*,*) “不及格!“ End If,下面给出ELSEIF块更一般的构造形式:
8、,三、ELSEIF的语句,有了ELSE IF语句后,IF结构中可以同时存在多个判断条件和多个执行模块,但是只有其中一个条件能够成立,并且只有一个执行模块能够执行。使用IF语句和ELSE IF语句来实现多重判断的基本形式如下: IF(e1)THEN block1 ELSEIF(e2)then block2 ELSEIF(e3)then block3 - ELSE block ENDIF,第二节 块IF选择结构,多分支块IF结构的执行过程为: 首先判断条件1是否成立,若条件成立(为“真”),则执行块1,再执行ENDIF后面的语句;若条件1不成立(为“假”),则判断条件2是否成立,若条件2成立(为“
9、真”),则执行块2,再执行END IF后面的语句如果所有的条件都不成立,则执行ELSE块(ELSE语句和块n+1是可选项),再执行END IF后面的语句。,第二节 块IF选择结构,多重判断的IF结构中,判断条件的成立具有唯一性。即一旦有判断条件成立,就去执行相应的模块,如果其后仍有判断条件是成立的,也不会再去执行。这一点同后面的SELECT CASE完全不同。也就是说IF结构中的选择条件是允许重叠的,但SELECT CASE语句不允许选择条件有重叠。,第二节 块IF选择结构,1.ELSEIF语句其作用相当于将ELSE语句与其后的ELSE块中的块IF语句连接在一起。 2.同块IF语句不同, EL
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- FORTRAN 语言
链接地址:https://www.31doc.com/p-2102942.html