内容发布更新时间 : 2024/12/26 10:44:59星期一 下面是文章的全部内容请认真阅读。
Fortran90语言程序设计
上机实验报告
河南科技大学
规划与建筑工程学院
班级： 工力112 姓名： 学号： 111409070210 成绩：
2013年 5月 19 日
实验一（1） 熟悉FORTRAN90软件开发环境
一． 实验目的
1． 了解FORTRAN90与软件开发环境的关系。 2． 掌握FORTRAN90上机实验基本操作过程。 3． 掌握FORTRAN90软件开发环境启动方法。 4． 理解有关工作区、项目、文件的基本概念。 5． 掌握工作区、项目、文件创建方法。
6． 熟悉Compaq Visual Fortran软件开发环境图形用户界面。 7． 掌握程序的输入、编辑、编译、构建、运行方法。
8． 了解软件开发环境常用菜单、工具按钮、环境窗口基本功能。 9． 掌握文件、文件夹的移动、复制、删除等操作方法。
二． 课堂实验内容
1． 问题描述
现有长1500米，宽1000米的地块要拍卖建造住宅小区，地块中央有一半径为100米的圆形公共绿地不属于拍卖范围，每平方米地价为5000元。编写程序计算该地块拍卖总价，并输出。要求地块长宽和绿地半径数据从键盘输入。
2． 算法设计
通过对该问题的分析研究，设计求解算法，并绘制流程图如图1-1所示
开始 输入月销售罐数：number 计算油罐容积：cubage 计算月销售数量：volumes 计算月销售额：sale 输出月销售额：sale 结束
图1-1 计算地块总价程序流程图
3. 程序编写
根据算法和流程图，设计和编写程序如下：
? ? !班级：工力112 ? ? !姓名： ? ? !时间：201304 ? ? !计算加油站月销售额 ? ? PROGRAM main ? ? PARAMETER (pi=3.1415) ? ? INTEGER :: number
? ? REAL ：： cubage,volumes,sale
? ? REAL ：： radius=5.0,heigh=3.0,unitprice=500.0 ? ? PRINT*,’请输入月销售油罐数量：’ ? ? READ*，number
? ? cubage=pi*radius*radius*heigh ? ? volumes=cubage*number ? ? sale=volumes*unitprice
? ? PRINT*, ‘加油站月销售额：’，sale，’元。’
? ? END
4. 运行结果
请输入月销售油罐数量: 4 加油站月销售额： 471225.0 元。 Press any key to continue
三．课外练习
1． 问题描述.
1．有一半径为5，高为20的圆柱型物体，求圆柱体积，并输出。编写程序实现之。 2．有一半径为5，高为20的圆锥型物体，求圆锥体积，并输出。编写程序实现之。
2． 算法设计
开始 开始 输入半径和高：r,h 输入半径和高：r,h 计算圆柱体积：V 计算圆锥体积：V 输出圆锥体积：V 输出圆柱体积：V 结束 结束
3. 程序编写
根据流程图，分别编写求解上述两问题的程序：程序1、程序2。 程序1：
? ? !班级：工力112 ? ? !姓名： ? ? !时间：201304 ? ? !计算圆柱体积 ? ? PROGRAM main ? ? PARAMETER (pi=3.1415) ? ? REAL ：： r,h,V
? ? PRINT*,’请输入圆柱底半径和高：’ ? ? READ*，r,h ? ? V=pi*r*r*h
? ? PRINT*, ‘圆柱体积：’，V
程序2：
? ? !班级：工力112 ? ? !姓名： ? ? !时间：2101304 ? ? !计算圆锥体积 ? ? PROGRAM main ? ? PARAMETER (pi=3.1415) ? ? REAL ：： r,h,V
? ? PRINT*,’请输入圆锥底半径和高：’ ? ? READ*，r,h ? ? V=pi*r*r*h/3
? ? PRINT*, ‘圆锥体积：’，V
? ? END
? ? END
4. 运行结果
请输入圆柱底半径和高： 5，20 圆柱体积： 1570.750 Press any key to continue 请输入圆锥底半径和高： 5，20 圆锥体积： 523.5833 Press any key to continue
实验一（2） 掌握FORTRAN90基础知识
一． 实验目的
1． 了解FORTRAN90字符集。
2． 掌握FORTRAN90实体名称的语法描述规则和具体使用要求。 3． 了解FORTRAN90关键字意义，以及与名称的区别。 4． 掌握FORTRAN90程序组织结构和语句排列次序的基本原则。 5． 掌握FORTRAN90自由书写格式及三个标志符的主要作用。 6． 理解数据、数据表示、数据类型概念，熟悉FORTRAN90数据类型。 7． 进一步熟
二． 课堂实验内容
1． 问题描述
有一呈等腰梯形的鱼塘，上底边长为150米，下底边长为210米，高为40米，在鱼塘周围建起了围墙，如图2-1所示。每平方米鱼塘产鱼4公斤，每公斤鱼的价格为10元。编写程序计算该鱼塘的产量和产值，以及围墙的长度。要求梯形的上底边长、下底边长、高从键盘输入。
a:150 c h:40 b:210 图2-1 鱼塘示意图
2． 算法设计