fortran选择结构及基本语句.ppt

长安大学地学信息技术研究所 第四讲 选择结构及基本语句 4.1 概述 顺序结构程序特点：程序自上而下按语句顺序逐句执行。是三大结构之一。 选择结构程序特点：根据条件判定结果决定语句执行顺序。是三大结构之一。 FORTRAN90提供IF和SELECT语句来实现选择结构。 示例:输入学生成绩，判定合格与否，输出判定结果。 PROGRAM exam4_1 CHARACTER*6 grade WRITE(*,“(‘输入学生成绩：’\)”) READ (*,*)s IF (s=60) THEN grade=‘合格’ ELSE grade=‘不合格’ END IF WRITE(*,*)‘该学生成绩’,grade,‘。’ END program s≥60 假 真 输出grade 结 束 开 始 输入成绩s “合格”?grade “不合格”?grade 4.2 逻辑IF语句 逻辑IF语句语法： 逻辑IF语句→IF(逻辑表达式e)语句S 其中：e为逻辑表达式或关系表达式。 S为赋值语句、输入输出语句、STOP、EXIT等可执行语句。 逻辑IF语句功能：先求e值,为真(.TRUE.),执行语句S。 示例： READ (*,*)i,j IF(ij) WRITE(*,*)I WRITE(*,*)‘逻辑IF语句执行结束。’ END 输入：125，200 输出：125 逻辑IF语句执行结束。 输入：200，125 输出：逻辑IF语句结束。 逻辑IF语句中的可执行语句S只允许是一条语句。 语句S可为赋值语句、I/O语句、STOP、EXIT、CYCLE、GOTO语句。 语句S不可为END、IF、DO、ELSEIF、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 [例4.1]已知三个整数A,B,C,输入其值并打印三个数中最大值。 解：根据题意设计算法并画程序流程图,如图4-2所示。 程序： INTEGER A,B,C,max WRITE(*,“(‘请输入三个整数:’\)”) READ(*,*) A,B,C max=A IF(Bmax) max=B IF(Cmax) max=C WRITE(*,100) max 100 FORMAT(1X,max=,I5) END 输入：请输入三个实数:12,100,22↙ 输出：max= 100 结束 max=A Bmax 真 假 max=B Cmax 假 真 max=C 输出max 输入： A,B,C 4.3 块IF语句 基本块IF语句语法： 基本块IF语句→IF(逻辑表达式e)THEN [THEN语句体] [ELSE [ELSE语句体]] END IF 基本块IF语句→IF(逻辑表达式e)THEN [THEN语句体] END IF THEN语句体→{可执行语句} ELSE语句体→{可执行语句} 基本块IF语句功能：先求e值,为真,执行THEN语句体, 为假,执行ELSE语句体。 THEN语句体和ELSE语句体为一程序段(语句序列)。 选择结构有三种类型：双边结构、单边结构1、单边结构2。 真 假 THEN语句体 e ELSE语句体 双边选择结构 ENDIF ENDIF 真 假 e THEN语句体 单边选择结构1 ENDIF 真 假 e ELSE语句体 单边选择结构2 IF (e) THEN THEN语句体 ELSE