fortran课件 第四章.ppt

Fortran 95 程序设计 第四章 流程控制与 逻辑运算 流程控制 在程序执行中，视情况来选择是否要执行某一段程序代码； 流程判断的命令：能够在程序执行当中自动选择转向、跳过某些程序模块的命令。 §4-1 IF 语句§4-1-1 IF基本用法 一个程序模块 §4-1-1 IF基本用法 §4-1-1 IF基本用法 §4-1-2 逻辑运算 §5-1-2 逻辑运算 §4-1-2 逻辑运算 逻辑表达式之间的关系运算，集合运算符号 If( a=80 .and. a90) then §4-1-2 逻辑运算 【.NOT.】 只跟一个表达式在后面，把原本的逻辑结果取反 (.not. 35) !35 不成立，经过.not.取反为‘真’ (.not. 12) !12成立，取反后为‘F’ §4-1-2 逻辑运算 【.EQV.】 (13 .EQV. 23) !两边都不成立，表达式为真 (13 .EQV. 23) !两边结果不同，表达式为假 §4-1-2 逻辑运算 【.NEQV.】 (13 .NEQV. 23) !两边都不成立，表达式为假 (13 .NEQV. 23) !两边结果不同，表达式为真 设A=3.5, B=5.0, C=2.5, D=0.5 A=0.0 .AND. A+C B+D .OR. .NOT. .TRUE. A+C=6.0; B+D=5.5 A =0.0为’T’; A+CB+D为’F’ .NOT. .TRUE. 为’F’ 执行.AND.， .TRUE. .AND. .FALSE.为‘F’ 执行.OR., 结果为‘F’ §4-1-2 逻辑运算 If 的括号中可以直接是一个逻辑值 逻辑变量可以通过逻辑运算赋值 $ 4-1-3 多重判断 IF ELSE IF $ 4-1-3 多重判断 IF ELSE IF 例：判断某同学的成绩等级，90～100为A；80～89、70～79、60～69及60分以下分别为B、C、D、E $ 4-1-3 多重判断 IF ELSE IF 执行效率较高 $ 4-1-4 嵌套IF语句 §4-2 浮点数及字符的逻辑运算 § 4-2-1 浮点数 浮点数要避免使用“==“的判断 例： 浮点数的计算误差经常存在，要预留空间 改为： §4-2-2 字符的逻辑判断 根据保存它们的字符码，比较字符的大小 （个人计算机都是用ASCII码） § 4-3 SELECT CASE 语句 § 4-3 SELECT CASE 语句 Case 中判断数值的写法 Case(1) !变量==1时，会执行这个case中的程序模块 Case(1:5) !1=变量=5时，会执行这个case中的程序模块 Case(1: ) !变量=1时，会执行这个case中的程序模块 Case( :5) !变量=5时，会执行这个case中的程序模块 Case(1,3, 5) !变量==1或3或5时，会执行这个case中的程序模块 § 4-3 SELECT CASE 语句 例： A=65 Read(*, *) key Select case(key) Case(a) !这一行程序错，A为变量 …… Case(c) ! 如果c声明成parameter 的常量，才可 …… § 4-3 SELECT CASE 语句 例：判断运算方法 执行结果： §4-4 其他流程控制 §4-4-1 GOTO语句 形式： GOTO 标号 § 4-4-2 PAUSE, CONTINUE, STOP PAUSE---- 暂停，用户按Enter键继续，调试程序用 CONTINUE----继续下行，FORTRAN 77用 STOP---结束程序运行 例：对于a/b,遇到不合理的输入：b=0 if (b==0) stop 作业二 ： 书本： 5.2 和5.3 注意字符要以引号封装 SELECT CASE 语句可以取代某些使用IF-ELSE IF的语句 使程序更加简洁 结构如下： 放入所要判断的变量 不一定出现 限制： （1）判断的数据只能用整型、字符型与逻辑型， 不能是浮点数和复数 （2）每个CASE中的数值只能是固定的常量，不能使用变量 (3) case中的数值范围不能重叠 注意：字符数值的判断书写 * * IF（逻辑判断式） THEN … …