fortran选择结构及基本语句.ppt

《fortran选择结构及基本语句.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第四讲选择结构及基本语句14.1概述顺序结构程序特点：程序自上而下按语句顺序逐句执行。是三大结构之一。选择结构程序特点：根据条件判定结果决定语句执行顺序。是三大结构之一。FORTRAN90提供IF和SELECT语句来实现选择结构。示例:输入学生成绩，判定合格与否，输出判定结果。PROGRAMexam4_1CHARACTER*6gradeWRITE(*,“(‘输入学生成绩：’)”)READ(*,*)sIF(s>=60)THENgrade=‘合格’ELSEgrade=‘不合格’ENDIFWRITE(*,*)‘该学生成绩’,grade,‘。’ENDprograms≥60

2、假真输出grade结束开始输入成绩s“合格”grade“不合格”grade2长安大学地学信息技术研究所4.2逻辑IF语句逻辑IF语句语法：<逻辑IF语句>→IF(<逻辑表达式e>)<语句S>其中：e为逻辑表达式或关系表达式。S为赋值语句、输入输出语句、STOP、EXIT等可执行语句。逻辑IF语句功能：先求e值,为真(.TRUE.),执行语句S。示例：READ(*,*)i,jIF(i

3、大学地学信息技术研究所逻辑IF语句中的可执行语句S只允许是一条语句。语句S可为赋值语句、I/O语句、STOP、EXIT、CYCLE、GOTO语句。语句S不可为END、IF、DO、ELSEIF、ENDIF语句，及非执行语句。逻辑表达式e两边必须有圆括号。合法逻辑IF语句:IF(A.GT.Max)Max=AIF(A>B)READ(*,*)AIF(X.EQ.10.0)WRITE(*,*)XIF(ABS(A-B)<1E-7)STOPIF(A>B)EXITIF(SUM.LT.100.0)G0TO10非法逻辑IF语句：IF(B.LT.100.0)IF(B.GE.80)A=BIF

4、(X.GT.100.0)ENDIF(A>B)T=AA=BB=TIF(A>B.AND.A>C)DATAA/8/IF(A>B.AND.A>C)IFA.GT.MaxMax=A4长安大学地学信息技术研究所[例4.1]已知三个整数A,B,C,输入其值并打印三个数中最大值。解：根据题意设计算法并画程序流程图,如图4-2所示。程序：INTEGERA,B,C,maxWRITE(*,“(‘请输入三个整数:’)”)READ(*,*)A,B,Cmax=AIF(B>max)max=BIF(C>max)max=CWRITE(*,100)max100FORMAT(1X,'max=',I5)E

5、ND输入：请输入三个实数:12,100,22↙输出：max=100结束max=AB>max真假max=BC>max假真max=C输出max输入：A,B,C5长安大学地学信息技术研究所4.3块IF语句基本块IF语句语法：<基本块IF语句>→IF(<逻辑表达式e>)THEN[][ELSE[]]ENDIF<基本块IF语句>→IF(<逻辑表达式e>)THEN[]ENDIF→{<可执行语句>}→{<可执行语句>}基本块IF语句功能：先求e值,为真,执行,为假,执行

6、SE语句体>。和为一程序段(语句序列)。6长安大学地学信息技术研究所选择结构有三种类型：双边结构、单边结构1、单边结构2。真假THEN语句体eELSE语句体双边选择结构ENDIFENDIF真假eTHEN语句体单边选择结构1ENDIF真假eELSE语句体单边选择结构2IF(e)THENELSEENDIFIF(e)THENENDIFIF(e)THENELSEENDIFIF(.NOT.e)THENENDIF7长安大学地学信息技术研究所[例4.2]输

7、入一个整数,判断它是奇数还是偶数,并打印输出。解：根据题意设计算法并画程序流程图,如图4-4所示。程序：10FORMAT(1X,I5,'ISAEVENNUMBER.')20FORMAT(1X,I5,'ISAODDNUMBER.')WRITE(*,*)'PLEASEINPUTAINTEGERNUMBER:‘READ(*,*)NIF(MOD(N,2)==0)THENWRITE(*,10)NELSEWRITE(*,20)NENDIFEND输入：77↙输出：77ISAODDNUMBER.假打印奇数输入N结束MOD(N,2)==0打印偶数真8长安大学地学信息技术研究所多支