<4D F736F F F696E74202D BDE1B9B9BBAFB3CCD0F2C9E8BCC D20D1A1D4F1>

Size: px

Start display at page:

Download "<4D F736F F F696E74202D BDE1B9B9BBAFB3CCD0F2C9E8BCC D20D1A1D4F1>"

娈封
5 years ago
Views:

1 能源与动力工程学院结构化编程结构化程序设计选择结构化编程的三种基本结构 : 顺序结构 I=1 选择 ( 分支 ) 结构循环结构 sum=sum+i I = I +1 陈斌 A?=B NO I>100 No YES Yes 目录第一节逻辑运算第一节逻辑运算第二节 I 语句逻辑运算算术运算关系运算逻辑运算关系运算符运算优先级第三节浮点数及字符的逻辑运算功能 / 意义第四节 SELEC CASE 语句 ==.EQ. 判断是否等于第五节其它流程控制语句 /= >.NE..G. 判断是否不相等判断是否大于 >=.GE. 判断是否大于或等于 <.L. 判断是否小于 <=.LE. 判断是否小于或等于 1

2 第一节逻辑运算第一节逻辑运算逻辑运算符两个逻辑运算式间的运算关系逻辑运算符 80 A < 90 A>=80.AND. A<90 含义优先级逻辑 A 逻辑 B.NO.A A.AND.B A.OR.B A.EQV.B A.NEQV.B.NO. 逻辑非对后面的表达式结果取反 1.AND..OR..EQV..NEQV. 逻辑与逻辑或逻辑等逻辑不等两边的表达式都成立, 整个表达式才成立两边的表达式只要有一个成立, 整个表达式就成立两边表达式的逻辑运算结果相同时, 整个表达式就成立两边表达式的逻辑运算结果不同时, 整个表达式就成立第一节逻辑运算如果变量 A 在 10~20 之间时, 条件成立 (A>=10).and. (A<=20) 如果变量 key 等于字符 Y 或 y 时, 条件成立 (key== Y ).or. (key== y ) 变量 A 等于 10 时, 条件不成立.not. (A==10) 变量 a 及 b 同为正数或同为负数, 条件成立 (a>0.and. b>0).or. (a<0.and. b<0) 第二节 I 语句行 if 语句 : I( 逻辑判断式 ) 执行语句假如条件为真, 就执行条件后的那条语句 ; 否则, 程序流程跳过 I 语句, 接着往下执行所需要执行的程序模块只能有一行程序代码例行 I 语句 PROGRAM EX0401 IMPLICI NONE REAL (KIND=4) :: SPEED WRIE (*,*) SPEED:! 信息提示 READ (*,*) SPEED! 读入车速 I (SPEED > 100.0) WRIE (*,*) SLOW DOWN. 2

3 第二节 I 语句第二节 I 语句多重判断 if (a >= 60) print *, pass! print if (a *, < 60) fail! 在 77 以前配合 goto 语句实现流程与循环控制, 容易造成程序结构混乱降低可读性并产生错误, 所以不建议使用 if (a.ge. 60) goto 100 print *, fail! goto print *, pass! 200 stop 从上例可以看出,I 语句的功能极为有限, 为了执行稍复杂的流程控制, 不得不结合使用 GOO 无条件转移语句, 结果使程序代码的可读性大为降低第二节 I 语句第二节 I 语句 I( 逻辑判断式 )HEN! 逻辑成立时, 才会执行这里面的程序代码 I PROGRAM EX0401 IMPLICI NONE 例 4-1 块 I 语句 REAL (KIND=4) :: SPEED WRIE (*,*) SPEED:! 信息提示 READ (*,*) SPEED! 读入车速 I (SPEED > 100.0) HEN!SPEED >100 时才会执行下面这一行程序 WRIE (*,*) SLOW DOWN. I I ( 逻辑判断式 ) HEN! 逻辑成立时, 执行这一段程序代码! 逻辑不成立时, 则执行这一段程序代码 I 3

