实验04数据的有格式输入输出.docVIP

实验四 数据有格式输入输出 数据是程序处理的主要对象。一般情况下，在程序中要完成大量的数据输入输出任务，输入输出数据是否简洁、直观、醒目、规范,是评价程序质量的一项重要指标。如何组织数据的输入输出是程序设计时要认真考虑的一项重要工作。 FORTRAN90提供了强大的数据输入输出功能，其中数据有格式输入输出功能是FORTRAN90最具特色的功能之一。通过学习和掌握数据有格式输入输出功能，有帮于设计和编写高质量程序。 本实验是学习和掌握数据有格式输入输出功能的一次系统实验活动。 实验目的 了解数据有格式输入输出的主要作用、基本方法和使用规则。 掌握数据有格式输入输出语句(READ、PRINT、WRITE)的基本功能和语法规则。 掌握格式说明语句(FORMAT)的基本功能和语法规则。 掌握I、F、E、A、L、X、/、\等若干常用格式编辑符的格式要求和基本功能。 掌握数据有格式输入输出的数据组织和格式说明方法。 进一步掌握顺序结构程序设计方法。 进一步熟悉软件开发环境。 实验内容1 问题描述 有三个学生参加两门课程的补考，补考结束后，分别统计每个学生和每门课程的平均成绩，并输出统计结果。编写程序实现之。学生人数、课程门数和成绩数据通过键盘输入。 要求输入输出数据以规范、整洁、直观形式给出。程序中应采用数据有格式输入输出。学生人数和课程门数为2位整数，学号为长度等于4的字符串，成绩为小数1位域宽5位的单精度实数。 问题分析 问题对数据输入输出格式提出了严格的要求，程序应按照数据输入输出格式要求实现。按照问题中数据输入输出格式的有关要求，首先应设计好符合要求的数据输入输出格式。 下面给出已设计好的数据输入输出格式，下划线部分为键盘输入数据，非下划线部分为程序输出数据，灰色竖线间隔为一个英文字符，灰色横线间隔为一行，↙为回车键。 输入格式： 请输入学生人数(两位整数): 3↙ 请输入课程门数(两位整数): 2↙ 学号 英语 数学 请输入第1位学生成绩(数据间间隔一位): A111 85.4 74.8↙ 请输入第2位学生成绩(数据间间隔一位): A112 64.2 48.5↙ 请输入第3位学生成绩(数据间间隔一位): A113 100.0 88.4↙ 输出格式： 参加补考有3名学生。 有英语和数学两门补考课程。 学号 英语 数学 平均 第1位学生成绩: A111 85.4 74.8 80.1 第2位学生成绩: A112 64.2 48.5 56.3 第3位学生成绩: A113 100.0 88.4 94.2 课 程 平 均 成 绩: 83.2 70.6 求解算法比较简单，设计算法如下： (1)开始。 (2)根据提示输入补考学生人数n。 (3)根据提示输入补考课程门数m。 (4)根据提示输入第1位学生学号number1、英语成绩english1、数学成绩math1。 (5)根据提示输入第2位学生学号number2、英语成绩english2、数学成绩math2。 (6)根据提示输入第3位学生学号number3、英语成绩english3、数学成绩math3。 (7)统计计算第1位学生平均成绩average1。 (8)统计计算第2位学生平均成绩average2。 (9)统计计算第3位学生平均成绩average3。 (10)统计计算英语平均成绩e_average。 (11)统计计算数学平均成绩m_average。 (12)按输出格式要求输出数据。 (13)结束。 m和n是整型变量，number1、number2、number3是长度为4的字符型变量，其余为实型变量。 程序编写 根据算法，设计和编写程序如下： !班级：??? !姓名：??? !时间：??? !统计平均成绩，并输出 PROGRAM statistic INTEGER(1) :: n,m CHARACTER*4 :: number1,number2,number3 REAL :: english1,math1,english2,math2,english3,math3 REAL :: average1,average2,average3,e_average,m_average WRITE(*,(1X,请输入学生人数(两位整数):,\)) READ(*,(I2)) n WRITE(*,(1X,请输入课程门数(两位整数):,\)) READ(*,(I2)) m WRITE(*,(39X,学号,2X,英语,2X,数学)) WRITE(*,100) 1 READ(*,110) number1,english1,math1 W