F90第六章.pptVIP

第六章 选择结构程序设计 6.1 概述 6.2 逻辑IF语句 6.2 逻辑IF语句/说明 6.2 逻辑IF语句/示例 6.3 块IF语句 6.3 块IF语句/选择结构类型 6.3 块IF语句/基本IF示例1 6.3 块IF语句/多支IF语法 6.3 块IF语句/多支选择结构 6.3 块IF语句/多支IF示例1 6.3 块IF语句/嵌套IF说明 6.3 块IF语句/基本IF语法/示例 6.3 块IF语句/多支IF语法/示例 多支IF示例程序比较 * 1. 概述 2. 逻辑IF语句 3. 块IF语句 《FORTRAN90程序设计》课多媒体课件 6.1 概述 第六章 选择结构程序设计 顺序结构程序：程序自上而下按语句顺序逐句执行。 选择结构程序：根据条件判定结果决定语句执行顺序。 FORTRAN90提供IF语句来实现选择结构。 语法 说明 示例 6.2 逻辑IF语句 逻辑IF语句语法： 逻辑IF语句→IF(逻辑表达式e)语句S 其中：e为逻辑表达式或关系表达式。 S为可执行语句。 功能：先求e值,为.T.执行S，否则执行IF语句下面的可执行语句；为.F.则直接执行IF语句下面的可执行语句。（注意S为控制转移 GO TO 语句的情况） 示例： READ *,i,j IF(ij) PRINT *,I PRINT *,‘逻辑IF语句执行结束。’ END 第六章 选择结构程序设计 6.2 逻辑IF语句 S必须且只允许是一条语句。 S不允许是END、IF、DO、块IF、ELSEIF、ELSE、ENDIF语句以及非执行语句。 逻辑表达式e两边必须有配对的圆括号。 合法逻辑IF语句: IF (A .GT. Max) Max=A IF (AB) READ *, A IF (X.EQ.10.0) WRITE(*,*) X IF (ABS(A-B)1E-7) STOP IF (AB) EXIT IF (SUM .LT. 100.0) G0TO 10 非法逻辑IF语句： IF (B.LT.100.0) IF (B.GE.80) A=B IF (X.GT.100.0) END IF (AB) T=A A=B B=T IF (AB .AND. AC) DATA A/8/ IF (AB .AND. AC) IF A.GT.Max Max=A 语法 说明 示例 第六章 选择结构程序设计 6.2 逻辑IF语句 已知三个整数A,B,C,输入其值并打印三个数中最大值。 结束 max=A Bmax 真 假 max=B Cmax 假 真 max=C 输出max 输入： A,B,C 语法 说明 示例 第六章 选择结构程序设计 基本IF语法 选择结构类型 基本IF示例 多支IF语法 多支选择结构 多支IF示例 嵌套IF说明 6.3 块IF语句 基本块IF语句语法：(示例) （1）基本块IF语句→IF(逻辑表达式e)THEN [THEN语句体] END IF （2）基本块IF语句→IF(逻辑表达式e)THEN [THEN语句体] [ELSE [ELSE语句体]] END IF THEN语句体和ELSE语句体为可执行语句序列，可为空。 第六章 选择结构程序设计 6.3 块IF语句 选择结构有三种类型：双边结构、单边结构1、单边结构2。 真 假 THEN语句体 e ELSE语句体 双边选择结构 ENDIF ENDIF 真 假 e THEN语句体 单边选择结构1 ENDIF 真 假 e ELSE语句体 单边选择结构2 IF (e) THEN THEN语句体 ELSE ELSE语句体 ENDIF IF (e) THEN THEN语句体 ENDIF IF (e) THEN ELSE ELSE语句体 ENDIF IF (.NOT. e) THEN ELSE语句体 ENDIF 第六章 选择结构程序设计 基本IF语法 选择结构类型 基本IF示例 多支IF语法 多支选择结构 多支IF示例 嵌套IF说明 6.3 块IF语句 输入一个整数,判断它是奇数(odd number)还是偶数(even number), 并打印输出。 假 打印奇数 输入N 结束 MOD(N,2)= =0 打印偶数 真 第六章 选择结构程序设计 基本IF语法