4 第二节 I 语句第二节 I 语句例 4-2 块 I 语句 PROGRAM EX0402 IMPLICI NONE REAL (KIND=4) :: HEIGH! 记录身高 REAL (KIND=4) :: WEIGH! 记录体重 WRIE (*,*) HEIGH: READ (*,*) HEIGH! 读入身高 WRIE (*,*) WEIGH: READ (*,*) WEIGH! 读入体重 I (WEIGH > HEIGH-100) HEN! 如果体重大于身高减去 100, 会执行下面的程序 WRIE (*,*) OO A!! 如果体重不大于身高减去 100, 会执行下面的程序 WRIE (*,*) UNDER CONROL. I 例 4-3 块 I 语句 2: 降雨量超过 500 厘米或者风力超过 10 级, 可以停课 PROGRAM EX0403 IMPLICI NONE INEGER RAIN, WINDSPEED WRIE(*,*,ADVANCE= no ) RAIN(mm): READ(*,*) RAIN WRIE(*,*,ADVANCE= no ) WIND(scale): READ(*,*) WINDSPEED I (RAIN>=500.OR. WINDSPEED>=10) HEN WRIE (*,*) 停止上班上课 WRIE (*,*) 照常上班上课 I 第二节 I 语句第二节 I 语句 I ( 条件 1) HEN 条件 1 成立时, 执行这个模块程序 I( 条件 2) HEN 条件 2 成立时, 执行这个模块程序 I( 条件 3) HEN 条件 3 成立时, 执行这个模块程序 I( 条件 4) HEN 条件 4 成立时, 执行这个模块程序这个模块可以省略每个条件都不成立时, 才执行这个模块程序 I I 结构要求合理排列逻辑条件, 使得一次只能有一个逻辑条件为真例 4-7 行 If 语句实现的多重判断 PROGRAM EX0407 IMPLICI NONE INEGER SCORE CHARACER GRADE WRIE (*,*) SCORE: READ (*,*) SCORE I (SCORE>=90.AND. SCORE<=100 ) GRADE= A I (SCORE>=80.AND. SCORE<=90 ) GRADE= B I (SCORE>=70.AND. SCORE<=80 ) GRADE= C I (SCORE>=60.AND. SCORE<=70 ) GRADE= D I (SCORE>=0.AND. SCORE<=60 ) GRADE= E I (SCORE>100.OR. SCORE<0 ) GRADE=? WRIE (*, ( GRADE:,A1) ) GRADE 4

5 第二节 I 语句第二节 I 语句例 4-5 块 If 语句实现的多重判断 (1) PROGRAM EX0405 IMPLICI NONE INEGER SCORE CHARACER GRADE WRIE (*,*) SCORE: READ (*,*) SCORE I ( SCORE>=90.AND. SCORE<=100 ) HEN GRADE= A I ( SCORE>=80.AND. SCORE<=90 ) HEN GRADE= B I ( SCORE>=70.AND. SCORE<=80 ) HEN GRADE= C I ( SCORE>=60.AND. SCORE<=70 ) HEN GRADE= D I ( SCORE>=0.AND. SCORE<=60 ) HEN GRADE= E GRADE=?! SCORE<0 或 SCORE>100 的不合理情况 I WRIE (*, ( GRADE:,A1) ) GRADE 例 4-6 块 If 语句实现的多重判断 (2) PROGRAM EX0406 IMPLICI NONE INEGER SCORE CHARACER GRADE WRIE (*,*) SCORE: READ (*,*) SCORE I (SCORE>100) HEN GRADE=? I (SCORE>=90) HEN! 会执行到此, 代表 SCORE<=100 GRADE= A I (SCORE>=80) HEN! 会执行到此, 代表 SCORE<=90 GRADE= B I (SCORE>=70) HEN! 会执行到此, 代表 SCORE<=80 GRADE= C I (SCORE>=60) HEN! 会执行到此, 代表 SCORE<=70 GRADE= D I (SCORE>=0) HEN! 会执行到此, 代表 SCORE<=60 GRADE= E GRADE=? I WRIE(*, ( GRADE:,A1) ) GRADE 第二节 I 语句第二节 I 语句嵌套 I 语句 I ( ) HEN! 第 1 层 I 开始 I ( ) HEN! 第 2 层 I 开始 I ( ) HEN! 第 3 层 I 开始 I ( ) HEN I! 第 3 层 I 结束 I! 第 2 层 I 结束 I! 第 1 层 I 结束例 4-8 判断一个点所在的象限 I ( X>0 ) HEN I (Y>0) HEN! X>0,Y>0 ANS=1 I (Y<0) HEN! X>0, Y<0 ANS=4! X>0, Y=0 ANS=0 I I (X<0) HEN I (Y>0) HEN! X<0, Y>0 ANS=2 I (Y<0) HEN! X<0, Y<0 ANS=3!X<0, Y=0 ANS=0 I! X=0, Y= 任意数 ANS=0 I 第二象限第一象限 X<0 X>0 Y>0 Y>0 第三象限第四象限 X<0 X>0 Y<0 Y<0 5

