Fortran语言教学

2013-7-24 8
3.2 简单的Fortran程序分析
执行结果：
x1= 1.30 x2=-4.30
例2：试求3!，6!，9!的值。 编程如下：
2013-7-24
9
3.2 简单的Fortran程序分析
主程序： c main program j=k(3) l=k(6) m=k(9) write(*,*)j,l,m end 执行结果： 6 720 362880
2013-7-24 28
3.6 变
量
三种类型说明的优先级： 高 类型说明语句（显式说明） implicit语句说明 低 “I～N规则”
2013-7-24
29
3.7 Fortran内部函数
在编制Fortran程序时，经常要用到 一些基本的数学函数，如三角函数、指 数函数、对数函数等。为方便用户， Fortran编译系统已提供了这些函数的 计算程序，需要时即可调用。 Fortran内部函数调用格式： 函数名（自变量）
2013-7-24 15
3.4 Fortran程序的编辑与运行
注：若Fortran程序是由一个主程序文件和若 干个子程序文件组成，则应将各文件添加到 同一项目工作间，分别进行编译，然后连编 和运行项目文件。 七、打开项目文件 选“File‖→―Open‖→在打开对话框文件 类型下拉列表中选“Project Workspace(*.mdp)‖→然后选项目工作间文件 夹中的项目文件。
⑵同一个数值可用不同的指数形式表示。 例： 0.876→8.76E-1→87.6E-2→876E-3 ⑶计算机在输出时，按标准化指数形式输出。 例：0.28→2.800000E-01 -59.58E+12→-5.958000E+13 即数字部分大于1，且小数点前只有一位非零 数字的指数输出形式。 ⑷在微机中，一般用四个字节存放一个实数，其取值 范围为：10-75～1075。超出此范围时为“溢出”错 误。
x1, 2 b b 4ac 2a
2
c the roots of the quadratic equation a=1.0 b=3.0 c=-5.6 x1=(-b+sqrt(b*b-4.0*a*c))/(2.0*a) x2=(-b-sqrt(b*b-4.0*a*c))/(2.0*a) write(*,100)x1,x2 100 format(1x,'x1=',f6.2,'x2=',f6.2) end
2013-7-24 6
3.2 简单的Fortran程序分析
例1：求一元二次方程x2+3x-5.6=0的根， 并打印结果。 • 利用公式：
x1, 2 b b 4ac 2a
2
• （这里，a=1，b=3，c=-5.6）
2013-7-24 7
3.2 简单的Fortran程序分析
编程如下：
2013-7-24 14
3.4 Fortran程序的编辑与运行
三、给项目工作间添加和编辑文件 打开指定的项目工作间→选 “Insert‖→ ―File into Project‖→输入要添加的文件名（如： st01.for）→“Add‖。然后按Fortran程序的书写 规则编辑程序。 四、编译项目工作间中的文件 打开指定的文件→选 “Build‖→ ―Compile st01.for‖。 五、连编项目文件 选 “Build‖→ ―Build aaa.exe‖。 六、运行项目文件 选 “Build‖→ ―Execute aaa.exe‖。（显示程 序执行结果）
3.7 Fortran内部函数
注意几点： ⑴函数自变量（参数）必须用括号括起来。 例：sinx+cosx → sin(x)+cos(x) ⑵函数自变量可以是常量、变量或表达式。 例： exp(3.0) sin (x+cos(x)) ⑶有些函数的类型是由自变量的类型确定的。 例：mod(8.0,3.0) →2.0 mod(8,3) →2 ⑷三角函数的角度单位是“弧度”而不是“度”。 ⑸函数名分为“通用名”和“专用名” 内部函数名一般用“通用名”。
3.5 常 量
说明： ⑴一个数值用指数形式表示时有两种表达方式： ①一个基本实数后面跟指数部分。 例： 0.876→8.76E-1 -2589.4→-2.5894E+3 ②一个整数后面跟指数部分。 例： 0.876→876E-3 -2589.4→-25894E-1
2013-7-24 20
3.5 常 量
2013-7-24 16
3.5 常 量
常量——在程序执行期间其值固定不变的量。 Fortran处理六种类型的常量： ⑴整型常量（Integer） ⑵实型常量（Real） ⑶双精度常量（Double precision） ⑷复型常量（Complex） ⑸逻辑型常量（Logical） ⑹字符型常量（Character）
2013பைடு நூலகம்7-24 25
3.6 变
量
3.6.3 变量的类型 Fortran能处理各种类型的变量。不同类型 的变量用来存放不同类型的数据。 变量类型的说明（三种方式） ⒈隐含说明 即以I、j、k、l、m、n开头的变量为整型 变量，以其它字母开头的变量为实型变量。 （“I～N规则”） 例：imax，m5，number，… 为整型变量 v，h2，aver，… 为实型变量
量
注意几点： ⑴变量名不区分大小写字母。 例：TOTAL，Total，total 代表同一变量 ⑵变量名中的空格不起作用。 例：abc，a bc，ab c，a b c 代表同一变量 ⑶变量名尽量做到“见名知义” AVER、SUM、Imax ⑷允许变量名与语言中具有特定含义的字（“保留字”） 同名。 例：sin，read，open，end，… 建议不要使用fortran中具有特定含义的字作变量名
2013-7-24 27
3.6 变
量
如： Integer abc，xyz real imax，k3 logical a1，kpz ⒊用implicit语句说明 即说明用某一字母开头的变量为指定的类型。 例： implicit integer(a，b)，real(k) implicit integer(x-z)
2013-7-24 21
3.5 常
量
⑸下列形式为不合法的指数形式： ①单独的小数点和单独的指数部分。
例：.E5， E10 × ②指数部分只能是整数，不能带小数点。 例：8E0.5， 12.3E1.5
×
2013-7-24
22
3.6 变
量
变量——在程序执行期间其值可以改变的量。 3.6.1 变量的概念 Fortran为每一个变量分配一个相应的 存储单元；每个变量在每个时刻只能有一 个确定的值。 例：x=4.5 x 4.5 x=8.0 x 8.0
2013-7-24 26
3.6 变
量
⒉显式说明 即用类型说明语句指定变量的类型。 如： Integer——说明变量为整型变量 Real——说明变量为实型变量 Double precision——说明变量为双精度变量 Complex——说明变量为复型变量 Logical——说明变量为逻辑型变量 Character——说明变量为字符型变量
2013-7-24
13
3.4 Fortran程序的编辑与运行
一、Fortran PowerStation 4.0的启动 选“开始”→“程序”→“Fortran PowerStation 4.0‖→―Microsoft Developer Studio‖。 二、创建项目工作间 选“File‖→―New‖→―Project Workspace‖→―Console Application‖，并 输入项目工作间名称（如：aaa）和存放项 目工作间的位置或路径（如：c:\for\） → Create。
普通高校计算机基础教学系列课程
Fortran语言
（Fortran77结构化程序设计）
说明
• 第一章 算法（略） • 第二章 计算机和计算机程序（略）
2013-7-24
2
第三章 Fortran语言程序设计初步
2013-7-24
3
3.1 Fortran语言的发展概况
FORmula TRANslator 公式翻译器
2013-7-24 30
3.7 Fortran内部函数
如： sin(90*3.14159/180) →1.0 sqrt(9.0) →3.0 abs(-5.6) →5.6 int(6.75) →6 exp(3.0) →20.085540 Fortran77全部内部函数见附录Ⅵ
2013-7-24 31
2013-7-24 18
3.5 常 量
3.5.2 实型常量 （有二种表示形式） ⒈小数形式 例：15.8，-21.05，14.0 ,14.，.17， 0.0 ,… ⒉指数形式（通常表示较大或较小的数） 例：100000000→1.0E+8 0.0000125→1.25E-05 数字部分 指数部分
2013-7-24 19
2013-7-24 17
3.5 常 量
3.5.1 整型常量 包括正、负整数和零。 例：5，-13，0，… 说明： ①在（16位）微机中，整数的取值范围为： -215～215-1（-32768～32767） ②在（32位）微机中，整数的取值范围为： -231～231-1（-2147483648～2147483647 ）
Fortran语言是一种适合于科学 和工程计算问题的程序设计语言； 也是计算机高级语言发展史上使用 最早的一种程序设计语言。
2013-7-24
4
3.1 Fortran语言的发展概况
Fortran语言的发展过程：
• 1951年由约翰· 贝克斯等人开始研究Fortran语言； • 1957年第一个Fortran程序在IBM704机上运行； • 1958和1962年先后推出FortranⅡ和FortranⅣ； • 1966和1978年先后颁布Fortran66和Fortran77； • 1991年颁布了Fortran90。 • 现在已经有了Fortran 95, Fortran 2003