FORTRAN90上机实习-1
F90实验报告
实验1 FORTRAN 90的编程环境与简单程序设计一、实验目的1.熟悉FORTRAN90的编程环境——Fortran PowerStation 4.0，并能够在此环境下编写FORTRAN90的程序。
2.掌握FORTRAN90程序中所用到的类型说明语句、赋值语句、读、写语句等语句的语句格式，理解并掌握这些语句的功能。
3.掌握简单程序设计方法，能够用简单的语句编写一些简单的应用程序。
4.掌握FORTRAN90源程序的结构特点与书写规范。
二、实验要求1.根据题目，设计各题算法并画出流程图，按照流程图编写程序。
2.对每个程序认真进行语法检查与逻辑检查。
3.上机调试程序。
按各个程序输入计算机，并且编译和连接，如果在编译、连接中有错误信息，则要根据这些信息找到程序中的错误所在，然后修改程序，直至正确。
4.运行程序，记录数据输入和数据输出的情况。
5.写出实验报告。
三、实验内容1.开机；进入Fortran PowerStation4.0集成工作环境，了解工作环境及其菜单的使用，输入如下FORTRAN90源程序，并以A1.F90存盘。
PROGRAM EX1IMPLICIT NONEPRINT *，'2+3=',2+3PRINT *，'This is a program！'END PROGRAM EX1编译、链接、运行后，结果是：2.输入并调试以下程序，查看运行结果。
PROGRAM EX2IMPLICIT NONEINTEGER::A,B,CREAD *,A,BC=A+BPRINT *,'A+B=',CEND PROGRAM EX2运行时，输入2，3↙，则结果是：3.程序设计4π3R）及经过球心的横切面的直径(2R)、周长（2πr）⑴已知一个球的半径，求它的表面积（4π2R）、体积（3和面积（π2R）。
⑵某单位在发放工资时，为每个职工准备一个工资袋。
假定币值为100元、50元、10元、5元、2元、1元、5角、2角和1角9种，设某职工的工资为X，试计算他的工资袋里各币值的张数。
FORTRAN90程序设计1[1]
![FORTRAN90程序设计1[1]](https://img.taocdn.com/s3/m/4d51e420bcd126fff7050be5.png)
程序设计举例
算法
算法是计算机软件中的一个基本概念，它是对解决实际问题的方法和步
骤的描述。设计算法是程序设计的核心，也是编写程序的基础。
正确的算法有以下几个显著特点：
(1)有穷性(flniteness)。 (2)确定性(certainty)。 (3)有效性(effcctivencss)。 (4)有零个或多个输入(input)。 (5)有一个或多个输出(output)。
简单的FORTRAN90程序分析
（6）空格并不是随处都可以使用的，一个像关键字、变量和常量名以 及操作符等的字符，其内部是不能使用空格的，空格会使字符失去其原 有的含义。 （7）FORTRAN90的注释语句是以感叹号为标志的，一行中感叹号后的 所有字符都被编译器作为注释语句而忽略。注释语句可以单独占一行， 也可在程序的其他语句后面出现。在FORTRAN90中，空行被作为注释 语句。 （8）如果遇到一条语句的长度超过了FORTRAN90所允许的行最大长度， 需要写成几行，FORTRAN90提供了一个续行符 ( & ) ，通过在语句末尾 添加续行符，编译器就会把下一行作为续行来处理。如果是把一个如关 键字这样的字符分成两行，那么需要在下行语句的开头再加一个续行符。
CHARACTER ( LEN = 10 ) :: STRING 子字符串是字符串中的若干个连续字符的集合。子字符
CHARACTER (LEN = 5 ) :: SUBSTRING 串的表示方法如下： CHARACTER (LEN = 1 ) :: CHAR STRING=’JANEJORDE’ 字符串变量名（[FIRST-POSITION] : [END-POSITION]） ! SUBSTRING的值为“JANE” SUBSTRING=STRING ( :5 ) 缺省的开始位置是１，缺省的结束位置是字符串的长度。 SUBSTRING=STRING ( 5:6 ) ! SUBSTRING的值为“J” 如果开始位置大于结束位置则子字符串为空，即它的长 SUBSTRING=STRING ( 3:7 ) ! SUBSTRING的值为“NEJO” N=7 度为０。 CHAR=’ABCDEFGHIJK’ ( N:N ) ! CHAR的值为“G”
(新)FORTRAN90程序设计实验指导
FORTRAN90程序设计实验指导第一节 FORTRAN PowerStation 4.0快速入门1.1 安装FORTRAN PowerStation 4.01.1.1 系统要求安装Microsoft FORTRAN PowerStation 4.0需要具备以下软硬件条件：●80486或以上处理器，运行Windows 95/Windows NT 3.51或以上操作系统。
●如果安装标准版，需要3.5英寸软盘驱动器或光盘驱动器，如安装专业版，则必须具有光盘驱动器。
●16MB或以上内存。
●足够的硬盘空间。
安装程序根据安装选项提示所需的硬盘空间。
标准版和专业版的典型安装分别需要约45MB和70MB硬盘空间。
●VGA显示器（推荐使用SVGA显示器）。
●鼠标。
1.1.2 安装步骤下面以Windows 95操作系统为例，对于Windows NT操作系统，安装过程与此类似。
首先，将含FORTRAN PowerStation 4.0的光盘插入光盘驱动器，在资源管理器中运行Setup程序，屏幕显示Microsoft FORTRAN PowerStation Setup窗口；安装程序自动搜索已有组件，单击【Continue】(继续)按钮，并按提示输入CD-Key后，安装程序会显示安装选项对话框(图1.1)；如果要改变安装FORTRAN PowerStation 4.0的文件夹,单击【Change Folder...】(改变文件夹)按钮，选择或输入所需的文件夹名；如果输入的文件夹不存在，安装程序会自动生成该文件夹，并生成几个下级文件夹以存放相应的各类文件。
图1.1还显示了各安装选项的简短说明和安装时所需的硬盘空间。
选择下列四个安装选项之一继续安装：Typical(典型)Custom/Complete(定制/完全)Compact(紧凑)Run from CD-ROM(从光盘运行)图1.1 Setup程序的安装选项对话框Typical(典型)安装选项将安装最常用的部分，约需70MB 硬盘空间。
FORTRAN实验报告(一)
①整型：
PROGRAM ADD6_1
!输出9*9乘法表
INTEGER I,J
DO I=1,9
PRINT 10,(J,I,J*I,J=1,I) !隐性DO循环
输出：87 67.40 465 345.70
⑵输入：0087067.40
0046500345.70
输出：87 67.40
465 345.70
③指数形式：
PROGRAM XI6_2
!输入1234567891011121314151617181920
INTEGER A
REAL B,C
CHARACTER*10 D
1*3= 3 2*3= 6 3*3= 9
1*4= 4 2*4= 8 3*4=12 4*4=16
1*5= 5 2*5=10 3*5=15 4*5=20 5*5=25
1*6= 6 2*6=12 3*6=18 4*6=24 5*6=30 6*6=36
1*7= 7 2*7=14 3*7=21 4*7=28 5*7=35 6*7=42 7*7=49
STATEMENT
END SELECT
2、循环结构格式如下：
DO循环：DO I=E1,E2,E3
STATEMENT
[IF(L) EXIT]
[IF(L) CYCLE]
ENDDO
DO WHIEL循环：DO WHILE(LOGICAL)
STATEMENT
ENDDO
隐DO循环：(STATEMENT, I=E1,E2,E3)(可以嵌套使用)
FORTRAN90程序设计实验指导
FORTRAN90程序设计实验指导第一节 FORTRAN PowerStation 4.0快速入门1.1 安装FORTRAN PowerStation 4.01.1.1 系统要求安装Microsoft FORTRAN PowerStation 4.0需要具备以下软硬件条件：●80486或以上处理器，运行Windows 95/Windows NT 3.51或以上操作系统。
●如果安装标准版，需要3.5英寸软盘驱动器或光盘驱动器，如安装专业版，则必须具有光盘驱动器。
●16MB或以上内存。
●足够的硬盘空间。
安装程序根据安装选项提示所需的硬盘空间。
标准版和专业版的典型安装分别需要约45MB和70MB硬盘空间。
●VGA显示器（推荐使用SVGA显示器）。
●鼠标。
1.1.2 安装步骤下面以Windows 95操作系统为例，对于Windows NT操作系统，安装过程与此类似。
首先，将含FORTRAN PowerStation 4.0的光盘插入光盘驱动器，在资源管理器中运行Setup程序，屏幕显示Microsoft FORTRAN PowerStation Setup窗口；安装程序自动搜索已有组件，单击【Continue】(继续)按钮，并按提示输入CD-Key后，安装程序会显示安装选项对话框(图1.1)；如果要改变安装FORTRAN PowerStation 4.0的文件夹,单击【Change Folder...】(改变文件夹)按钮，选择或输入所需的文件夹名；如果输入的文件夹不存在，安装程序会自动生成该文件夹，并生成几个下级文件夹以存放相应的各类文件。
图1.1还显示了各安装选项的简短说明和安装时所需的硬盘空间。
选择下列四个安装选项之一继续安装：Typical(典型)Custom/Complete(定制/完全)Compact(紧凑)图1.1 Setup程序的安装选项对话框Run from CD-ROM(从光盘运行)Typical(典型)安装选项将安装最常用的部分，约需70MB 硬盘空间。
Fortran实验报告样例(1)
n n 1)1(312111+-+⋅⋅⋅-+-实验报告样例南京信息工程大学Fortran 语言程序设计 实验(实习)报告 实验(实习)名称 循环程序设计 实验(实习)日期 得分 指导老师系 专业 班级 姓名 学号一.实验目的:1. 掌握DO 、DO WHILE 语句的语法规则和使用要求。
2. 掌握循环结构概念和循环结构程序设计方法。
3. 掌握强制性终止循环语句EXIT 和CYCLE 的基本功能和使用规则，以及相互区别。
4. 掌握嵌套循环结构概念和应用。
二.实验内容1:1． 问题描述给定5名学生的考试成绩S,评判每个学生的成绩等级,并输出。
编写程序实现之。
成绩按以下标准评定等级：优:90≤S ≤100;良:80≤S<90;中:70≤S<80; 及格:60≤S<70;不及格:S<60。
2．问题分析已知：5个学生成绩：s 1、s 2、s 3、s 4、s 5，从键盘输入，数据类型为整型。
求：5个学生成绩等级，g1、g2、g3、g4、g5，数据类型为字符型。
求解该问题的基本思想是：从键盘依次读取学生成绩数据，每读一个学生成绩，就按照成绩等级评定标准评定等级，并输出该学生等级。
由于有确定的5个学生，所以读取学生成绩和评定成绩等级共5次。
该问题显然是一个重复次数确定的重复处理问题，可通过“计数型”循环结构和DO 循环语句实现。
用整型变量cj 表示学生成绩，用字符型变量grade 表示成绩等级。
用整型变量I 作为循环控制变量。
通过分析，设计算法，绘制框图，如图6-2所示。
3. 实验步骤:1） 算法流程图：2） 编制源程序：（可附在下一页上）3） 运行结果：输入：输出：4. 分析实验中遇到的问题及其解决的办法三、实验内容2:1．问题描述计算其中n 为满足不等式12+22+32+…+n 2>A 的最小项数ｎ。
A 从键盘输入，如：10000。
编写程序实现之。
2．问题分析求解本题，先通过“条件型”循环结构求最小项数n ，整型数，然后再通过“计数型”循环计算级数之和。
fortran实验报告
fortran实验报告FORTRAN实验报告实验⽇期2012年3⽉6⽇⼀、实验⽬的1、了解FORTRAN90软件开发环境2、学会启动Fortran，掌握程序的编辑、编译、构建、运⾏⽅法。
3、了解软件开发环境常⽤菜单、⼯具按钮、环境窗⼝基本功能。
掌握⽂件、⽂件夹的移动、复制、删除等操作⽅法。
⼆、实验内容1、运⾏Microsoft Developer Studio软件开发环境。
2、理解有关⼯作区（Workspaces）、项⽬（Projects）、⽂件（Files）的基本概念。
3、掌握⼯作区（Workspaces）、项⽬（Projects）、⽂件（Files）创建⽅法。
4、掌握程序的编辑（Edit）、编译（Compile）、构建（Build）、运⾏（Run）⽅法三、实验步骤1、建⽴⽂件夹2、启动Microsoft Developer Studio软件开发环境，并创建⼯作区、项⽬3、创建⽂件4、编译项⽬内源程序⽂件5、构建可执⾏程序⽂件。
6、运⾏可执⾏程序⽂件四、实验结果与分析实验结果：FORTRAN实验报告实验⽇期2013年3⽉13⽇⼀、实验⽬的1、掌握源程序的书写格式；2、掌握FORTRAN 90中基本数据类型及其描述、运算；3、掌握基本语句的使⽤⼆、实验内容编写简单程序代码1、整数类型program ex0404 integer aa=3write(*,*) "a=",astopEndprogram ex0406 integer(kind=4) write write=2+2*4-3write(*,*) "2+2*4-3=",write stopEnd2、浮点数类型program ex0410real :: a,b,ca=0.5b=0.5c=sin(a)**2 + cos(b)**2 write(*,*) "c=",cstopEnd3、复数类型program ex0411 complex :: a,ba=(1.0,1.0)b=(1.0,2.0)write(*,*) "a+b=",a+b write(*,*) "a-b=",a-b write(*,*) "a*b=",a*b write(*,*) "a/b=",a/bstopend4、字符类型program ex0413 character(len=20) stringstring = "Good morning."write(*,*) stringstring(6:) = "evening." ! 重设设定从第6个字符之后的字符串write(*,*) string end5、逻辑类型program ex0416logical a,ba=.true.b=.false.write(*,*) a,bend三、实验步骤1、编译、构建、运⾏、调试程序2、编写实验报告四、实验结果与分析1、执⾏结果：2、执⾏结果：3、执⾏结果：45、FORTRAN实验报告实验⽇期2012年3⽉26⽇⼀、实验⽬的1、掌握⾃定义数据类型的使⽤，熟练进⾏程序编写⼆、实验内容⾃定义类型program ex0434implicit none! 开始建⽴person这个类型character(len=30) :: name ! ⼈名integer :: age ! 年龄integer :: height ! ⾝⾼integer :: weight ! 体重character(len=80) :: address ! 地址end type persontype(person) :: a ! 声明⼀个person类型的变量write(*,*) "NAME:"read(*,*) a%namewrite(*,*) "AGE:"read(*,*) a%agewrite(*,*) "HEIGHT:"read(*,*) a%heightwrite(*,*) "WEIGHT:"read(*,*) a%weightwrite(*,*) "ADDRESS:"read(*,"(A80)") a%addresswrite(*,100) a%name,a%age,a%height,a%weight100 format("Name:",A10/,"Age:",I3/,"Height:",I3/,"Weight:",I3,& &"Addres:",A50) stopend三、实验步骤1、编写程序代码、编译、调试2、编写实验报告四、实验结果与分析实验结果：输⼊Chang 23 171 59 hebeidaxue执⾏结果：FORTRAN实验报告实验⽇期2012年4⽉9⽇⼀、实验⽬的掌握输⼊输出的格式及变量声明的应⽤⼆、实验内容1、输⼊输出的格式integer areal bcomplex clogical dcharacter(len=20) ea=10b=12.34c=(1,2)d=.true.e="FORTRAN"write(*,"(1X,I5)") a ! ⽤I来格式化整数write(*,"(1X,F5.2)" ) b ! ⽤F来格式化浮点数write(*,"(1X,F4.1,F4.1)" ) c ! complex也是浮点数write(*,"(1X,L3)") d ! ⽤L来输出logicalwrite(*,"(1X,A10)") e ! ⽤A来输出字符串End⼆、变量声明的应⽤program ex0432implicit noneinteger :: a=1integer :: b=2real :: cc=real(a)/real(b) ! 经由库函数real把整数转换成浮点数write(*,"(F5.2)") c end⼆、实验步骤1、编译、调试2、编写实验报告四、实验结果与分析实验结果：1、2、FORTRAN实验报告实验⽇期2012 年4⽉17⽇⼀、实验⽬的1、熟悉和掌握选择结构程序的编写⽅法2、熟悉和掌握各种选择结构的实现⽅法⼆、实验内容1、编写计算⾝⾼、体重是否正常代码program ex0502implicit nonereal(kind=4) :: height ! 记录⾝⾼real(kind=4) :: weight ! 记录体重write(*,*) "height:"read(*,*) height ! 读⼊⾝⾼write(*,*) "weight:"read(*,*) weight ! 读⼊体重if ( weight > height-100 ) then! 如果体重⼤于⾝⾼减去100, 会执⾏下⾯的程序write(*,*) "Too fat!"else! 如果体重不⼤于⾝⾼减去100, 会执⾏下⾯的程序write(*,*) "Under control." end ifstopEnd2、计算学⽣的成绩program ex0512implicit noneinteger scorecharacter gradewrite(*,*) "Score:"read(*,*) scoreselect case(score)case(90:100) ! 90到100分之间grade='A'case(80:89) ! 80到89分之间grade='B'case(70:79) ! 70到79分之间grade='C'case(60:69) ! 60到69分之间grade='D'case(0:59) ! 0到59分之间grade='E'case default ! 其它情形grade='?'end selectwrite(*,"('Grade:',A1)") gradestopend三、实验步骤1、分析问题，设计算法，编写程序2、编译、构建、运⾏、调试程序3、编写实验报告四、实验结果与分析第⼀个程序执⾏结果：输⼊170 58输⼊170 89第⼆个程序执⾏结果：输⼊89输⼊98FORTRAN实验报告实验⽇期2012 年4⽉24⽇⼀、实验⽬的1、了解⼦程序定义、调⽤、形式参数、实在参数、参数传递的基本内容和使⽤规则2、了解结构化程序设计⽅法3、了解使⽤⼦程序设计和编写程序的⽅法⼆、实验内容1、要求验证书本所讲的Fortran程序的⼦程序编写规则及调⽤⽅法。
FORTRAN实验报告
实验四 实验四
姓名 字符型数据程序设计
实验日期
任课教师 操作型
二、实验内容： 实验内容：
（1）编写程序：输入一个字符，若为小写字母，则输出其大写字母；若为大写字母，则输出其小写字 母；若为数字，则原样输出该数字字符；否则，输出*。 （2）编写程序，用双精度数据计算：
cos x ≈ 1 −
三、实验平台
e x − e−x ，编写程序求 sh(2)-sh(3)。 2
(3)编写求阶乘及累加和的函数，调用函数求：
S = ∑ (∏ i + ∑ i )
n =1 i =1 i =1
m
n
n
当 m=10 时，S=
。
三、实验平台
Fortrபைடு நூலகம்n PowerStation 4.0
四、程序清单 1．recursive function fib(a,b,n) result(fi) select case(n) case(1) fi=a case(2) fi=b case(3:) fi=fib(b,a+b,n-1) end select end program fib_pro real::a,b,maxfib=0 integer::k,num=0 read*,a,b write(*,*)(fib(a,b,k),k=1,20) do k=1,20 if(fib(a,b,k)<=5000.and.fib(a,b,k)>maxfib) then maxfib=fib(a,b,k)
p=>x(1:i,1) p=p+1 PRINT *,p END DO END 请将程序略作修改，用于输出下列图形： (1) 1 1 1 1 1 2 2 2 2 3 3 3 4 4 5
Fortran90学习指导
FORTRAN90学习指导一、FORTRAN90基础知识1．源程序及其构成书写格式：主程序定义语句、结束语句注意：在没有程序名称的时候，程序开头的PROGRAM也不要出现。
如果使用了程序名称且在END语句中出现，则END语句中的PROGRAM不能省略。
语句行可以是0~132个字符；除赋值语句外，每个语句都要使用关键字开头。
如果希望一行中出现多个语句，语句一定要用分号隔开。
空格不能随便使用，关键字、变量和常量名以及操作符中的空格会使字符失去其原有的含义。
但它们之间一定要加空格。
注释行：以感叹号为标记，或“C”、“*”（FORTRAN90中不提倡此用法）续行标记：在句末尾添加续行符&，如果将关键字分成两行，则下一行开头也要加续行标记。
如果续行符出现在注释语句中，则失去了续行的功能。
2．FORTRAN90字符集126个英文字母（大小写字母等价）210个阿拉伯数字3下划线421个特殊字符：空格= + - * / （），. ‘ :！“% & ；< > ? $5其他字符（只可以出现在字符常量、字符串编辑描述符、注释和输入输出记录中）3．基本数据类型1 整型KIND值可以为1、2、4类型说明关键字：INTEGERKIND值决定数据的范围。
对于整数没有误差。
I=3/2=1；I=1/2=0INTEGER（KIND=4）：：AINTEGER*4：：AINTEGER（4）：：A2 实型KIND值可以为4（单精度7位有效数字）、8（双精度15~17位有效数字）类型说明关键字：REAL小数表示形式、指数表示形式（规格化的指数形式）错误表示形式：E34、.E34、0.14E2.38开3次方：8.0**（1.0/3.0）3 复型KIND值为4、8是实数的有序对，将两个实数中间用逗号分隔，然后放在一对括号中类型说明关键字：COMPLEX复数的运算：+、—、*、/4 字符型KIND值为国家语言种类由一对单撇号或一对双撇号之间的字符序列组成。
FORTRAN实验报告
《FORTRAN 语言》实验（上机）报告班级·学号 姓名 实验日期 任课教师 实验名称实验一 顺序结构程序设计验证型一、实验目的（1）熟悉Fortran PowerStation4.0的集成开发环境和上机步骤；（2）掌握源程序的书写格式； (3) 掌握FORTRAN 90中基本数据类型及其描述、运算；(4) 掌握基本语句的使用。
二、实验内容：（1）编写程序，将华氏温度转化为摄氏温度，公式为：。
要求：输入一个华氏温度)32(95-=F C 值F ，按照公式将其转化为摄氏温度值C 。
（2）编写程序，其功能是：输入a,b,x 的值，计算并输出y 的值。
b x e y ax 5ln 2+=当x=1.234,a=-5,b=0.9876时，y= 。
三、实验平台 Fortran PowerStation 4.0四、程序清单五、调试和测试结果六、教师批语与成绩评定：年月日《FORTRAN语言》实验（上机）报告班级·学号姓名实验日期任课教师实验名称实验二选择结构程序设计验证型一、实验目的（1）掌握逻辑表达式的书写方法和逻辑型数据的使用；（2）学会正确使用逻辑运算符和逻辑表达式；(3)掌握块IF结构、块CASE结构、逻辑IF语句和算术IF语句。
二、实验内容：（1）编写程序，输入年、月，求该月的天数。
用year、month分别表示年、月，day表示每月的天数。
注意：①每年的1，3，5，7，8，10，12月，每月31天；4，6，9，11月每月30天；2月闰年为29天，平年为28天。
②年份能被4整除，但不能被100整除，或者能被400整除的年均为闰年。
（2）编写程序，输入一个自然数，若为奇数则输出其平方根，否则输出其立方根。
三、实验平台Fortran PowerStation 4.0四、程序清单五、调试和测试结果六、教师批语与成绩评定：年月日《FORTRAN 语言》实验（上机）报告班级·学号 姓名 实验日期 任课教师 实验名称实验三 循环结构程序设计操作型一、实验目的（1）掌握用DO 语句和DO WHILE 语句实现循环的方法；（2）掌握循环结构的实现方法； (3) 掌握循环嵌套的执行过程。
FORTRAN90第1章
【方法】 采取自顶向下、逐步求精、模块化设 计和结构化编码的分析方法。
4 结构化程序设计
【自顶向下】 是指对设计的系统要有一个全面的理解，从问题的 全局入手，把一个复杂问题分解成若干个相互独立的子 问题，然后对每个子问题再作进一步的分解，如此反复， 直到每个问题都容易解决为止。 【逐步求精】 是指程序设计的过程是一个渐进的过程，先把一个 子问题用一个程序模块来描述，再把每个模块的功能逐 步分解细化为一系列的具体步骤，以至能用某种程序设 计语言的基本控制语句来实现。逐步求精总是和自顶向 下结合使用，一般把逐步求精看作是自顶向下设计的具 体表现。
• 算法：对解决一个实际问题而采取 的方法和步骤的描述 • 数据结构＋算法＝程序 • 算法分类：
数值运算算法和非数据运算算法
算法基本特征
• （1）输入性 • （2）输出性 • （3）确定性 • （4）有效性
• （1）正确性 • （2）可读性 • （3）健壮性 • （4）效率与低存储量需求
4 结构化程序设计
【模块化设计】 其设计思想实际上是一种“分而治之”思想，把一 个大任务分为若干个子任务。一般来讲，一个程序由一 个主控模块和若干个子模块组成。
4 结构化程序设计
【结构化编码 】 在设计好一个结构化的算法之后，还 要善于进行结构化编码。所谓编码就是将 已设计好的算法用计算机语言来表示，即 根据已经细化的算法正确地写出计算机程 序。
2 算法的描述
（1）用自然语言表示 （2）用传统流程图表示 （3）用N_S流程图表示 （4）用伪代码表示
流程图表示算法
常用的符号：
起始框
数据输入输出框 处理框图
流程线
判断框
连接点
流程图表示算法三种基本结构
FORTRAN90程序设计教程 第1章 FORTRAN程序设计基础
例1.1 求
其中
2
x y u x y
2
a b x 2 2 a b
ab ab
a b a b y 4 a b
ab ab
这一题的算法并不难，可写成： (1)从键盘输入a、b的值。 ab x a b ,y (2)如果a<b，则 ab ， 4 x a b , y 否则 。 ab (3)计算u的值。 (4)输出u的值。
3. N-S图
由于传统流程图的缺点，1973年美国学者 I.Nassi和B.Shneiderman提出了一种新的流程图工 具─N-S图。N-S图以三种基本结构作为构成算法 的基本元素，每一种基本结构用一个矩形框来表 示，而且取消了流程线，各基本结构之间保持顺 序执行关系。N-S图可以保证程序具有良好的结 构，所以N-S图又叫做结构化流程图。
例1.3的算法：
(1)输入m和n的值。 (2)求m除以n的余数r。 (3) 若r=0 ，则转至第 (6) 步，否则执行第 (4) 步。 (4)n→m，r→n。 (5)转第(2)步。 (6)输出n。
算法的五个特征：
(1) 有穷性。算法中执行的步骤总是有限次数的， 不能无止境地执行下去。 (2) 确定性。算法中的每一步操作必须具有确切 的含义，不能有二义性。 (3) 有效性。算法中的每一步操作必须是可执行 的。 (4) 要有数据输入。算法中操作的对象是数据， 因此应提供有关数据。 (5) 要有结果输出。算法的目的是用来解决一个 给定的问题，因此应提供输出结果，否则算法 就2没有实际意义。
1.2.2 算法的描述
算法的描述有许多方法，常用的有：自 然语言、一般流程图、N－S图等。前面例 1.1~例1.3的算法是用自然语言──汉语描述 的，其优点是通俗易懂，但它不太直观， 描述不够简洁，且容易产生二义性。在实 际应用中常用流程图表示算法。
fortran90数据文件的操作上机
0.85， 6.75； 1.62， 7.88； 3.27， 4.44； 4.44， 7.89； 5.28， 9.87； 6.11， 8.46； 7.80，21.50 【要求】 1.源程序必须放在文件MYF2.F90文件中。 2.建立数据文件MYF2.DAT,所需输入数据即从该文件中读出 3.程序运行结果存于文件MYF2.OUT中 4.数据文件的打开、使用、关闭均要求采用FORTRAN语言文 件管理语句实现 【注意】本题完成后必须将MYF2.F90、MYF2.DAT、MYF2.OUT等文件拷贝到考
tg ( x )
8x ( 2 n 1)
2 2
n0
4x
2
将上式右端编写成外部过程。当级数通项的绝对值小于 eps=1E-10时停止计算。在同一行上，x用F6.3，级数之和 及用于验证的内部函数TAN(X)用F10.5格式输出。用于计算 的数据存放在文件MYF2.DAT中，从该文件输入的x的值为： 0.358 0.593 -0.665 0.785 0.993 -1.012 1.109 【要求】 1.源程序必须放在文件MYF2.F90文件中。 2.建立数据文件MYF2.DAT,所需输入数据即从该文件中读出 3.程序运行结果存于文件MYF2.OUT中 4.数据文件的打开、使用、关闭均要求采用FORTRAN语言文 件管理语句实现 【注意】本题完成后必须将MYF2.F90、MYF2.DAT、 MYF2.OUT、MYF2.EXE等文件拷贝到考试盘的根目录下供 阅卷用。
试盘（盘符为T:）的根目录下供阅卷用。
功能：解除文件号与文件的连接关系。 写法：CLOSE（关闭信息表） 关闭信息表主要有下列说明符： UNIT=ut IOSTAT=it 为可选项
STATUS=ss。指定文件关闭后是否保留。为可选项，SS 可为KEEP或DELETE，默认除SCRATCH全部保留。
fortran实验一
实验一熟悉FORTRAN90软件开发环境FORTRAN语言是最早出现的第一个计算机高级程序设计语言，它对计算机科学技术的发展产生过重要而深刻的影响。
FORTRAN90是FORTRAN语言的升级换代版本，它吸收和借鉴了现代程序设计语言的许多现代特性，以其强大功能和独特魅力越来越受到人们的欢迎。
任何程序设计语言都有一个与之相关联的软件开发环境。
Digital Visual FORTRAN 5.0是美国数据设备公司(Digital Equipment Corp.)和微软公司(Microsoft Corp.)合作研制、开发、推出的FORTRAN90可视化软件开发环境，它成功地借鉴了Microsoft Developer Studio 可视化软件开发环境，使FORTRAN90软件的输入、编辑、编译、构建、运行和调试等工作，都可在Microsoft Developer Studio可视化软件开发环境上高效、快捷地进行。
学习FORTRAN90及其程序设计，必须首先了解、学习和掌握与之相关联的Microsoft Developer Studio可视化软件开发环境，为深入学习和掌握FORTRAN90及其程序设计奠定坚实基础。
本实验是学习和掌握Microsoft Developer Studio软件开发环境的一次系统实验活动。
一．实验目的1．了解FORTRAN90与软件开发环境的关系。
2．掌握FORTRAN90上机实验基本操作过程。
3．掌握FORTRAN90软件开发环境启动方法。
4．理解有关工作区、项目、文件的基本概念。
5．掌握工作区、项目、文件创建方法。
6．熟悉Microsoft Developer Studio软件开发环境图形用户界面。
7．掌握程序的输入、编辑、编译、构建、运行方法。
8．了解软件开发环境常用菜单、工具按钮、环境窗口基本功能。
9．掌握文件、文件夹的移动、复制、删除等操作方法。
二．实验内容11．问题描述现有长1500米，宽1000米的地块要拍卖建造住宅小区，地块中央有一半径为100米的圆形公共绿地不属于拍卖范围，每平方米地价为5000元。
Fortran90上级实验报告
Fortran90上级实验报告实验一上机日期:2012年2月23日1.实验目的:(1)了解FORTRAN90与软件开发环境的关系.(2)掌握FORTRAN90上机实操作过程.(3)掌握FORTRAN90软件开发环境启动方法.(4)理解有关工作区,项目,文件创建方法.(6)熟悉软件开发环境图形用户界面.(7)掌握程序输入,编译,运行方法.(8)了解软件开发环境常用菜单,工具按钮,环境窗口基本功能.2上机过程记录(1)主要记录输入程序的原代码:Program mainReal length,width,radiusReal ::unitprice=0.5,totalprice,areaPrint*,’请输入图形长宽值:’Read*,length,widthPrint*”请输入绿地半径:”Read*,radiusArea=length*width-3.1415926*radius**2Totalprice=unitprice*areaPrint*,’地块总价为:’totalprice’万元’End(2)调试过程: D:\shiyan01\xm1\chengxul.f90D:\shiyan01\xm1\chengxul.f90(6) : Error: Syntax error, found CHARACTER_CONSTANT '请输入绿地半径:' when expecting one of: , ;Print*"请输入绿地半径:"------^D:\shiyan01\xm1\chengxul.f90(10) : Error: Invalid character_kind_parameter. No underscore Print*,'地块总价为:'totalprice'万元'------------------------------------^D:\shiyan01\xm1\chengxul.f90(10) : Error: Syntax error, found IDENTIFIER 'TOTALPRICE' when expecting one of: ( * :: , ; : ) (/ [ + - . ] /) ** / > // .LT. ...--------------------^D:\shiyan01\xm1\chengxul.f90(10) : Error: This Hollerith or character constant is too long and cannot be used in the current numeric context. ['地块总价为:']Print*,'地块总价为:'totalprice'万元'-------^Error executing df.exe.xm1.exe - 4 error(s), 0 warning(s)(3)调试成功的程序的原代码Program mainReal length,width,radiusReal ::unitprice=0.5,totalprice,areaPrint*,’请输入图形长宽值:’Read*,length,widthPrint*”请输入绿地半径:”Read*,radiusArea=length*width-3.1415926*radius**2Totalprice=unitprice*areaPrint*,’地块总价为:’totalprice’万元’End3收获:对FORTRAN90软件有了一个全面清晰的了解,初步熟悉了软件开发环境图形截面,熟悉掌握常用菜单,工具按钮和环境窗口的操作截面.工作空间,项目和原程序不可使用中文名输入标点后要转换英文输入状态.实验二1.实验目的:(1)了解FORTRAN90字符集(2)掌握FORTRAN90实体名称的语法描述规则和具体要求.(3)了解FORTRAN90关键字意义,以及与名称区别.(4)掌握FORTRAN90程序组织结构和语句排列次序的基本原则.(5)掌握FORTRAN90自由书写格式及三个标志符主要作用.(6)理解数据,数据表是,数据类型概念, 熟悉FORTRAN90数据类型.2上机过程记录(1)主要记录输入程序的原代码:program exampleinteger(1)::I;J;Kinteger Sprint*,'请输入三个整数:'read*,I,J,KS=I+J+Kprint*,'I1+I2+I3=',Sprint*'三个整数所有可能的排列次序有:'print*I,J,Kprint*I,K,Jprint*J,I,Kprint*J,K,Iprint*K,I,Jprint*K,J,Iend program(2)调试过程D:\shiyan01\xm1\chengxul.f90D:\shiyan01\xm1\chengxul.f90(2) : Error: Syntax error, found';' when expecting one of: ( : % . = =>integer(1)::I;J;K---------------^D:\shiyan01\xm1\chengxul.f90(8) : Error: Syntax error, found CHARACTER_CONSTANT 'sange:' when expecting one of: , ;print*'sange:'------^D:\shiyan01\xm1\chengxul.f90(9) : Error: Syntax error, found IDENTIFIER 'I' when expecting one of: , ;print*I,J,K------^D:\shiyan01\xm1\chengxul.f90(10) : Error: Syntax error, found IDENTIFIER 'I' when expecting one of: , ;print*I,K,J------^D:\shiyan01\xm1\chengxul.f90(11) : Error: Syntax error, found IDENTIFIER 'J' when expecting one of: , ;print*J,I,K------^D:\shiyan01\xm1\chengxul.f90(12) : Error: Syntax error, found IDENTIFIER 'J' when expecting one of: , ;print*J,K,I------^D:\shiyan01\xm1\chengxul.f90(13) : Error: Syntax error, found IDENTIFIER 'K' when expecting one of: , ;print*K,I,J------^D:\shiyan01\xm1\chengxul.f90(14) : Error: Syntax error, found IDENTIFIER 'K' when expecting one of: , ;print*K,J,I------^D:\shiyan01\xm1\chengxul.f90(3) : Error: A specification statement cannot appear in the executable section.integer S^Error executing df.exe.xm1.exe - 9 error(s), 0 warning(s)(3)调试成功的程序的原代码program exampleinteger(1)::I;J;Kinteger Sprint*,'请输入三个整数:'read*,I,J,KS=I+J+Kprint*,'I1+I2+I3=',Sprint*'三个整数所有可能的排列次序有:' print*I,J,Kprint*I,K,Jprint*J,I,Kprint*J,K,Iprint*K,I,Jprint*K,J,Iend program。
Fortran模拟试卷1-8
FORTRAN90模拟测验一（笔试部分）一．选择题（从4个可选答案中选择一个正确答案添入空白处）1．FORTRAN 90规定程序中名称的长度不能超过个字符。
A．8 B．15 C．31 D．632．关于FORTRAN 90程序单元，以下四种说法中正确的是。
A．一个FORTRAN 90程序由多个程序单元组成，其中有一个且只能有一个主程序单元B．一个FORTRAN 90程序由多个程序单元组成，其中有一个且只能有一个模块单元C．一个FORTRAN 90程序允许有多个程序单元，但每类程序单元只能有一个D．一个FORTRAN 90程序允许有多个程序单元，但主程序单元和模块单元只能有一个3．FORTRAN 90程序中允许使用的三个通用标志符是。
A．！% & B．@ , ; C．! ; & D．; & *4. 下列中，所指的FORTRAN 90表达式都是正确的。
①∣A*x+B*y+C*z∣② b*b+4*a*c③ .NOT. .TRUE. .AND. .FALSE. ④‘A’<= ch <= ‘Z’⑤ X>100 = = .TRUE. ⑥ SQRT(A2+B2)⑦π*R**2 ⑧‘HAPPY ’+‘NEW ’+‘YEAR.’A. ①②⑤B．②③④⑧C．②③⑤D．②⑤⑥⑦5. FORTRAN 90规定，变量类型声明从高到低的优先顺序是。
A．隐含约定（I-N规则）、IMPLICIT声明、类型声明B．类型声明、隐含约定（I-N规则）、IMPLICIT声明C．类型声明、IMPLICIT声明、隐含约定（I-N规则）D．IMPLICIT声明、类型声明、隐含约定（I-N规则）6．数组声明语句为：INTEGER，DIMENSION(-5:-1,-3:3,11:15) ：：num 数组元素num(-2,1,13)是存储结构中第个元素。
A．70 B．85 C．90 D．947．类型声明语句为：INTEGER(2) I 数据输出语句为：PRINT *，I变量I中数据输出域宽是字符。
工程分析程序设计上机作业Fortran部分1
工程分析程序设计 上机作业（二）模块化编程（1）上机目的：掌握内部例程、主程序、外部例程、接口块、模块等功能的使用方法。
1、 有一个六边形，求其面积。
为求面积，作了3条辅助线。
如图所示：（提示，三角形面积2a b c s ++=，a 、b 、c 为三个边长）。
要求用内部函数来实现。
=21PROGRAM MAINIMPLICIT NONEREAL ::L1=10,L2=20,L3=18,L4=15,L5=21,L6=14,L7=30,L8=36,L9=28REAL FF=AREA(L5,L6,L9)+AREA(L1,L8,L9)+AREA(L2,L7,L8)+AREA(L3,L4,L7)PRINT*,FCONTAINSFUNCTION AREA(A,B,C)REAL S,A,B,C,AREAS=(A+B+C)/2AREA=SQRT(S*(S-A)*(S-B)*(S-C))END FUNCTIONEND2、 使用牛顿法求解以下方程的根：（要求用外部子程序）2410x x ++=PROGRAM MAINIMPLICIT NONEREAL F,DFEXTERNAL GENCALL GEN(F,DF)SUBROUTINE GEN(F,DF)IMPLICIT NONEREAL ::X=0REAL F,DFINTEGER ::N=0INTEGER ::MaxN=100REAL ::Eps=1.0E-6F=X**2+4*X+1DF=2*X+4DO WHILE (ABS(F)>Eps.AND.N<MaxN) X=X-F/DFN=N+1F=X**2+4*X+1DF=2*X+4END DOIF (F<=Eps) THENPRINT*,'ANSWER IS ',XELSEPRINT*,'NO ANSWER'END IFEND SUBROUTINE432+-++=x x x x765430 PROGRAM MAINIMPLICIT NONEREAL F,DFEXTERNAL GENCALL GEN(F,DF)ENDSUBROUTINE GEN(F,DF)IMPLICIT NONEREAL ::X=0REAL F,DFINTEGER ::N=0INTEGER ::MaxN=100REAL ::Eps=1.0E-6F=7*X**4+6*X**3-5*X**2+4*X+3DF=28*X**3+18*X**2-10*X+4DO WHILE (ABS(F)>Eps.AND.N<MaxN) X=X-F/DFN=N+1F=7*X**4+6*X**3-5*X**2+4*X+3DF=28*X**3+18*X**2-10*X+4END DOIF (F<=Eps) THENPRINT*,'ANSWER IS ',XPRINT*,'NO ANSWER'END IFEND SUBROUTINE3、编写一个子例程子程序，SUM(S，T，N1，N2)。
FORTRAN90实验
2.1 FORTRAN90的编程环境一、实验目的1. 掌握FORTRAN90的集成开发环境——Fortran PowerStation 4.0。
2.熟悉Fortran PowerStation 4.0的安装、启动和退出。
3.熟悉Fortran PowerStation4.0的各工具图标和菜单的作用。
4. 熟练掌握FORTRAN90程序上机实验过程。
二、实验要求1. 掌握进入Fortran PowerStation 4.0集成开发环境的方法。
2. 分别掌握用菜单、快捷键和工具栏图标进行编译和连接的方法。
3. 理解程序设计的概念，掌握FORTRAN90程序结构与书写规范。
4. 熟悉FORTRAN 90程序从输入到运行的全部操作。
5. 按照题目的要求，认真实验上机实验，并对结果进行分析。
三、实验内容1.进入Fortran PowerStation 4.0集成开发环境：开始→程序→Fortran PowerStation 4.0→Microsoft Developer Studio，单击后，进入如图2-1-1所示的FORTRAN90集成开发环境。
2. 熟悉Fortran PowerStation 4.0集成开发环境及菜单的使用： ⑴ 建立项目工作间：选择File →New →Project Workspace ，点击OK ，出现如图2-1-2所示的界面。
在Name 栏目中输入工程名SX ，点击Create ，出现如图2-1-3所示的界面。
图2-1-1 进入Fortran PowerStation 4.0图2-1-2 建立项目工作间的界面⑵ 编辑源程序：①选择菜单Insert →Files into Project ，出现如图2-1-4所示的界面。
②在File Name 栏目里键入源程序文件名EX.F90，点击OK 按钮，出现如图2-1-5所示的界面。
图2-1-3 建立项目名为SX 的工作间界面图2-1-4 插入文件的界面③单击“是”按钮，出现如图2-1-6所示的界面。
工程分析程序设计上机作业一Fortran程序设计基础
工程分析程序设计 上机作业（一）Fortran 程序设计基础上机目的：掌握程序书写、字符集和标识符、数据类型、声明、算术表达式、表控输入输出语句等编程基本概念。
1、 若有实型数A=1.0 B=3.5 T=10.0 X=5.0 整型数I=-5 J=7 K=3，求出下面表达式的值。
-(A+T) (B+(X/T))/(4.0*A) (I*J)/K (I/K)*J+T/X-(K+1)/5+I*A-B SQRT(REAL(ABS(K)+1)) MAX(J,MOD(J,K)) J+INT(T/B)/22、 从键盘输入三个角度值a, b, c ,计算如下式子的值：2234a b a b +- c b a b a tan |)||cos(|||sin +++ 26ln()1403b c a ++3、 已知一圆柱底面半径R 为6.4，高为5，编程求圆柱底面圆周长、圆面积，圆柱的体积和表面积；以R=6.4为半径的圆球表面积和体积、（要求在变量声明的同时赋初值）4、 编写一个程序，要求完成以下要求：(1) 提示用户输入任意的3个小数；(2）显示这三个小数；(3）将这三个小数相加，并显示其结果；(4）将结果按四舍五入方法转换成整数并显示。
5、 有一个六边形，求其面积。
为求面积，作了3条辅助线。
如图所示：（提示，三角形面积2a b c s ++=，a 、b 、c 为三个边长）。
=216、 我国现在人口13.0亿人，假定每年增长率为1.5%，求n 年以后的人口数。
n 从键盘输入。
7、 请写一个程序，可以让使用者输入初始速度V 0（单位为m/s ）与角度θ（单位°），利用下列公式计算飞行时间与距离：g V t /sin 20θ=t V D ⨯=θcos 0。