Fortran90选择结构程序编程作业.docVIP

-PAGE 4- -PAGE 3- 选择结构程序设计作业 前面学习了比较简单的顺序结构程序设计，在顺序结构程序中每条语句都是按书写顺序依次顺序执行。使用顺序结构编写程序，只能求解逻辑关系非常简单的问题，可是许多实际问题，往往具有复杂的逻辑关系，仅使用顺序结构难以编写程序，需要使用更复杂的程序结构，如选择结构(分支结构)。选择结构是求解复杂问题和体现程序智能化的重要程序结构。 FORTRAN90提供了多种用于实现选择结构的语句，如：逻辑IF语句、块IF语句、多支块IF语句和SELECT语句，其中SELECT语句是FORTRAN90新引入的用于实现块CASE结构的语句，它与多支块IF语句在功能上非常相似，但在某些情况下，使用SELECT语句比使用多支块IF语句更简洁和高效。 本实验是学习和掌握关系表达式、逻辑表达式、选择结构语句、选择结构程序设计方法的一次系统实验活动。通过本次实验，能设计和编写简单的具有选择结构的程序，为学习和掌握更复杂的程序结构和程序设计方法奠定基础。 实验内容1 1．问题描述 某高校实行学分制，学分制规定：成绩大于等于60分可获得3个学分和3个绩点，否则不能获得学分和绩点，同时成绩大于等于80分可增加2个绩点。输入学生成绩，计算并输出学生获得的学分和绩点。编写程序实现之。 2．问题分析 已知：成绩cj，且要求从键盘输入。成绩数据类型为整型。 求：学分xf和绩点jd。xf和jd数据类型为整型。 是否获得学分，需通过关系表达式cj≥60判定。是否获得基础绩点，需通过关系表达式cj≥60判定。是否增加绩点，需通过关系表达式cj≥80判定。 不同的成绩，需要进行不同的计算，得出不同结果。求解该问题显然需要使用选择结构。求解思想和方法可多种多样。可将学分和绩点分别独立计算，也可先按关系表达式cj≥60计算学分和基础绩点，然后再通过关系表达式cj≥80增加绩点。我们采用后者。 通过分析，设计算法，绘制框图，如图5-1所示。选择结构为单边选择结构。 3．程序编写 设计和编写程序如下(不完整，在下划线空白处填充正确内容)： !班级：??? !姓名：??? !时间：??? !计算学分和绩点 PROGRAM example cj≥60 cj≥80 图5-1 程序框图 结束 开始 输入成绩：cj 计算学分：xf=3 计算绩点：jd=3 输出学分xf和绩点jd 初始化：xf=0; jd=0 真 假 增加绩点：jd=jd+2 真 假 INTEGER(1) :: cj,xf=0,jd=0 PRINT*, 请输入一个学生成绩(整数)： READ*，cj IF ( ) THEN ENDIF IF ( ) jd= PRINT*, 该学生获得, xf, 学分。 PRINT*, 该学生获得, jd, 绩点。 END 4．实验要求 对问题进行详细分析，理解所给定算法和程序的基本思想，可自行设计和编写程序。 掌握关系表达式、逻辑表达式、逻辑IF语句和块IF语句的语法规则和使用要求。 分三次运行程序，分别输入数据：45、75、95，得到输出结果。 将输入数据和输出结果以注释形式编辑输入到源程序文件末尾。 实验内容2 问题描述 计算下面分段函数的值，编写程序实现之。 x0 x=0 x0 问题分析 对于分段函数的计算,要根据变元不同的取值范围来确定执行哪一段计算公式。 已知：函数变元x，且要求从键盘输入。变元x数据类型为单精度实型。 求：函数值y。函数值y数据类型为单精度实型。 当满足条件x0，则按公式一计算函数值y；当满足条件x=0，则按公式二计算函数值y；当满足条件x0，则按公式三计算函数值y。该问题显然是一个判定问题，求解该问题需要使用选择结构实现。 该问题求解算法比较简单，通过问题分析，设计算法，绘制程序流程图，如图5-2所示。选择结构为双边选择结构。程序可用逻辑IF语句、块IF语句或多支块IF语句实现。 图5-2 程序框图 结束 输出y的值 用公式三计算y 开始 x 0 用公式一计算y 假 真 x = 0 假 真 用公式二计算y 输入x的值 程序编写 设计和编写程序如下(不完整，在下划线空白处填充正确内容)： !班级：??? !姓名：??? !时间：??? !计算分段函数的值 PROGRAM example REAL(4) :: x,y PRINT*, 请输入x的值： READ*, x IF (x0) THEN ELSEIF ( ) THEN y=2 ELSE END IF PRINT *,y=, y END 4．实验要求 对问题进行详细分析，