《FORTRAN90程序设计》实验说明

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程序设计chapter1

第一章程序设计概述对于计算机系统,如果说CPU 是心脏,那么程序就是其灵魂。

了解程序和掌握程序设计是驾驭和运用计算机系统的重要一环。

本章主要介绍程序设计的一些基本知识、基本概念和基本方法,为学习和掌握FORTRAN 90程序设计奠定基础。

1.1 程序设计语言任何一个计算机系统都是按照人们用某种程序设计语言编写的程序进行工作的,人们通过程序设计语言编写的程序来指挥和控制计算机运行。

程序设计语言是人与计算机进行交流的有效工具,伴随计算机诞生而诞生,伴随计算机发展而发展,在计算机科学技术的发展过程中,发挥了巨大作用。

1.1.1 程序设计语言分类从计算机诞生之日起,程序设计语言从低级语言到高级语言,从传统语言到现代语言不断向前发展,新的、功能强大的程序设计语言不断涌现。

现在,世界上正在使用的各种程序设计语言不少于百种。

程序设计语言属于人工语言、形式语言、非自然语言。

分为低级语言和高级语言两种。

低级语言又分为机器语言和汇编语言。

机器语言是一种计算机能直接理解、识别和执行的程序设计语言,它由0和1两个二进制符号按照确定的规则描述和表达。

例如：计算2+3-4,并从屏幕上输出,用机器语言描述的程序为：上述程序是用MCS-48微型计算机上配置的机器语言编写。

机器语言与具体的计算机硬件系统有关,不同种类的计算机配置有不同的机器语言,如同不同国家、不同民族有不同的自然语言一样。

某一类型计算机的机器语言在其它种类计算机上不能被识别、理解和执行。

对计算机来说,识别、理解和执行机器语言可谓得心应手,但对人类来说真是苦不堪言。

世界上也只有极少数非常专业的计算机专家才能使用机器语言编写程序,绝大多数人不用机器语言编写程序,但是了解一点机器语言知识也有一定益处。

机器语言的最大优点是计算机能直接识别、理解和执行,有极高的运行效率,在一些嵌入式控制系统中有时会使用机器语言编写的程序。

机器语言有明显缺点,人们难以理解、阅读、编写机器语言程序,机器语言程序其可靠性难以保证,不易维护,可移植性很差。

(新)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实验报告(一)

3、格式输入输出控制函数PRINT、WRITE、READ,格式控制语句FORMAT(),以下是对整型I、浮点型F、指数形式E、字符型A、逻辑型L等输入输出的例子。
①整型：
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实验报告

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实验报告

《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) 掌握循环嵌套的执行过程。

Fortran实验指导书

Fortran90程序设计实验指导书2007.01实验一熟悉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．掌握文件、文件夹的移动、复制、删除等操作方法。

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所示的界面。

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程序设计教学设计

FORTRAN90程序设计教学设计背景FORTRAN90是科学计算、数值计算等领域的重要程序设计语言，广泛应用于航空航天、天气预报、海洋预报、核能工程、计算机辅助工程设计等领域。

因此，FORTRAN90程序设计在高校计算机专业教学中非常重要。

如今，计算机产业的高速发展，新的编程语言和框架层出不穷，但是对于计算机专业学生而言，学好FORTRAN90有其必要性。

为了提高学生的编程能力，培养学生科学计算和数值计算能力，建构合适的教材和课程是非常关键的。

因此，本篇文档将从以下几个方面介绍FORTRAN90程序设计的教学设计。

教学目标通过本课程的学习，学生能够熟练掌握FORTRAN90程序设计的基本知识和技能，包括：1.FORTRAN90程序的基本结构、语法和数据类型；2.控制结构、函数和子程序的使用方法；3.数组、指针的应用；4.文件输入输出操作；5.计算机仿真和数据可视化。

