fortran90数组编程作业

《fortran90数组编程作业》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、数组--程序设计作业数组是FORTRAN90最重要的结构数据类型之一。许多实际问题往往设计大量的数据，数组是存储和处理大批量数据的有效工具，有些问题如果不用数组求解将难以解决。数组是类型相同且有序的一组数据，涉及到这类数据均可考虑使用数组。本次实验是学习和掌握数组声明、数组元素引用、数组输入输出、数组赋初值的一次系统实验活动。通过本次实验，能够设计和编写比较简单的数组应用程序。一．实验内容11．问题描述已知10个正整数：10、55、25、70、45、15、25、85、45、35，输入一个待删除整数，在10个整数中查找，若有该整数，则将其删除，输出删除前后这组整数。编写程序实现之。2．算法设计

2、已知的10个正整数符合数组定义，用一维整型数组num保存，用数组构造器赋初值。待删除整数n从键盘输入。算法基本思想：输入待删除整数，从第1个数组元素num(1)开始，依次用n去比较是否相等，若相等查找成功，将该数组元素删除(在该数组元素位置设置删除标志)，直到第10个数组元素检查比较完毕。输出删除前后数组元素。因10个整数为正数，所以删除标志可用-1表示。算法：(1)输入待删除整数n；(2)输出删除前１０个整数；(3)用n依次在数组元素num(1)、num(2)、…、num(10)中查找，查找成功置删除标志；(4)输出删除后数据。(5)结束算法第3步可用“计数型”循环结构和DO循环语句实现。

3、3．程序编写根据算法，设计和编写不完整示例程序如下(请在下划线空白处填充正确内容)：程序8-1：Ø!班级：???Ø!姓名：???Ø!时间：???-63-Ø!数据查询ØPROGRAMproblem01ØINTEGER：：num(10)=()，nØPRINT*，‘请输入100以内的一个正整数：’ØREAD*，nØPRINT*，‘删除前数据：’ØWRITE(*，100)(num(I)，)ØDOI=1，10ØIF(n==num(I))num(I)=-1ØENDDOØPRINT*ØPRINT*，‘删除后数据：’ØDOI=ØIF()WRITE(*，100)num(I)ØENDDOØPRINT*Ø100F

4、ORMAT((I3，2X))ØEND4．实验要求l分析问题，理解算法和程序，将程序填写完整。l掌握数组声明、数组构造器、隐含DO循环基本概念和使用规则。l将输入数据和输出结果以注释形式编辑输入到源程序文件末尾。l（下次上机试验）改写程序，提高通用性(正整数个数不定，且从键盘输入，数组元素最大个数max通过PARAMETER语句定义)。运行输入几组不同数据，获得不同运行结果。5．实验步骤l分析问题，理解算法和程序，完成程序填空，得到正确完整程序。l启动软件开发环境MicrosoftDeveloperStudio。l编译、构建、运行、调试程序。运行时输入数据45，得到输出结果。l将输入数据和输

5、出结果以注释形式编辑输入到源程序文件末尾。二．实验内容21．问题描述输入一个班学生(人数≤40)的学号和3门课(英语、数学、物理)成绩，-63-计算每个学生平均成绩、每门课平均成绩和三门课平均成绩，统计高于每门课平均成绩和三门课平均成绩的学生人数和占总人数比例，输出统计结果。编写程序实现之。2．算法设计问题中涉及一个班级的学生学号、3门课成绩和学生平均成绩，这些数据符合数组定义，用五个数组存储这些数据。定义以下五个数组：lnumbers：字符型数组，存储学生学号。从键盘输入。lenglishs：整型数组，存储英语成绩。lmaths：整型数组，存储数学成绩。从键盘输入。lphysics：整型数

6、组，存储物理成绩。从键盘输入。laverages：实型数组，存储学生平均成绩。计算获得。计算获得英语平均成绩english_av、数学平均成绩math_av、物理平均成绩physic_av和三门课平均成绩average，均为实型。从键盘输入学生人数n。统计高于英语平均成绩人n1和比例p1，高于数学平均成绩人n2和比例p2，高于物理平均成绩人n3和比例p3，高于三门课平均成绩人nn和比例pp。求解算法比较简单，设计算法如下：(1)输入学生人数n；(2)采用“计数型”循环结构输入学生学号和三门课成绩，同时计算学生平均成绩，统计英语、数学、物理课总成绩；(3)计算英语、数学、物理课平均成绩和三门课

7、平均成绩；(4)采用“计数型”循环结构统计高于平均成绩人数及比例(5)输出统计结果(6)结束3．程序编写根据算法，设计和编写不完整示例程序如下(请在下划线空白处填充正确内容)：程序8-2：Ø!班级：???Ø!姓名：???Ø!时间：???Ø!统计人数及比例ØPROGRAMmainØPARAMETER(max=40)ØCHARACTER*5：：numbers(max)ØINTEGER，DIMENSION()：：e