第3章 Fortran程序设计基础3.1 字符集
3.2 书面格式
3.3 Fortran的数据类型
3.4 Fortran的数学表达式
3.2 书面格式
Fortran程序编写格式有两种：
①?固定格式（Fixed Format）如：[ex0301.for]
◆?Fortran77的旧式写法，编写格式有很多限制。
◆?往往以*.FOR或*.F 为扩展名
③?自由格式（Free Format）如：[ex0302.f90]
◆?Fortran90后的新写法，取消很多的旧限制。
◆?往往以*.F90为扩展名
Fortran程序编写的两种格式
注释行
连接符
空格在程序代码
命令间没有意义 行的编号，不需要
和代码执行先后顺
序有关系
3.2.2 自由格式（Free Format）
??没有规定每一行的第几个字符有什么作用??注意：
–?符号 ! 后面的文本都是注释
–?每行可以编写132个字符
–?行号放在每行程序的最前面
–?一行程序代码的最后如果是符号 &，代表下一行程序会和这一行连接（必要）。如果一行程
序代码的开头是符号 &，代表它会和上一行程序连接（非必要）
注释行
注释语句
连接符
可省略 连接符，不建议在命令中使用
3.3 Fortran的数据类型 记录文本、数值等数据的最小单位及方法
1.?整数（INTEGER）
–?长整型（32 bits）：-231～231-1
–?短整型（16 bits）：-215～ 215-1
2.?实数（REAL）
–?单精度（32 bits） ：有效位数6～7位
最大 ±3.4*1038，最小±1.18*10-38
–?双精度（64 bits） ：有效位数15 ～ 16位
最大±1.79*10308 ，最小±2.23*10-308
3.?复数（COMPLEX）
–?由两个浮点数（a+bi）来表示的数值，分为单精度复数和双精度复数两种。
4.?字符（CHARACTER）
–?记录字母、数字或任何特殊符号
–?记录一连串字符时称“字符串”
6.?逻辑判断（LOGICAL）
–?只有两种逻辑结果：“是”（TRUE）和
“否”（FALSE）
?不同类型的数据必需经过转换才能互通互用，因为它们是使用不同方法来存储。
FORTRAN程序设计复习题 一、选择题 B (1)下列各FORTRAN表达式中合法的是 A) S+T*2P >= B) .NOT. (A*B+C) C) A2+B2/(C+D) <= D) (A+B).NOT．A*B．GT．(.NOT.只跟一个表达式) C (2)数学式(3/5)ex+y的FORTRAN表达式是 A) 3*EXP(X+Y)/5 B) 3*E* *(X+Y)/ C) (3/5)*EXP(X+Y)D) EXP(X+Y) D (3)下列FORTRAN77表达式中不合法的是 A) A．GT．B．EQV．C．GT．D B) A．AND．B．AND．C．AND．D C) .NOT．(X．LE．D) A．LT．B．LT．C．LT．D D(4)下列叙述中不正确的是 A) FORTRAN子程序可以单独编译 B) 对一个FORTRAN源程序进行编译和连接无误后可生成可执行文件 C) 即使编译和连接都正确无误，FORTRAN程序运行时仍可能出错 D) FORTRAN连接的主要任务是把函数库中的函数翻译成机器指令(正确描述：主要任务为连接目标文件) B (5)在下列FORTRAN77运算符中，优先级最高的是 A) .AND. B) .NOT. C) .OR. D) .EQ. B (6)FORTRAN表达式"6/5+9/2**3/2"的值为 A) 33 B) 1 C) 5 D) 3 A (7)下列FORTRAN77表达式中，合法的是： A) .AND.. B) 10.0 C) D) 提示：A）相当于 .AND.（.NOT.（）） D (8)关于编译一个FORTRAN源程序文件，下列说法中错误的是 A) 允许编译只有一个主程序而没有子程序的源文件 B) 允许编译有多个子程序的源文件 C) 允许编译只有一个子程序而没有主程序的源文件 D) 允许编译有多个主程序的源文件 C (9)在FORTRAN77源程序中，续行标志符必须放在 A) 第1列 B) 第1-6列C) 第6列D) 第5列 D (10)下列关于"SUBROUTIN E MAP(X，Y)"语句行的叙述中，不正确的是 A) 这是子程序的第一个语句 B) 字符串"MAP"是子程序名 C) 变量X是子程序的形参D) 子程序执行后，MAP将返回整型数据 提示：子程序无返回值，自定义函数才有） A (11)FORTRAN表达式"2/4+"的值是 A) B) 1 C) D) 0 提示：2/4默认等于整型，=》 D (12)FORTRAN表达式"MOD，"的值是 A) B)0.0 C) D) A (13下列FORTRAN运算符中，优先级最低的是 A）逻辑运算符.AND. B）算术运算符*
FORTRAN笔记 2014.10.07 目录 第七讲_FORTRAN的基本知识.ppt (2) FORTRAN语言程序设计初步 (2) FORTRAN源程序的书写格式（以77为例） (2) 变量 (2) 变量类型 (2) 算术运算符和运算优先级 (3) 赋值语句 (3) 参数语句（PARAMETER语句） (3) END语句 (3) PAUSE语句 (3) 逻辑运算和选择结构 (4) 关系表达式 (4) FORTRAN中数组的定义及使用 (4) 其他 (5) 1. fortran语言定义CHARACTER*6 TTL(14,3),CNAM(400)是什么意思? (5) 2. fortran里character*10 是什么意思 (5) 3. Fortran中kind是什么函数？ (5)
第七讲_FORTRAN的基本知识.ppt FORTRAN语言程序设计初步 FORTRAN是Formula Translation的缩写，意为“公式翻译”，它是为科学、工程问题或企事业管理中的那些能够用 数学公式表达的问题而设计的，其数值计算的功能较强。 常用的是FORTRAN77和FORTRAN90两种标准。 1、一个程序由若干个程序单位组成。主程序和每一个子程序分别是一个独立的程序单位。 2、每一个程序单位都是以“END”结束的。 3、一个程序单位包括若干行。 1）语句行。由一个FORTRAN语句组成。 2）非语句行，即注释行。 4、FORTRAN程序中的语句可以没有标号，也可以有标号，根据需要而定。标号的作用是标志一个语句以便被其 他语句引用。 5、一个程序单位中各类语句的位置是有一定规定的。 6、FORTRAN源程序必须按一定的格式书写。 FORTRAN源程序的书写格式（以77为例） 每一行有80列，分别如下： 1、第1-5列为标号区。一行中第一列为“C”或“*”，该行即被认为是注释行。 2、第6列为“续行标志区”，如果在一行的第6列上写一个非空格和非零的字符，则该行作为其上一行的续行。 3、第7-72列为语句区。 4、第73-80列，注释区。 变量 变量名：一个变量需要用一个名字（变量名）来识别。在同一个程序单位中不能用同一个变量名代表两个不同的变 量。 FORTRAN的变量名按以下规则选定： 1）第一个字符必须是字母，即变量名必须以字母开头； 2）在一个字母后面可以跟1-5为数字或字母。 如果选定的变量名超过6个字符，则只有前面6个字符有效。 注：在变量名中大写与小写字母是等价的。 变量类型 整型变量Integer、实型变量Real、双精度变量Double Precision、复型变量Complex、逻辑型变量Logical和字符型变量Character。 1、隐含约定（I-N规则） FORTRAN规定：在程序中的变量名，凡以字母I，J，K，L，M，N六个字母开头的，即认为该变量为整型变量。 在程序中，凡是变量名以字母I,J,K,L,M,N,i,j,k,l,m,n开头的变量被默认为整型变量，以其他字母开头的变量被 默认为实型变量。 2、用类型说明语句确定变量类型 1）INTEGER语句（整型说明语句） 2）REAL语句（实型说明语句） 3）DOUBLE PRECISION语句（双精度说明语句） 4）COMPLEX语句（复型说明语句） 5）LOGICAL语句（逻辑型说明语句）
FORTRAN是世界上最早出现的高级编程语言，是工程界最常用的编程语言，它在科学计算中（如航空航天、地质勘探、天气预报和建筑工程等领域）发挥着极其重要的作用。经过40多年的发展，伴随着FORTRAN语言多次版本的更新及相应开发系统的出现，其功能不断完善，最新版本的开发系统几乎具备了VC、VB的所有特点，如图形界面编程、数据库等。目前，工科院校开设的计算机编程语言课首选仍然是FORTRAN :< 说实话，从科技发展的趋势来说这不是好事。您可以设想一下，如果需要用鹅毛笔抄写大量的古籍是什么感受！ 强烈建议阅读《发掘C#特性赋予科学计算项目以威力》 1 FORTRAN77四则运算符 + - * / ** (其中**表示乘方) 在表达式中按优先级次序由低到高为： +或-→*或/→**→函数→() 2 FORTRAN77变量类型 隐含约定：I-N规则 凡是以字母I，J，K，L，M，N六个字母开头的，即认为是整型变量，其它为实型变量。 用类型说明语句确定变量类型：可以改变I-N规则
用IMPLICIT语句将某一字母开头的全部变量指定为所需类型 如IMPLICIT REAL (I,J) 三种定义的优先级别由低到高顺序为：I-N规则→IMPLICIT语句→类型说明语句，因此，在程序中IMPLICIT语句应放在类型说明语句之前。 数组的说明与使用 使用I-N规则时用DIMENSION说明数组，也可在定义变量类型同时说明数组，说明格式为：数组名(下标下界,下标上界），也可省略下标下界，此时默认为1，例：DIMENSION IA(0:9),ND(80:99),W(3,2),NUM(-1:0),A(0:2,0:1,0:3)
第四章 1.program main implicit none write(*,*) "Have a good time." write(*,*) "That's not bad." write(*,*) '"Mary" isn''t my name.' end program 2.program main real, parameter :: PI=3 implicit none.14159 real radius write(*,*) "请输入半径长" read(*,*) radius write(*,"(' 面积='f8. 3)") radius*radius*PI end program 3.program main implicit none real grades write(*,*) "请输入成绩" read(*,*) grades write(*,"(' 调整后成绩为'f8.3)") SQRT(grades)*10.0 end program 4.integer a,b real ra,rb a=2 b=3 ra=2.0 rb=3.0 write(*,*) b/a ! 输出1, 因为使用整数计算, 小数部分会无条件舍去write(*,*) rb/ra ! 输出1.5 5.p rogram main implicit none type distance real meter, inch, cm end type type(distance) :: d write(*,*) "请输入长度:" read(*,*) d%meter d%cm = d%meter*100 d%inch = d%cm/2.54 write(*,"(f8.3'米='f8.3'厘米='f8.3'英寸')") d%meter, d%cm, d%inch end program 第五章 1.program main implicit none integer money real tax write(*,*) "请输入月收入" read(*,*) money if ( money<1000 ) then tax = 0.03 else if ( money<5000) then tax = 0.1 else tax = 0.15 end if write(*,"(' 税金为'I8)") nint(money*tax) end program 2.program main implicit none integer day character(len=20) :: tv write(*,*) "请输入星期几" read(*,*) day select case(day) case(1,4) tv = "新闻" case(2,5) tv = "电视剧" case(3,6) tv = "卡通" case(7) tv = "电影" case default write(*,*) "错误的输入" stop end select write(*,*) tv end program 3.program main implicit none integer age, money real tax write(*,*) "请输入年龄" read(*,*) age write(*,*) "请输入月收入" read(*,*) money if ( age<50 ) then if ( money<1000 ) then tax = 0.03 else if ( money<5000 )then tax = 0.10 else tax = 0.15 end if else if ( money<1000 ) then tax = 0.5 else if ( money<5000 )then tax = 0.7 else tax = 0.10 end if end if write(*,"(' 税金为'I8)") nint(money*tax) end program 4.program main implicit none integer year, days logical mod_4, mod_100, mod_400 write(*,*) "请输入年份" read(*,*) year mod_4 = ( MOD(year,4) == 0 ) mod_100 = ( MOD(year,100) == 0 ) mod_400 = ( MOD(year,400) == 0 ) if ( (mod_4 .NEQV. mod_100) .or. mod_400 ) then days = 366 else days = 365 end if write(*,"('这一年有'I3'天')") days stop end program 第六章 1.program main implicit none integer i do i=1,5 write(*,*) "Fortran" end do stop end program 2.program main implicit none integer i,sum sum = 0 do i=1,99,2 sum = sum+i end do write(*,*) sum stop end program 3.program main implicit none integer, parameter :: answer = 45 integer, parameter :: max = 5 integer weight, i do i=1,max write(*,*) "请输入体重" read(*,*) weight if ( weight==answer ) exit end do if ( i<=max ) then write(*,*) "猜对了" else write(*,*) "猜错了" end if stop end program 4.program main implicit none integer, parameter :: max=10 integer i real item real ans ans = 1.0 item = 1.0 do i=2,max item = item/real(i) ans = ans+item
计算机程序设计语言(FORTRAN语言) (总分：36.00，做题时间：90分钟) 一、 (总题数：36，分数：36.00) 1.编译程序能将高级语言编写的源程序转换成( )。 A．解释程序 B．汇编程序 C．映象程序 D．目标程序 （分数：1.00） A. B. C. D. √ 解析： 2.一个完整的FORTRAN源程序( )。 A．至少包括一个主程序 B．至少包括一个主程序和一个子程序 C．由一个主程序与一个以上的子程序组成 D．由一个主程序与一个子程序组成 （分数：1.00） A. √ B. C. D. 解析： 3.语句函数定义语句在程序内合法的位置是( )。 A．在程序块开头语句之后，END语句之前 B．在程序块开头语句之后，可执行语句之前 C．在说明语句之后，END语句之前 D．在说明语句之后，可执行语句之前 （分数：1.00） A. B. C. D. √ 解析： 4.下列关于函数子程序虚实参数的错误说法是( )。 A．可以没有形参数 B．虚实结合的数组长度可以不同 C．实参表与虚参表类型可以不同 D．函数名可以作为虚参
（分数：1.00） A. B. C. √ D. 解析： 5.下列叙述中正确的是( )。 A．FORTRAN程序块中，无名公用语句只能有一个B．FORTRAN子程序中，至少应有一个RETURN语句C．FORTRAN程序块中，最后一行必须是END语句D．FORTRAN程序块中，必须有变量说明语句 （分数：1.00） A. B. C. √ D. 解析： 6.运行下面的程序时得不到所需的结果，其主要原因是( )。INTEGER X(11) DATA X/9，8，7，6，5，4，3，2，1，0，-1/ DO 10 1=1，X(1) ，-1 WRITE(*，*)1.0/SQRT(25.0-REAL(X(1) )* * 2) 10 CONTINUE END A．没有给X(11) 赋初值 B．发生除以零的情况 C．发生负数开平方的情况 D．循环参数设置错误 （分数：1.00） A. B. C. D. √ 解析： 7.下列数据中，不符合FORTRAN常量表示法的是( )。 A．-25.6 B．2.758D3 C．'FOOT"=' D．TRUE （分数：1.00） A. B. C. D. √ 解析：
附录 FORTRAN 90标准函数 符号约定： ●I代表整型;R代表实型;C代表复型;CH代表字符型;S代表字符串;L代表逻辑型;A代表数组;P代表指针;T代表派生类型;AT为任意类型。 ●s:P表示s类型为P类型(任意kind值)。s:P(k)表示s类型为P类型(kind值=k)。 ●[…]表示可选参数。 ●*表示常用函数。 表1 数值和类型转换函数 函数名说明 ABS(x)*求x的绝对值∣x∣。x:I、R,结果类型同x; x:C,结果:R AIMAG(x)求x的实部。x:C,结果:R AINT(x[,kind])*对x取整,并转换为实数(kind)。x:R, kind:I,结果:R(kind) AMAX0(x1,x2,x3,…)*求x1,x2,x3,…中最大值。x I:I,结果:R AMIN0(x1,x2,x3,…)*求x1,x2,x3,…中最小值。x I:I,结果:R ANINT(x[,kind])*对x四舍五入取整,并转换为实数(kind)。x:R, kind:I,结果:R(kind) CEILING(x)*求大于等于x的最小整数。x:R,结果:I CMPLX(x[,y][,kind]))将参数转换为x、(x,0.0)或(x,y)。x:I、R、C, y:I、R,kind:I,结果:C(kind) CONJG(x)求x的共轭复数。x:C,结果:C DBLE(x)*将x转换为双精度实数。x:I、R、C,结果:R(8) DCMPLX(x[,y])将参数转换为x、(x,0.0)或(x,y)。x:I、R、C, y:I、R,结果:C(8) DFLOAT(x)将x转换为双精度实数。x:I,结果:R(8) DIM(x,y)*求x-y和0中最大值,即MAX(x-y,0)。x:I、R, y的类型同x,结果类型同x DPROD(x,y)求x和y的乘积,并转换为双精度实数。x:R, y:R,结果:R(8)
Cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc Cccc This computer program was copied from the graduate student course program Cccc of the University of Minnesota. Part of it was re-formulated to meet the Cccc personal computer environment. Some inappropriate expressions were also Cccc corrected. The program is used only for teaching purpose. No part of it Cccc may be published. You may use it as a frame to re-develop your own code Cccc for research purpose. XJTU Instructor, 1995.11 **************************************************************************** *----------------------------MAIN PROGRAM----------------------------------- **************************************************************************** LOGICAL LSTOP COMMON/CNTL/LSTOP **************************************************************************** OPEN(08,FILE='teresul') CALL SETUP0 CALL GRID CALL SETUP1 CALL START 10 CALL DENSE CALL BOUND CALL OUTPUT IF(.NOT.LSTOP) GO TO 15 CLOSE(08) STOP 15 CALL SETUP2 GO TO 10 END *--------------------------------------------------------------------------- SUBROUTINE DIFLOW **************************************************************************** COMMON/COEF/FLOW,DIFF,ACOF **************************************************************************** ACOF=DIFF IF(FLOW .EQ.0.0)RETURN TEMP=DIFF-ABS(FLOW)*0.1 ACOF=0. IF(TEMP .LE. 0. ) RETURN TEMP=TEMP/DIFF ACOF=DIFF*TEMP**5 RETURN END *-------------------------------------------------------------------------- SUBROUTINE SOLVE ****************************************************************************
#LOCAL REAL Uds,Uqs,angles,vs,w,o,ang,ta,tb,t0,Ud1,Uq1,E #LOCAL REAL tc,t,mt,pi #LOCAL INTEGER sign,M,nl,n t=TIME tc=$TC nl=DNINT(tc/delt) pi=3.1415926 E=$Udc w=2*pi*50 if(t.lt.delt) then sign=0 M=0 Uds=0 Uqs=0 angles=0 vs=0 o=0 ang=0 ta=0 tb=0 t0=0 Ud1=0 Uq1=0 n=1 end if if(mod(n,nl).lt.1E-7) then !初始化变量 M=M+1 Uds=$Ud Uqs=$Uq angles=$angle !变换到alphabeta坐标直角坐标
Ud1=cos(angles)*Uds+sin(angles)*Uqs Uq1=sin(angles)*Uds-cos(angles)*Uqs ! Ud1=$Ud ! Uq1=$Uq !生成矢量的模和角度 vs=sqrt(Ud1**2+Uq1**2) if(Ud1.gt.0.and.Uq1.ge.0) then ang=atan(Uq1/Ud1) else ang=atan(Uq1/Ud1)+2*pi end if if(Ud1.lt.0) then ang=atan(Uq1/Ud1)+pi end if if(Ud1.eq.0) then if(Uq1.ge.0) then ang=pi/2 else ang=3*pi/2 end if end if !判断矢量的所属,计算角度 if(ang.ge.0.and.ang.lt.pi/3) then sign=1 o=ang ! o=w*t end if if(ang.ge.pi/3.and.ang.lt.2*pi/3) then sign=2 o=ang-pi/3 ! o=w*t-pi/3 end if if(ang.ge.2*pi/3.and.ang.lt.3*pi/3) then sign=3 o=ang-2*pi/3 ! o=w*t-2*pi/3
Fortran95程序设计习题答案 第四章 1.program main implicit none write(*,*) "Have a good time." write(*,*) "That's not bad." write(*,*) '"Mary" isn''t my name.' end program 2.program main real, parameter :: PI=3 implicit none.14159 real radius write(*,*) "请输入半径长" read(*,*) radius write(*,"(' 面积='f8. 3)") radius*radius*PI end program 3.program main implicit none real grades write(*,*) "请输入成绩" read(*,*) grades write(*,"(' 调整后成绩为 'f8.3)") SQRT(grades)*10.0 end program 4.integer a,b real ra,rb a=2 b=3 ra=2.0 rb=3.0 write(*,*) b/a ! 输出1, 因为使用整数计算, 小数部分会无条件舍去 write(*,*) rb/ra ! 输出 1.5 5.program main implicit none type distance real meter, inch, cm end type type(distance) :: d write(*,*) "请输入长度:" read(*,*) d%meter d%cm = d%meter*100 d%inch = d%cm/ 2.54 write(*,"(f8.3'米 ='f8.3'厘米 ='f8.3'英寸')") d%meter, d%cm, d%inch end program 第五 章 1.program main implicit none integer money real tax write(*,*) "请输入月收入" read(*,*) money if ( money<1000 ) then tax = 0.03 else if ( money<5000) then tax = 0.1 else tax = 0.15 end if write(*,"(' 税金为 'I8)") nint(money*tax) end program 2.program main implicit none integer day character(len=20) :: tv write(*,*) "请输入星期几" read(*,*) day select case(day) case(1,4) tv = "新闻" case(2,5) tv = "电视剧" case(3,6) tv = "卡通" case(7) tv = "电影" case default write(*,*) "错误的输入" stop end select write(*,*) tv end program 3.program main implicit none integer age, money real tax write(*,*) "请输入年龄"
《FORTRAN 95程序设计》学习笔记 66RPG gg ★目录★ 《FORTRAN 95程序设计》学习笔记 (1) 基础知识(基础、字符串、FORMAT、隐式、TYPE) (1) 流程与控制(if、select、do) (4) 数组(声明、隐式循环、整体操作、可变数组) (5) 函数与子程序(子程序、函数、全局变量) (6) MODULE与面向对象(重载操作符、虚函数) (9) 文件相关(OPEN、WRITE、READ) (10) 指针（指向变量、数组、函数） (11) Visual Fortran 编译器（DLL，VB调用） (12) 数值算法与IMSL（数值算法插件） (14) 常用库函数（数学、数组、零碎、子程序） (15) 基础知识(基础、字符串、FORMAT、隐式、TYPE) ★【小玩意】二进制观察器：装在M.. Visual Studio\DF98\bin，有一个Bitviewer，可以观察变量储存方式 ★【语法】续行：行结尾或行开头使用& 符号；注释：使用! 符号 ★【语法】数学表达式：+ ；- ；* ；/ ；( ；) ；**乘幂 ★【语法】程序结束：STOP (Ruby的exit) ★【语法】输出：write(*,*)，完整写法：write(unit=*,fmt=*) ?建议：少用print，尽量用write ★【语法】声明 ?整型：integer(kind=4) a ；其中kind是使用的bytes数，4 or 2 ◆其他写法：integer*4 a; integer(4) a ?浮点：real(kind=4) a ；有效数位6位（12345678存为1.234567E7），如果是kind8 则为15位有效数字 ◆此外：1E10：单精10^10，1D10：双精10^10 ?复数：complex :: a=(2,3)
第一章: Fortran语言程序设计初步 Fortran语言的发展概况 本节介绍Fortran的起源与发展历史，讲述Fortran由产生到形成标准FortranIV、Fortran77，并进一步形成新标准Fortran90/95的发展历程。 1.1.1 Fortran的历史 a)a)FortranI FortranIV Fortran是目前国际上广泛流行的一种高级语言，适用于科学计算。Fortran 是英文FORmula TRANslatio n的缩写，意为“公式翻译”。它是为科学、工程问题中的那些能够用数学公式表达的问题而设计的语言，主要用于数值计算。这种语言简单易学，因为可以像抄写数学教科书里的公式一样书写数学公式，它比英文书写的自然语言更接近数学语言。Fortran语言是第一个真正推广的高级语言。至今它已有四十多年历史，但仍历久不衰，始终是数值计算领域所使用的主要语言。Fortran语言问世以来，根据需要几经发展，先后推出形成了很多版本。 第一代Fortran语言是在1954年提出来的，称为FortranI。它于1956年在IBM 704计算机上得以实现。在此之前编写计算机程序是极为繁琐的，程序员需要详细了解为之编写代码的计算机的指令、寄存器和中央处理器(CPU)等方面的知识。源程序本身是用数学符号(八进制码)编写的，后来采用了助记符，即所谓机器码或汇编码，这些编码由汇编程序转换为指令字。在50年代书写和调试一个程序要很长时间，因为用这种方式编写程序显然是很不方便的，尽管它能使CPU高效地工作。正是这些原因，促使由John Backus率领的IBM公司的一个小组研究开发最早的高级程序设计语言Fortran。其目的是开发一种容易理解、简单易学又能几乎像汇编一样高效运行的语言，他们取得了极大的成功。Fortran 语言作为第一种高级语言不仅是一次创新，也是一次革命。它使程序员摆脱了使用汇编语言的冗长乏味的负担，而且它使得不再只是计算机专家才能编写计算机程序，任何一名科学家或工程技术人员，只要稍加努力学习和使用Fortran，就能按自己的意图编写出用于科学计算的程序。 经过不断发展，FortranI形成了很多不同版本，其中最为流行的是1958年出现的FortranII，它对FortranI进行了很多扩充(如引进了子程序)，FortranII 在很多机器上得以实现。其后出现的FortranIII未在任何计算机上实现。1962年出现的FortranIV对原来的Fortran作了一些改变，使得FortranII源程序在FortranIV编译程序下不能全部直接使用，导致了语言不兼容的问题。这样就形成了当时同时使用FortranII和FortranIV两种程序设计语言的局面。
大学F O R T R A N考试试 题 标准化管理部编码-[99968T-6889628-J68568-1689N]
《高级语言程序设计(FORTRAN)》考试样题 一、选择题(每小题2分,共40分) 1. 下列标识符中不能作为FORTRAN的合法变量名的是_____D_____。 A) A_1 B) A1 C) A1A D) A+1 2. 在FORTRAN的变量类型说明语句中没有 B A) REAL语句B)CHAR语句C)INTEGER语句 D)LOGICAL语句 3．FORTRAN90 源程序的扩展名是 C 。 A. TXT B. F C. F90 D. FOR 4.下列关于符号常量的说法正确的是___C____。 A.符号常量的定义应该放在所有语句之前 B.符号常量不可以是字符型常量 C.在一个程序单位中定义一个符号常量后，不能再改变它的值 D.符号常量定义语句与赋值语句一样，是可执行语句 5、在下列写法中，__D______不是FORTRAN常量。 A. .TRUE. C. , ,000,000 6．表达式15／4／的值是 B 。 A．整数2 B．实数1．5 C．实数2．25 D．实数1. 3 7. 下列不是FORTRAN赋值语句的是 _____D______。 A) X=.TRUE. B) X=X*X C) X=X**2**2 D) X=X++ 8. 梯形的上底为A,下底为B,高为H,计算其面积的FORTRAN表达式中错误的是____A____。 A)1/2*(AB)*H B)(A+B)*H/2 C)(A+B)/2*H D)*(A+B)*H 9. 要选拔身高T>米且体重W<公斤的人,FORTRAN的逻辑表达式是__C_____。 A) B) C) D) 90规定，变量类型声明的优先顺序是 C 。 A.隐含约定（I-N规则）、IMPLICIT声明、类型声明 B.类型声明、隐含约定（I-N规则）、IMPLICIT声明 C.类型声明、IMPLICIT声明、隐含约定（I-N规则） 声明、类型声明、隐含约定（I-N规则） 11、假设CH是一个字符型变量，并且具有足够的长度，则对于CH(3:7),下面说法正确的是___D________。 A.它是一个数组片段 B.它是一个数组定义形式 C.它是CH的一个子串，并且长度是4 D.它是CH的一个子串，并且长度是5 12．数组声明语句为： INTEGER,DIMENSION(-5:-1,-3:3,11:15) ::A 数组共有 A 个元素。 A．175 B．150 C．120 D．17 13. 下列DATA语句中正确的是______C____。 A) DATA /A,B/, B) DATA A, B/2*/ C) DATA A, B/2* D) DATA A/, B/ 14. 下列有关FORTRAN数组的说法正确的是______D_____。 A) 数组定义语句只能定义一维或二维数组 B) 数组元素下标不能出现负值 C) 在赋值语句中出现的A(3)肯定是数组元素 D) 程序中使用的数组必须进行说明
I n t e l V i s u a l F o r t r a n安装+使用详细讲解 好久都没有用Fortran了，这两周由于帮老师做事，就写了两个插值程序。刚刚去论坛里面搜了一下关于IVF的帖子，发现不是很多，个人感觉某些不怎么详细，从我第一次接触IVF 已经有三年了，下面我就把我对于IVF的认识和理解跟大家分享咯，求各位同仁不喜勿喷... 简介:IntelVisualFortran(IVF)和CompaqVisualFortran(CVF)类似，都是用来编写Fortran 语言的一个编译器，IVF看名字就知道，它是由Intel公司开发，而CVF则是由HP公司开发，之前看到一个帖子说，HP公司的CVF开发团队加盟到了Intel公司，或者可以说Intel 公司收购了HP公司的这个团队，而从2006年开始就不再开发新的CVF系列版本了，这么多年以来CVF也确实没有、......之后的版本出现，转而出现的确实IVF2010，IVF2011,IVF2013的新版本的出现。这就说明IVF是以后的主流趋势，而CVF只能成为我们的回忆，值得一提的是，IVF肯定是在CVF的基础上发展起来的，因此我们用到IVF的时候，会有一种熟悉的感觉。 Q1：为什么要用IntelVisualFortran？ 我第一次接触到IVF是当时我的电脑(Win7)不能正常使用CVF版本，会出现各种意想不到的问题(反正我是遇到过得，搞得编程的心情都没有了)，论坛里面也有一些什么破解的方法，都不管用，于是就在“小木虫”论坛里面看到了IVF，到目前为止，我用IVF在Win7的32位和64位的电脑上没有出现任何不兼容的问题（CVF是不支持64位机子的）。我自己的理解是新版本的出现，先不从稳定不稳定来说，肯定是有它的优势所在，Fortran标准的版本也在逐步的修改，比如将面向对象这些加入进来，以前版本的编辑器或许就不能支持了。因此，用IVF编写Fortran程序是一种与时俱进的趋势。 Q2：如何获取IntelVisualFortran？ 在百度或者家园论坛里面搜一下就会有很多相关下载的帖子，我自己也搜集了一些，下面就把我目前用到的版本给大家分享 链接:提取密码:5p02 链接:c:\iknow\docshare\data\cur_work\_blank提取密码:ady4 第一个是IVF的安装包 第二个就是IVF的licence文件（在安装过程中需要用到） Q3：如何在电脑中安装IntelVisualFortran？ （建议电脑是XP系统的坛友，还是用CVF，电脑是Win7/8的坛友就可以安装IVF） IVF的安装比CVF的安装稍微麻烦一点的就是在安装过程这一步，在安装上面下载的IVF安装包之前，需要提前安装一个东西，那就是MicrosoftVisualStudio****(VS)这个集成开发环境(IDE)，可以简单的理解为，IVF就是VS里面的一个用于编写Fortran的插件，下面我也提供一个我的VS2010版本的下载。(市场上最新的是VS2013) VisualStudio2010简体中文专业版（MSDN原版下载内置KEY）.iso 链接:c:\iknow\docshare\data\cur_work\_blank提取密码:w7yv
工程分析程序设计 上机作业（一） 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)/2 2、 从键盘输入三个角度值a, b, c ,计算如下式子的值： 22 34a 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条辅助线。如图所示：（提示，三角形面积 2 a b c s ++=，a 、b 、c 为三个边长）。 =21 6、 我国现在人口13.0亿人，假定每年增长率为1.5%，求n 年以后的人口数。n 从键盘输入。
7、 请写一个程序，可以让使用者输入初始速度V 0（单位为m/s ）与角度θ（单位°），利用下列公式计算 飞行时间与距离： g V t /sin 20θ= t V D ?=θcos 0
《FORTRAN语言》自学提纲 第一章1 FORTRAN基础 1. 一个FORTRAN程序由一个主程序或一个主程序与若干个子程序组成。但一个完整的FORTRAN程序只能有一个主程序，主程序的第一个语句是PROGRAM语句，用以说明主程序的名称。这个语句也可以省略，省略时默认为主程序的名称为MAIN。2．FORTRAN的子程序主要有三种： ⑴函数子程序，其第一个语句为FUNCTION； ⑵子例行子程序，其第一个语句为SUBROUTINE； ⑶数据块子程序，其第一个语句为BLOCK DA TA。 主程序与各个子程序可以独立编译，最后再链接成一个可执行程序。在编写并输入一个FORTRAN程序时，既可以将主程序与各个子程序存放在一个文件中，也可以将它们分别存放在不同的文件中。但必须注意，主程序与各个子程序都是独立的程序单位，每个程序单位的最后一行必须用END语句作为结束。 在主程序中，虽然END语句还具有使程序停止运行的作用，但由于一个程序单位只能在最后一行有END语句，因此，在程序的其它位置处需要停止运行时，只能用STOP语句，不能用END语句。 同样的道理，在子程序中，虽然END语句还具有使程序流程返回到调用程序的作用，但在子程序的其它位置（不是最后一行）需要返回到调用程序时，只能用RETURN语句，不能用END语句。 3．FOPTRAN源程序的书写格式有严格的规定。 ⑴一行中第一列为“C”或“*”时，该行被认为是注释行。注释行可以写在四个区中的一个区，且注释行可以出现在程序单位的任何位置。但注释行不能有续行，需要时可以将连续若干行都定义为注释行。 ⑵FORTRAN语句部分不能占用标号区及续行标志区，只能从第七列开始。当语句太长时，可以使用续行。在继续行的标号区内必须为空白（即继续行不允许有标号），标号只能出现在起始行上。 ⑶起始行与继续行或各继续行之间的空格不起作用，因此，对于一般的语句，可以不必到72列才转为继续行，继续行也不必一定要从第7列接着写，但是，包括在引号内的字符串中的空格是有效的，因此，对于字符串要使用继续行时应特别注意，最好写到一行的72列时再转为继续行，且要从继续行的第7列接着写。 ⑷标号为无符号整数，不能出现正负号。 4．变量定义的I-N规则 与别的程序设计语言不同，FORTRAN语言中的实型变量和整型变量可以按隐含规则确定。这个隐含规则就是I-N规则。 I-N规则在一定程度上为用户提供了方便，对于常用的一些变量（如循环控制变量等）就不需要专门的类型语句进行说明，只要用合适的变量名就可以满足对变量类型的需要。但这也容易使用户疏忽了对变量类型的说明，以I-N开头的变量名实际是实型变量，但忘了用REAL 语句说明，或者以非I-N开头的变量名实际是整型变量，也忘了用INTEGER语句说明。 另外，还要提醒大家注意：由于FORTRAN语言中实型与整型变量遵循I-N规则，因此，在有关FORTRAN的练习或考核中，有时会省略对变量类型的说明，在这种情况下，应根据I-N规则来判断变量的类型。 总之，FORTRAN中的所有变量都是需要说明其类型的，而不能理解为整型与实型变量不需要进行说明。