1.概述2.逻辑IF语句3.块IF语句4.选择结构程序设计举例Fortran语言程序是结构化的程序顺序结构程序与选择结构程序循环结构程序顺序结构程序个语句按先后顺序执行，只能解决简单问题。关系运算符和表达式关系运算符和表达式关系表达式的值：是逻辑值“真”或“假”，用.TRUE.和.FALSE.表示.逻辑运算和逻辑表达式逻辑变量及其值（1）逻辑与.AND.，当连接的两个逻辑操作数为真时，逻辑表达式取值为真，只要一个为假则取假。.true..and..true.=.true.，.true..and..false.=.false.(1>2).and.(2>1)=.false.，（1<2).and.(2<3)=.true（2）逻辑或.OR.，连接的两个逻辑操作数只要有一个为真时，逻辑表达式取值为真，全部为假时才为假。.true..or..true.=.true.，.false..or..false.=.false.（3）逻辑非.NOT.对后面的操作数取反，如果操作数为真，则取假，否则取真。.not.(.true.)=.false.，.not.(.false.)=.true.（4）逻辑等于.EQV.当连接的两个逻辑值相同（同为真或同为假）时，该逻辑表达式取真，否则取假。.true..eqv..false=.false.（5）逻辑不等.NEQV.当连接的两个逻辑操作数取不同的值时，该逻辑表达式取真，否则为假。.true..neqv..false=.true.（6）逻辑异或.XOR.当连接的两个逻辑操作数不同时，该逻辑表达式取真，相同时取假。.true..xor.(.true..neqv..false)=.false.下面看一些逻辑表达式的例子：(1)坐标中，第一象限的点用逻辑表达式可表示为：X．GT.0.AND.Y.GT.0(X>0.and.Y>0)(2)X∈[-3，5]对应的逻辑表达式是：X.GE.-3.AND.X.LT.5(X>=-3.and.X<=5)生意是这样做成的引言选择结构的控制语句：if结构语句,块case结构逻辑IF语句格式：IF(条件表达式)可执行语句块IF结构格式：有三种格式，分别是单分支、双分支和多分支。6.2逻辑IF语句逻辑IF语句格式：IF(条件表达式)可执行语句其执行过程是：先计算条件表达式的值，当条件表达式为真时，执行可执行语句，执行后继续执行该逻辑IF语句后面的语句，否则，直接执行该逻辑IF后面的语句。注意：(1)逻辑IF语句实际上是选择结构中，只考虑条件为真的情况。(2)逻辑IF语句后面的可执行语句只能为一个，否则只能用块IF语句代替。6.2逻辑IF语句/说明6.2逻辑IF语句/示例【例6.2】输入X，求出下图对应的函数值。程序如下：REALX,YREAD*,XIF(X<=0)Y=LOG(SQRT(X*X+1))IF(X>0)Y=SIN(X**3)+ABS(X)PRINT*,’Y=‘,YEND6.3块IF语句6.3块IF语句/基本IF语法/示例6.3块IF语句/选择结构类型块IF选择结构的三种形式之一：单分支格式如下：IF（逻辑表达式1）THEN块ENDIF执行过程：只有逻辑表达式为真时才执行。它不带else子句。【例6.3】只打印输出不及格的学生的成绩，程序如下：REALGREAD*,GIF(G<60)THENPRINT*,’不及格’ENDIFEND块IF选择结构的三种形式之二：双分支格式如下：IF（逻辑表达式1）THEN块1ELSE块2ENDIF执行过程：表达式成立，执行语句块1；表达式不成立执行语句块2。它带else子句。考虑的是逻辑表达式为真和假的两种情况。【例6.4】例如当学生成绩超过60分输出PASS，否则输出NO，程序为：REALGREAD*,GIF(G>60)THENPRINT*,‘PASS’ELSEPRINT*,‘NO’ENDIFEND6.3块IF语句/基本IF示例16.3块IF语句/基本IF示例2例6.3程序6.3块IF语句/多支IF语法6.3块IF语句/多支选择结构6.3块IF语句/多支IF示例1多支IF示例程序比较【例6.4】官二代、富二代、世行副总都有可能成为比尔盖茨的女婿,否则，只能做梦，程序为：character(LEN=100)::g,g2,resultsprint*,'请输入你的身份：'read*,gIF(g.EQ.'官二代')THENresults='你是官二代，有可能成为比尔盖茨的女婿'ELSEIF(g.EQ.'富二代')