6 第二节浮点数及字符的逻辑运算第二节浮点数及字符的逻辑运算例 4-9 浮点数的判断 PROGRAM loatingpoint IMPLICI NONE REAL :: A REAL :: B = 3.0!what will happen for 4.0 A = SQR(B)**2 - B! 理论上 A 应该等于 0 I (A == 0.0) HEN WRIE(*,*) A 等于 0 WRIE(*,*) A 不等于 0 I 例 4-10 浮点数的判断 PROGRAM loatingpoint IMPLICI NONE REAL :: A REAL :: B = 3.0 REAL, PARAMEER :: E = 1E-4! 设置误差范围 A = SQR(B)**2 - B! 理论上 A 应该等于 0 I (ABS(A-0.0)<=E ) HEN WRIE(*,*) A 等于 0 WRIE(*,*) A 不等于 0 I 完成多重判断第三节 select-case 语句 select case( 变量 ) case( 数值 1)... 变量等于数值 1 时, 执行这一段 case( 数值 2)... 变量等于数值 2 时, 执行这一段... case( 数值 n)... 变量等于数值 n 时, 执行这一段 case default... 变量不等于上述数值时, 执行该段 end select 第三节 select-case 语句只能使用整数字符及逻辑变量, 不能使用浮点数及复数每个 CASE 中所使用的数值必须是固定的常量, 不能使用变量在 CASE 里的冒号前后放入两个数值时, 代表在这两个数字范围中的所有数值 CASE 的括号里还可以用逗号来放入多个变量 6

7 第三节 select-case 语句第三节 select-case 语句例 4-13 select case 语句例 4-13 select case 语句 SELEC CASE (SCORE) CASE(90:100) GRADE= A CASE(80:89) GRADE= B CASE(70:79) GRADE= C CASE(60:69) GRADE= D CASE(0:59) GRADE= E CASE DEAUL GRADE=? SELEC! 90 到 100 分之间! 80 到 89 分之间! 70 到 79 分之间! 60 到 69 分之间! 0 到 59 分之间! 其他情况 PROGRAM EX0413 IMPLICI NONE REAL A, B, ANS CHARACER OPERAOR READ (*,*) A READ (*, (A1) ) OPERAOR! 不赋值格式时, 有些机器会读不到除号 / READ (*,*) B SELEC CASE (OPERAOR) CASE ( + ) ANS = A + B CASE ( - ) ANS = A - B CASE ( * ) ANS = A * B CASE ( / ) ANS = A / B CASE DEAUL! 出入其他符号不处理 WRIE ( *, ( UNKNOWN OPERAOR, A1 ) ) OPERAOR SOP! 结束程序 SELEC WRIE ( *, ( 6.2, A1, 6.2, =, 6.2 ) ) A, OPERAOR, B, ANS 第三节 select-case 语句第四节其他流程控制方式 select case 语句 PROGRAM EX0413 IMPLICI NONE CHARACER CH DO WRIE(*,'(A)',ADVANCE='NO')'Input a character: READ*,CH I(CH=='@')EXI I(CH>='A'.AND.CH<='Z'.OR.CH>='a'.AND.CH<='z') HEN SELEC CASE(CH) CASE('A','E','I','O','U','a','e','i','o','u') PRIN*,'Vowel' CASE DEAUL PRIN*,'Consonant' SELEC PRIN*,'Something else' I DO 例 4-15 goto 语句标号跳转并执行语句标号所在行的代码容易造成程序结构混乱降低可读性并产生错误, 所以不建议使用 PROGRAM EX0415 IMPLICI NONE INEGER I! 用来累加使用 INEGER N! 被当成常量, 用来限定 I 的累加次数 PARAMEER (N= 10) DAA I /0/ 10 WRIE ( *, (1X, A3, I2 ) I=, I I = I + 1 I (I. L. N) GOO 10! I<10 就跳回代码为 10 的那一行 7

8 例 4-17 算术 I 语句第四节其他流程控制方式 I ( 算术表达式 ) 语句标号 1, 语句标号 2, 语句标号 3 语句标号 1,2,3 分别对应算术表达式的值小于 0, 等于 0 和大于 0 PROGRAM ex0417 IMPLICI NONE REAL A, B,C DAA A, B /2.0, 1.0 / C = A - B I ( C ) 10, 20, WRIE ( *,* ) A<B GOO WRIE ( *,* ) A=B GOO WRIE ( *,* ) A>B 40 SOP 第四节其他流程控制方式 PAUSE 程序执行到 PAUSE 时, 会暂停执行, 直到用户按下 Enter 键才会继续执行 CONINUE 继续向下执行程序 SOP 结束程序执行 8

<4D F736F F F696E74202D BDE1B9B9BBAFB3CCD0F2C9E8BCC D20D1ADBBB7>

<4D F736F F F696E74202D BDE1B9B9BBAFB3CCD0F2C9E8BCC D20D1ADBBB7> 能源与动力工程学院结构化编程结构化程序设计循环循环结构确定性循环非确定性循环 I=1 sum=sum+i I = I +1 陈斌 I>100 Yes No 目录求和 :1+2+3++100 第四节循环的应用 PROGRAM GAUSS INTEGER I, SUM 计数器 SUM = 0 DO I = 1, 100, 1 SUM = SUM + I print*, I, SUM DO