流程控制与逻辑运算.pptVIP

Fortran95程序设计第5章流程控制与逻辑运算流程控制与逻辑运算第1页，共17页，星期日，2025年，2月5日*5-1IF语句能够在程序执行当中自动选择转向、跳过某些程序模块来执行程序代码，这是IF关键字的功能。5-1-1IF基本用法最基本的使用方法是由一个程序模块所构成，当IF所赋值的逻辑判断式成立，这模块中的代码才会执行。IF（逻辑判断式）then…….…….…….Endif逻辑成立时才会执行这里面的程序代码[ex0501.f90]第2页，共17页，星期日，2025年，2月5日*5-1IF语句单行IFIf(speed100.0)write(*,*)“Slowdown”如果….那么就….，否则就…..。[ex0502.f90]IF（逻辑判断式）then…….…….ELSE…….…….Endif逻辑成立时，执行这一段的程序代码逻辑不成立时则执行这一段的程序代码第3页，共17页，星期日，2025年，2月5日*5-1-2逻辑运算If命令需搭配逻辑表达式才能使用。逻辑运算符号：[ex0501.for]F90以上F77说明==.EQ.判断是否“相等”/=.NE.判断是否“不相等”.GT.判断是否“大于”=.GE.判断是否“大于或等于”.LT.判断是否“小于”=.LE.判断是否“小于或等于”第4页，共17页，星期日，2025年，2月5日*5-1-2逻辑运算逻辑表达式除了可以单纯对两个数字比较大小之外，还可以对两个逻辑表达式间的关系来运算。如：If(a=80.and.A90)then“.and.”是并且的意思。表示相互关系的集合运算符：.AND.交集，如两边表达式都成立，整个表达式就成立。.OR.并集，两边表达式只要有一个成立，整个表达式就成立。.NOT.逻辑反向，如后面的表达式不成立，整个表达式就成立。.EQV.两边表达式的逻辑运算结果相同时，整个表达式就成立。.NEQV.两边表达式的逻辑运算结果不同时，整个表达式就成立。大于小于等式的运算符号优先级高于集合运算符号[ex0503.f90]第5页，共17页，星期日，2025年，2月5日*5-1-2逻辑运算【.AND.】【.OR.】【.NOT.】【.EQV.】【.NEQV.】“与乘或加”程序代码中可以使用逻辑变量来设置逻辑变量的内容Logical_var=AB[ex0504.f90]当A的数值大于B时，logical_var这个逻辑变量会被设定成“真”(.TRUE.),否则会被设定为“假”(.FALSE.)第6页，共17页，星期日，2025年，2月5日*5-1-3多重判断IF-ELSEIF多重判断可一次列出多个条件及多个程序模块[ex0505.f90]IF（条件1）then…….…….elseif（条件2）then…….…….elseif（条件3）then…….…….elseif（条件4）then…….…….else…….Endif条件1成立时，执行这个模块程序条件2成立时，执行这个模块程序条件3成立时，执行这个模块程序条件4成立时，执行这个模块程序Else这个模块可以省略每个条件都不成立时，才执行这个模块程序[ex0506.f90]第7页，共17页，星期日，2025年，2月5日*5-1-3多重判断IF-ELSEIF利用多个独立的IF语句也能实现多重判断的效果如：判别成绩等级If(score=90)grade=‘A’If(score=80)grade=‘B’If(score=70)grade=‘C’If(score=60)grade=‘D’If(score=0)grade=‘E’If(score=100.or.score0)grade=‘?’[ex0507.f90]第8页，共17页，星期日，2025年，2月5日*5-1-4嵌套IF语句IF(……)THEN←第1层if开始IF(……)THEN←第2层if开始IF(……)THEN←第3层if开始ELSEIF(……)THENELSEENDIF←第3层