课程内容课程内容将涵盖以下主题：第一部分：FORTRAN90程序设计基础1.环境搭建：安装devFortran、gfortran编译器；2.FORTRAN90程序的基本结构、语法和数据类型；3.数据输入输出：读写变量、格式化输入输出；4.运算符和表达式：算数运算符、逻辑运算符、位运算符；5.判断语句：if、if-else、switch-case；6.循环语句：while、for、do-while；7.函数和子程序设计：函数调用、函数返回、引用传递、局部变量；8.字符串的处理：字符数组、字符串输入输出、字符串比较、字符串操作函数；9.时间和日期函数的应用。

第二部分：FORTRAN90程序设计进阶1.数组的定义、初始化和操作：一维数组、二维数组、多维数组；2.文件操作：打开文件、读写文件、关闭文件；3.指针和动态内存分配：指针的定义、指针的基本操作、指针和数组、动态内存分配；4.高级数据结构的应用：链表、队列、栈、树；5.性能优化：算法的时间复杂度分析、常用算法的优化技巧、代码精简技巧；6.计算机仿真技术的应用：线性代数、微积分、概率统计等。

FORTRAN90程序设计9

几点应该注意
(8) 一个辅程序中的接口块不允许含有一个被该辅程序定义的过程的接口体。一个接口块中可以有多个接口体。
(9) 接口块还可用来说明一个外部过程或虚过程，并为之提供显式的调用接口，这比EXTERNAL语句提供了更多的信息，因而也提高了程序的可读性。例如：下面是没有类属说明的接口块：
接口块能将子程序中所需的信息精确的拷贝过来，通过它可以为主调程序和被调用子程序指明一个显式接口。
几点应该注意
(1) 接口块以INTERFACE语句开始，以END INTERFACE 语句结束，块内只能取被调用过程中的说名部分，不允许出现任何可执行语句。
(2) 类属说明的形式为：
类属名或OPERATOR(定义的运算符) 或ASSIGNMENT(=) 其中，类属名用于定义类属过程、OPERATOR用于定义运算
USE语句
USE语句的最简单形式为： USE 模块名1，模块名2，……，模块名N
这条语句提供了对模块的所有公共的有名数据对象、派生类型、接口块、过程等的访问。
在作用域单位内，USE语句必须出现在其他说明语句之前。如果需要对两个或两个以上的模块进行访问，可能会在不同的模块中用
到了相同的名字，因此允许USE语句对被访问的对象重新命名，以解决局部对象和模块中访问对象之间的名字的冲突问题。要重新命名时， USE语句应具有下列形式： USE 模块名，更名表其中，更名表的形式为：局部名=>使用名，局部名=>使用名，…… 例如：
END FUNCTION LOG_PLUS_LOG
括号时必须的，因为运算符“+”
END MODULE LOGICAL_PLUS PROGRAM TEST_LOGICAL_PLUS

FORTRAN90程序设计1[1]

程序设计举例
算法

算法是计算机软件中的一个基本概念，它是对解决实际问题的方法和步
骤的描述。设计算法是程序设计的核心，也是编写程序的基础。

