资源描述
1,Fortran95程序设计,彭国伦编著,韦劼群wjq2008.11,2,5-1IF语句,能够在程序执行当中自动选择转向、跳过某些程序模块来执行程序代码，这是IF关键字的功能。5-1-1IF基本用法最基本的使用方法是由一个程序模块所构成，当IF所赋值的逻辑判断式成立，这模块中的代码才会执行。,IF（逻辑判断式）then.Endif,逻辑成立时才会执行这里面的程序代码,ex0501.f90,3,5-1IF语句,单行IFIf(speed100.0)write(*,*)“Slowdown”如果.那么就.，否则就.。,ex0502.f90,IF（逻辑判断式）then.ELSE.Endif,逻辑成立时，执行这一段的程序代码,逻辑不成立时则执行这一段的程序代码,4,5-1-2逻辑运算,If命令需搭配逻辑表达式才能使用。逻辑运算符号：,ex0501.for,5,5-1-2逻辑运算,逻辑表达式除了可以单纯对两个数字比较大小之外，还可以对两个逻辑表达式间的关系来运算。如：If(a=80.and.AB,ex0504.f90,当A的数值大于B时，logical_var这个逻辑变量会被设定成“真”(.TRUE.),否则会被设定为“假”(.FALSE.),7,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,8,5-1-3多重判断IF-ELSEIF,利用多个独立的IF语句也能实现多重判断的效果如：判别成绩等级If(score=90)grade=AIf(score=80)grade=BIf(score=70)grade=CIf(score=60)grade=DIf(score=0)grade=EIf(score=100.or.score0)grade=?,ex0507.f90,9,5-1-4嵌套IF语句,IF()THEN第1层if开始IF()THEN第2层if开始IF()THEN第3层if开始ELSEIF()THENELSEENDIF第3层if结束ENDIF第2层if结束ENDIF第1层if结束,ex0508.f90,10,5-2浮点数及字符的逻辑运算,5-2-1浮点数的逻辑判断使用浮点数做逻辑运算时，要避免使用“等于”的判断使用浮点数计算，有效位数是有限的，难免会出现计算上的误差，理想中的等号不一定会成立例：EX0509.f90浮点数的计算误差经常发生，在判断式中要给误差预留一点空间例：EX0510.f90abs()取绝对值的函数,ex0510.f90,ex0509.f90,11,5-2-2字符的逻辑判断,字符也可比较大小，根据是比较它们的字符码（ASCII）,ex0511.f90,12,5-3SELECTCASE语句,ex0512.f90,ex0513.f90,Selectcase（变量）case（数值1）.case（数值2）.case（数值n）.casedefault.Endif,放入所要判断的变量,变量等于数值1时，执行此程序段,变量等于数值2时，执行此程序段,变量等于数值n时，执行此程序段,变量不等于任何数值时，执行此程序段,13,5-3SELECTCASE语句,使用SELECTCASE来取代某些使用IF-ELSEIF的多重语句，会让代码看起来比较简洁。SELECTCASE有一些限制：只能使用整数，字符和逻辑变量，不能使用浮点数和复数。每个case中所使用的数值必须是固定的常量，不能使用变量。,14,5-4其他流程控制,5-4-1GOTO古老的“跳转”语句不建议使用使用GOTO会使编写的程序在结构上变乱，导致程序代码难以阅读5-4-2IF与GOTO的联用IF判断还有一种叫做算术判断的方法，做法和GOTO类似。例：ex0517.for,ex0514.f90,ex0515.f90,ex0516.f90,15,5-4-3PAUSE，CONTINUE，STOP,PAUSE：暂停执行CONTINUE：继续向下执行f90后很少使用STOP：结束程序执行,16,5-5二进制的逻辑运算,二进制的逻辑运算和IF中的逻辑判断式不太相同，比较接近单纯的数学运算。0.and.0=00.and.1=01.and.0=01.and.1=1F90的库函数：IAND()IOR()针对二进制进制integer:aa=B“10”！a=2a=O“10”！a=8a=Z“10”！a=16,ex0429.f90,17,作业,P981、2、3、4,ex0435.f90,ex0436.f90,
展开阅读全文