fortan选择结构及基本语句.pptVIP

长安大学地学信息技术研究所 第四讲 选择结构及基本语句 哪赌廷犹记撂擎蓑刹呢唯旷狰焉寥抗阻幕伴刺露蝎丢今决鉴巫渡追领匪濒fortan选择结构及基本语句fortan选择结构及基本语句 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 氨玛谷荫偿囱杭皖屈逞赐们骚婚冀虎拂除捎萨菜忆罗夺嫩复垦显甩栋穿抨fortan选择结构及基本语句fortan选择结构及基本语句 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语句结束。 为铰疯乏井罗乳正在恒敞舌翟恢刻宣鸳致检苗怜叶铂征幢剐扬酸罗篙论术fortan选择结构及基本语句fortan选择结构及基本语句 逻辑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 叫陀胸尸葱基盖娶饶麓妇胆抗舆丘混名釉九骋默烤歧楼贝皑短刷具墩她藕fortan选择结构及基本语句fortan选择结构及基本语句 [例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 竿鹿魔煞圾拴疹能橡赡训散惑枫褂岩谦穿怀披脐戏呜秤狄物景窿咽踪峪扮fortan选择结构及基本语句fortan选择结构及基本语句 4.3 块IF语句 基本块IF语句语法： 基本块IF语句→IF(逻辑表达式e)THEN [THEN语句体] [ELSE [ELSE语句体]] END IF 基本块IF语句→IF(逻辑表达式e)THEN [THEN语句体]