正确的算法有以下几个显著特点：
(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上级实验报告实验一上机日期: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。

fortran90程序设计chapter2

fortran90程序设计chapter2第二章DigitalViualFORTRAN5.0入门FORTRAN语言是最早出现的计算机高级程序设计语言,它对程序设计语言的研究和发展产生了极其深刻的影响。

随着计算机科学技术的飞速发展,FORTRAN语言也不断得到完善和充实,从传统FORTRAN,到结构化FORTRAN,再到具有现代特征的DigialViualFORTRAN5.0。

本章将介绍FORTRAN语言的发展历史、DigitalViualFORTRAN5.0简介、MicrooftDeveloperStudio开发环境、FORTRAN90语言书写格式,以及FORTRAN90程序的编辑、创建、打开、保存、编译、连接和运行等内容。

2.1FORTRAN语言发展概述FORTRAN是英文“FORmulaTRANlator”的缩写,译为“公式翻译器”,它是世界上最早出现的计算机高级程序设计语言,广泛应用于科学和工程计算领域。

FORTRAN语言以其特有的功能在数值、科学和工程计算领域发挥着重要作用。

早在1951年,美国IBM公司约翰·贝克斯(JohnBacku)针对汇编语言的缺点着手研究开发FORTRAN语言,并于1954年在纽约正式对外发布。

称约翰·贝克斯提出的FORTRAN语言为FORTRANⅠ,FORTRANⅠ虽然功能简单,但它的开创性工作,在社会上引起了极大的反响。

到1957年第一个FORTRAN编译器在IBM704计算机上实现,并首次成功运行了FORTRAN程序。

在1958年,对FORTRANⅠ进行了扩充和完善,引进了子函数等概念,推出了商业化的FORTRANⅡ版本。

之后,FORTRAN语言发展迅速,多种版本相继在其它计算机上实现。

在1962年,推出了FORTRANⅣ。

FORTRANⅣ没有充分考虑兼容性,导致FORTRANⅡ程序不能在FORTRANⅣ系统中运行,使其应用受到了很大限制,这时语言不兼容性问题和影响被突出表现出来。

Fortran 90 程序设计

Fortran的数据类型
在FORTRAN90中，也可以表示二进制、八进制、十六进制形式的无符号整数。其形式如下：二进制数：B’101101’ 或 B”101101” 八进制数：O’76210’ 十六进制数：Z’1FA2’
Fortran的数据类型
2.实型常量（REAL）
实型常量又叫实数，它具有数学实数的近似值。实数最常见的两种表示形式是：小数形式和指数形式小数形式：由十个数字、小数点及数符组成的数。指数形式：对绝对值相对较小或很大的实数。规格化指数形式：（两种形式） 1。数字部分的值小于1，且小数点后的第一位数字非0 2。数字部分有且仅有一位非零的整数。
五种变量的类型说明关键字：
整型：INTEGER
实型： REAL
复型：COMPLEX
逻辑型：LOGICAL
字符型：CHARACTER
待说明的变量放在后面，中间用双分隔符::隔开，对于同时说明多个变量，变量之间用逗号分隔。
Fortran90关于变量说明的新功能： 1.在变量说明的同时，可以给变量赋初值。 INTEGER::I=5，J=126 REAL::X=7.2，Z，W=774.2 2.在说明变量的同时也可说明其种别 3.在说明变量的同时，还可说明变量的属性 INTEGER，PARAMETER::I=5，J=123 REAL，DIMENSION(1:10)::A
缺省种别是指有符号或无符号的整数值。可在数值后用下划线标明种别，没有下划线为缺省种别。缺省种别整数的范围一般取决于所用计算机的字长。说明了种别参数后，提高了程序的可移植性。
简而言之，种别即决定数值在计算机中存储的字节数。
Fortran的数据类型
1.整型常量（INTEGER）
整型常量又叫整数，整数值的集合就是数学整数的子集。

Fortran90数组编程作业范文

数组--程序设计作业数组是FORTRAN90最重要的结构数据类型之一。

许多实际问题往往设计大量的数据，数组是存储和处理大批量数据的有效工具，有些问题如果不用数组求解将难以解决。

数组是类型相同且有序的一组数据，涉及到这类数据均可考虑使用数组。

本次实验是学习和掌握数组声明、数组元素引用、数组输入输出、数组赋初值的一次系统实验活动。

通过本次实验，能够设计和编写比较简单的数组应用程序。

一．实验内容11．问题描述已知10个正整数：10、55、25、70、45、15、25、85、45、35，输入一个待删除整数，在10个整数中查找，若有该整数，则将其删除，输出删除前后这组整数。

编写程序实现之。

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．程序编写根据算法，设计和编写不完整示例程序如下(请在下划线空白处填充正确内容)：程序8-1：!班级：???!姓名：???!时间：???!数据查询PROGRAM problem01INTEGER ：： num(10)=( )，nPRINT*，‘请输入100以内的一个正整数：’READ*，nPRINT*，‘删除前数据：’WRITE(*，100) (num(I)， )DO I=1，10IF (n==num(I)) num(I)=-1ENDDOPRINT*PRINT*，‘删除后数据：’DO I=IF ( ) WRITE(*，100) num(I)ENDDOPRINT*100 FORMAT((I3，2X\))END4．实验要求●分析问题，理解算法和程序，将程序填写完整。