hh-fortran-03选择结构

case default print*,"月份输入错误"
end select print*,year,"年",month,"月所对应的天数为：",day end
算术IF语句（简单了解）
格式：if (算术表达式) 标号1，标号2，标号3 执行过程 ➢ 计算算术表达式的值 ➢ 值小于0，执行标号1对应的语句 ➢ 等于0，执行标号2对应的语句 ➢ 大于0，执行标号3对应的语句
例 3.9 将学生 成 绩 分为 优 (90~100 分 )、 良 (80~89)、 中 (70~79)、及格(60~69)、不及格五个档次，输入成绩， 输出对应的档次。
思考: 用什么语句实现?
integer g read*,g
case(80:89) print*,"良"
case(90:100)
select case(g)
➢ 两边的小数点不能漏 ➢ 实数存在误差，在用.EQ. 与.NE. 时要特别注意 ➢ 一个算术型量的两侧不允许都是关系运算符
逻辑表达式
格式： <逻辑型量> <逻辑运算符> <逻辑型量>
逻辑运算符
.AND. 与 .OR.或
.NOT.非
.EQV.等价 .NEQV.不等价
.XOR.异或
结果是逻辑型值
.TRUE.或.FALSE.
case(1,3,5,7,8,10,12) day=31
case(4,6,9,11) day=30
case(2) if ((mod(year,4).eq.0.and.mod(year,100).ne.0) $.or.mod(year,400).eq.0) then day=29 else day=28 endif
real a,b character op ！定义一个字符变量 read*,a,b,op select case(op)
case('+') print*,'两个数之和为：',a+b
case('-') if(a<b)then print*,'被减数不能小于减数' else print*,'两个数之差为：',a-b endif
解决办法:块select
case选择结构
一般格式
select case（表达式） case（表达式1） 块1 case（表达式2） 块2 …… case（表达式n） 块n
case default 默认块
end select 执行过程
说明
（1）select case后括号里的“表达式”，用来表示待 选择的内容，如成绩、工资、年龄等，一般为变量 名，可是整型、逻辑型、单个字符型变量或者相应 的表达式
➢ 块if结构中，可有多个else if，但只能有一个else语句，且与 最后一个else if语句相配对
➢ 块if结构中，也可只有else if，而没有else ➢ 特别强调，条件必须写对，否则会出现逻辑错误
块SELECT CASE选择结构
问题: 用else if语句实现多路分支,书写是否方便?是否容易阅读?
print*,"优"
case(0:59)
case default
print*,"不及格"
case(60:69) print*,"及格"
print*,"成绩输入 错误，请重新输入！"
end select
end
case(70:79)
print*,"中"
作业
P44 5、7、9 要求： 1、作业本上画流程图 2、程序输入计算机，下次上机使用 3、上机要求与上次一致
含义
运算顺序
.NOT.→.AND.→.OR.→.EQV. .NEQV. .ＸＯＲ.
逻辑表达式中，各种运算符的优先顺序：
注意 ➢不同运算符的运算对象和运算结果 ➢一个逻辑型量的两侧都可以与逻辑运算符相邻，但不能与 算术运算符、关系运算符相邻 ➢不能在算术量的两侧都出现关系运算符 ➢一定要注意运算顺序
个语句，语句太长时可以使用继续行 ➢ else语句必须单独占一行 ➢ end if语句必须单独占一行，表示块if结构结束 ➢ if语句与end if语句是必须的，而then、else语句可根据实
际情况省略
逻辑if与块if区别
➢ 块if语句至少应有一个end if语句与它相对应；而逻辑if语句 不用
块IF结构
逻辑if语句的局限性
➢只允许有一个语句，多个语句无法实现 ➢实现多个分支时，如用多个逻辑if语句实现，则每一个逻 辑if语句中的逻辑表达式比较复杂
块if结构的一般形式
If (逻辑表达式) then
S1
else
S2
endif
注意问题
➢ 逻辑表达式必须用一对圆括号括起来 ➢ S1、S2可由若干个可执行语句组成，但一行上只能写一
➢ 块if结构中有then；而逻辑if语句中无 ➢ 块if语句中的then后面有多句；逻辑if语句有一句 ➢ 逻辑if可用块if实现；反之，不一定。
例题3.2
y
x3 2x2
3x
2
6x
4x 10, x
7,
x 0
0
具体见演示
选择结构的嵌套
一般形式
注意 ➢每层必以if开始，以end if结束。采用缩进规 则 ➢每层不允许出现交叉 ➢可从内层转到外层。反之不行；then块与else 块也不能互转
预习
如何构造循环结构？ 有哪些基本的循环语句？适用场合？
嵌语句不能是非执行语句，也不能有多于一个可执行语句； ➢ 在使用逻辑if语句时，一定要注意逻辑表达式的正确写法，
特别是在使用多个逻辑if语句时更要注意。
例3.1 输入三个数，求出最大和最小的值。 real x,y,z,max,min read * ,x,y,z max=x min=x if (max<y) max=y if (max<z) max=z print *, "三个数中最大数是", max if (min>y) min=y if (min>z) min=z print *, “三个数中最小数是", min end
例3.6 输入x，求函数的值。已知函数如下：
此问题可以用算术if语句实现。程序如下：
real x
read*,x
if(x)10,20,30
10 y=x*x+1 goto 100
从上可看出，和goto结合使
20 y=sin(x+1)
用，使程序结构不太清晰，
goto 100
不宜多用。
30 y=sqrt(x+2)
➢例3.5 编写程序，输入年月，输出该月 所对应的天数
分析 ➢ 4、6、9、11为30天，其他为31天 ➢ 2月：一般28天，闰年29天 ➢ 闰年：年能被4整除，但不能被100整除；或
年能被400整除都为闰年
integer year,month,day read*,year,month select case(m于前面select case括号里表达式的具体取值，取值 不同，动作不同
（3）case default是缺省情况，可有可无 （4）end select为case结构结束标志
✓ 例3.4、设计程序，完成小学加、减、乘、 除四则运算，即输入两个数，再输入一个 运算符号，做对应的运算，并显示相应的 结果。
goto 100
100 continue
print*,"y=",y
end
程序举例
例题3.7
由键盘输入三个整数A、B、C，然后按从小到大的顺 序输出。 流程图：
例3.8 输入一个三位自然数，判断它是否为水仙花数。 即：各位数字的立方和等于该数本身的数。如 153=13+53+33
integer n,g,s,b,s
逻辑IF语句
一般形式：if (逻辑表达式) 内嵌语句 执行过程： ➢ 1.先算圆括号内判断条件 ➢ 2.成立，执行内嵌语句，然后执行后面的语句 ➢ 3.不成立，直接执行后面的语句 适用范围:只关心一种条件时,仅执行一个处理的简单情况 注意问题：
➢ 逻辑if语句中的逻辑表达式一定要用一对圆括号括起来； ➢ 逻辑if语句中的内嵌语句只能是单个的可执行语句，即内
（1）用逗号隔开的单个值，如：case（1，3，5， 7）
（2）用冒号分隔的值的范围。一般形式为case （a ：b），其中，a为下界，b为上界，下界 或上界也可缺省，如：case（2：8）、case（： 10）、case（’i’:’n’）、case（15：）
（3）1和2的混合，如：case（2：4，6，8：）
2020/5/19
3
关系表达式
格式：<算术量> <关系运算符> <算术量> 关系运算符
.GT.（> 大于）； .LT.（< 小于）； .EQ.（== 等于）； .NE.（/= 不等于）； .GE.（>= 大于或等于）； .LE.（<= 小于或等于）
结果是逻辑型常数 .TRUE.或.FALSE.
注意
第三章 选择结构程序设计
2020/5/19
1
课前思考
对于条件语句，fortran中提供了几种形式？ 每种形式各适用于什么场合？ 每种形式的注意事项是什么？ 编写程序时应考虑哪些问题？
第三章 选择结构程序设计
逻辑if语句 块if结构 选择结构的嵌套 用else if语句实现多路分支 块分支选择结构 程序举例
read*,n g=mod(n,10) s=mod(n/10,10) b=mod(n/100,10)