Fortran程序设计(第五章-选择结构).ppt_第1页
Fortran程序设计(第五章-选择结构).ppt_第2页
Fortran程序设计(第五章-选择结构).ppt_第3页
Fortran程序设计(第五章-选择结构).ppt_第4页
Fortran程序设计(第五章-选择结构).ppt_第5页
已阅读5页,还剩22页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

第五章选择结构 5 1IF语句 5 2IF结构 5 3程序举例 在任何一种程序设计语言中 都存在三种基本程序结构 顺序结构分支结构 条件判断 循环结构 反复执行某段程序 分支结构 顺序结构 适用于简单问题但有些问题的处理方案 需要由条件选择 例5 1 计算y x2 x 0语句 IF x 0 theny x 2elsey SQRT x ENDIF分支 选择 结构 X 0 Y x2 Y 语句写法 IF 条件 一个可执行语句注 1 单个语句 2 另一个逻辑IF 块IF ELSE ELSEIF ENDIF DO END语句除外 执行过程 计算条件表达式的值真右边语句 下一个语句 假下一个语句 5 1IF语句 例5 2 x 5IF x 2 y 1 0IF x 6 y 3 0IF x 3 y 1 0PRINT YEND 注意 语句顺序的改变对结果的影响 5 2IF结构 IF THEN ELSE结构 块IF结构 书写格式 IF 条件 THEN 块IF语句语句体1 THEN块 由若干语句组成ELSE ELSE语句语句体2 ELSE块 由若干语句组成ENDIF ENDIF语句 注 1 IF THEN标记语句的开始ENDIF与之匹配 标记语句块结束2 条件表达式写法3 与逻辑IF语句的区别 有无THEN关键字可执行语句的个数有无ENDIF关键字 例5 3 计算职工工资 工人每小时计时工资为RATE 如果一周工作时间超过40小时 加班部分的工资按正常时间工资的1 5倍计算 例5 4 输入一个整数 判断是奇数还是偶数分析 输入N块IF 注 在块IF结构中 THEN和ELSE段中可以有一个为空段 1 当ELSE段为空时 块IF结构的书写格式为 IF 条件 THEN语句体1 THEN块 ENDIF 2 当THEN段为空时 块IF结构的书写格式为 IF 条件 THENELSE语句体2 ELSE块 ENDIF 块IF的嵌套 在块IF结构的THEN块和ELSE块中 可以完整地包含另一个 或多个 块IF结构 以构成更复杂的分支结构程序 称为块IF的嵌套 块IF结构嵌套的一般形式为 IF e1 THEN IF e2 THEN ELSE ENDIFELSEIF e3 THEN ELSE ENDIFENDIF 例5 5 三个数A B C 按升序排列 例5 6 学生考试成绩 大于等于80分的为A等 大于等于60分而小于80分的为B等 小于60分的为D等 例5 7 如果在上例的基础上将80分以上定为A等 70 79分为B等 60 69分定为C等 小于60分的为D等 IF e1 THEN块1ELSEIF e2 then块2ELSEIF e3 then块3 ELSE块nENDIF 多分支块IF结构 ELSEIF语句 执行过程计算e值是否成立 真相应的块ENDIF假下一个条件语句所有条件均不成立ELSE后的块ENDIF 例5 7可以用ELSEIF语句来实现 5 3程序举例 1 阅读下列程序 DATAM N 8 24L MOD M N IF L NE 0 THENM NN LL MOD M N GOTO10ENDIFWRITE 100 NFORMAT 1X I2 END上述程序运行后 输出N值为 2 阅读下列程序 READ XIF X LT 0 0 THENY 0 0ELSEIF X GT 1 0 THENY 1 0IF X GE 5 0 THENY 5 0ENDIFELSEY 0 5ENDIFWRITE YEND 当执行上述程序后 由键盘输入0 7 则运行后输出的Y值为 3 填空 下列程序的功能是求满足 12 22 32 K2 2000时K的最大值 请在下划线处填入合适的内容 INTEGERSUMK 1SUM 1K K 1SUM SUM K KIF 1 GOTO10K 2 WRITE KEND 4 阅读下列程序 READ NM 1K 1IF K LE N THENM M KK K 1GOTO10ENDIFWRITE MEND 当执行上述程序后 由键盘输入6 则运行后输出的M值为 5 填空 从键盘输入一个正整数 然后输出所有能除尽它的整数 READ NK 1IF K 1 N 2 THE

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论