文档介绍：第三章 FORTRAN语言程序设计初步
FORTRAN语言发展概况
简单的FORTRAN77程序分析
FORTRAN源程序的书写格式
FORTRAN源程序键盘、输入
常量
变量
FORTRAN函数
FORTRAN算术表达式
赋值语句
简单的输出与输入
参数语句
END、STOP、PAUSE语句
11/10/2017
1
FORTRAN语言发展概况
(
,
是
(
于
IF
FORTRAN
语言于
1954
年提出,
1956
年正式使用,是世界上最早
被推广使用的高级语言,主要应用于数值计算领域。
FORTRAN
FOR
mula
TRAN
slation
的缩写。
FORTRAN 77
1980
年被接受为国际标准,该标准分为全集和子
集。在此之前
FORTRAN
语言先后推出了不同的版本:如
FORTRAN II
1958
),
FORTRAN IV
1962
)等。由于
FORTRAN 77
中包含一些结
构化的语句
(块
,
DO
等),因而能用于编写结构化程序。此外,
FORTRAN 77
还扩充了字符处理功能,使其也能应用于非数值计算领
域。
1991
年
,ANSI(
美国国家标准化协会
) -1991
问世
其国际标准
文件号为
ISO/IEC 1539:1991,
我国国家标准是
GB/T 3057-1996,
人们俗
称
FORTRAN90
。除保持了
FORTRAN77
的全部优点,还加进了许多
具有现代特性的功能,为
FORTRAN
语言注入了新的活力。
Back
11/10/2017
2
简单的FORTRAN77程序分析
1
引例
:求三个数的平均数
C
Calculate the average of three numbers
X =
Y=
Z=
AVER = (X+Y+Z)/
WRITE(*,*)’The Three Numbers are :’,X,Y,Z
WRITE(*,*)’AVERAGE = ’,AVER
END
程序中第
1
行是注释行,用于说明本程序的作用;第
2~4
行是赋
值语句,将三个数值分别赋予三个变量;第
5
行是计算赋值语句,求
出平均值并赋予变量
AVER
,第
6~7
行是输出语句,分别打印三个数
及其平均值,最后一行是
END
语句。
11/10/2017
3
引例
2
:分别求
R=1
,
3
,
12
,
5
时的圆周长
C Main
Program
C
Program EX2
WRITE(*,*)
‘
R =
’,
,
‘
C =
’,
C
(
)
WRITE(*,*)
‘
R =
’,
,
‘
C =
’,
C
(
)
WRITE(*,*)
‘
R =
’,
,
‘
C =
’,
C
(
)
WRITE(*,*)
‘
R =
’,
,
‘
C =
’,
C
(
)
END
C Sub
Program
FUNCTION
C(
R
)
PI =
C =2.*PI*R
RETURN
END
11/10/2017
4
子程序中第
1
行是注释行,说明本程序是子程序,第
2
行是
FUNCTION
语句,表明这是一个函数子程序,函数名
为
C
,并有一个自变量
R
,此函数子程序在主程序中被调
4
次,分别求出不同半径时的圆周长;第
3
行是赋值语句,
第
4
行是利用公式
r
c
p
2
=
计算与自变量
R
对应的圆周长并
赋于变量
C
,第
5
行是
RETURN
语句,返回调用程序,最
后一行是
END
语句。
主程序中第
1
行是注释行,说明本程序是主程序,第
2
行是
PROGRAM
语句,为主程序起名为
EX2
,以便识别,
第
3~6
行为输出语句,其中
C
(
)、
C
(
)、
C
(
),
C
(
)分别调用函数子程序,求出与半径
、
、
、
相对应的圆周长;最后一行是
END
语句。
Back
11/10/2017
5
函数
由以上引例可