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

4.5 习题四 1．某商店对购货额为1000元以上(含1000元,下同),八折优待;500元 以上1000元以下,九折优待;200元以上500元以下,九五折优待; 100元以上200元以下,九七折优待;100元以下,不优待。请编写 程序,输入购货额,计算优惠货款,并打印输出该货款。 2．计算税收。企业产值小于1000万,税率为3%;企业产值大于等于1000万小于2000万,税率为5%;企业产值大于等于2000万小于5000万,税率为7%;企业产值大于等于5000万小于1亿,税率为10%;企业产值大于等于1亿小于5亿,税率为14%;企业产值大于等于5亿,税率为20%。请编写程序,输入某企业产值,计算出其当年的应交税值,并打印输出。 09/10学年第一学期 * * * xx xx xx xx xx xx xx xx xx xx xx xx 第四讲 选择结构及基本语句 09/10学年第一学期 * 4.1 概述 顺序结构程序特点：程序自上而下按语句顺序逐句执行。是三大结构之一。 选择结构程序特点：根据条件判定结果决定语句执行顺序。是三大结构之一。 FORTRAN90提供IF和SELECT语句来实现选择结构。 示例:输入学生成绩，判定合格与否，输出判定结果。 PROGRAM exam4_1 CHARACTER*6 grade WRITE(*,“(‘输入学生成绩：’\)”) READ (*,*)s IF (s=60) THEN grade=‘合格’ ELSE grade=‘不合格’ END IF WRITE(*,*)‘该学生成绩’,grade,‘。’ END program s≥60 假 真 输出grade 结 束 开 始 输入成绩s “合格”?grade “不合格”?grade 09/10学年第一学期 * 4.2 逻辑IF语句 逻辑IF语句语法： 逻辑IF语句→IF(逻辑表达式e)语句S 其中：e为逻辑表达式或关系表达式。 S为赋值语句、输入输出语句、STOP、EXIT等可执行语句。 逻辑IF语句功能：先求e值,为真(.TRUE.),执行语句S。 示例： READ (*,*)i,j IF(ij) WRITE(*,*)I WRITE(*,*)‘逻辑IF语句执行结束。’ END 输入：125，200 输出：125 逻辑IF语句执行结束。 输入：200，125 输出：逻辑IF语句结束。 09/10学年第一学期 * 逻辑IF语句中的可执行语句S只允许是一条语句。 语句S可为赋值语句、I/O语句、STOP、EXIT、CYCLE、GOTO语句。 语句S不可为END、IF、DO、ELSEIF、ENDIF语句，及非执行语句。 逻辑表达式e两边必须有圆括号。 合法逻辑IF语句: IF (A .GT. Max) Max=A IF (AB) READ (*,*) A IF (X.EQ.10.0) WRITE(*,*) X IF (ABS(A-B)1E-7) STOP IF (AB) EXIT IF (SUM .LT. 100.0) G0TO 10 非法逻辑IF语句： IF (B.LT.100.0) IF (B.GE.80) A=B IF (X.GT.100.0) END IF (AB) T=A A=B B=T IF (AB .AND. AC) DATA A/8/ IF (AB .AND. AC) IF A.GT.Max Max=A 09/10学年第一学期 * [例4.1]已知三个整数A,B,C,输入其值并打印三个数中最大值。 解：根据题意设计算法并画程序流程图,如图4-2所示。 程序： INTEGER A,B,C,max WRITE(*,“(‘请输入三个整数:’\)”) READ(*,*) A,B,C max=A IF(Bmax) max=B IF(Cmax) max=C WRITE(*,100) max 100 FORMAT(1X,max=,I5) END 输入：请输入三个实数:12,100,22↙ 输出：max= 100 结束 max=A Bmax 真 假 max=B Cmax 假 真 max=C 输出max 输入： A,B,C 09/10学年第一学期 * 4.3 块IF语句 基本块IF语句语法： 基本块IF语句→IF(逻辑表达式e)THEN [THEN语句体] [