F90第五章.pptVIP

第五章 选择结构程序设计 * 1. 概述 2. 逻辑IF语句 3. 块IF语句 4. 块CASE语句 《FORTRAN90程序设计》课多媒体课件 5.1 概述 第五章 选择结构程序设计 顺序结构程序：程序自上而下按语句顺序逐句执行。 选择结构程序：根据条件判定结果决定语句执行顺序。 FORTRAN90提供IF语句来实现选择结构。 假 真 输出grade 结 束 开 始 输入成绩s s≥60 “合格”?grade “不合格”?grade 　 例：根据学生成绩评判学生是否合格,从而做出不同处理。必须使用选择结构程序来解决这类问题。 　 5.1 概述 第五章 选择结构程序设计 5.1 概述 PROGRAM exam4_1 CHARACTER*6 grade WRITE(*,(输入学生成绩：\)) READ *,s IF (s=60) THEN grade=合格 ELSE grade=不合格 ENDIF PRINT *,‘该学生是成绩,grade END 第五章 选择结构程序设计 5.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 5.2.1语法 第五章 选择结构程序设计 5.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) IF A.GT.Max Max=A 5.2.2说明 第五章 选择结构程序设计 5.2 逻辑IF语句 已知三个整数A,B,C,输入其值并打印三个数中最大值。 结束 max=A Bmax 真 假 max=B Cmax 假 真 max=C 输出max 输入： A,B,C 5.2.2 例子 第五章 选择结构程序设计 5.2 逻辑IF语句 5.2.2 例子 已知三个整数A,B,C,要求输入其值并打印三个数中最大值。 INTEGER A,B,C,max WRITE(*,(请输入三个实数:\)) READ(*,*) A,B,C max=A IF(B.GT.max) max=B IF(C.GT.max) max=C WRITE(*,100) max 100 FORMAT(1X,max=,I5) END 执行程序,显示并输入数据： 请输入三个数:12,100,22↙ 程序执行后,输出结果为：max= 100 第五章 选择结构程序设计 5.3 块IF语句 基本块IF语句语法： （1）基本块IF语句→IF(逻辑表达式e)THEN [THEN语句体] END IF （2）基本块IF语句→IF(逻辑表达式e)THEN [THEN语句体] [ELSE [ELSE语句体]] END IF THEN语句体和ELSE语句体为可执行语句序列，可为空。 5.3.1基本块IF语法 第五章 选择结构程序设计 5.3 块IF语句 基本块IF语句语法：(示例) PROGRAM main WRITE(*,*) ‘ 请输入两整数I、J值：’ READ *，I，J IF(IJ)THEN K=I-J PRINT *, ‘I-J=‘ , K ELSE K=J-I PRINT *，’J