fortran语言编程第三章
fortran 语言编程
fortran 语言编程Fortran 语言编程Fortran（Formula Translation）是一种面向科学计算和工程计算的高级编程语言。
它于1957年诞生于IBM，是最早被广泛采用的科学计算语言之一，目前已经发展到第四个版本（Fortran 2018）。
Fortran是一种编译型语言，它通过编写源代码并使用编译器将其转换成机器语言来执行。
本文将详细介绍Fortran语言的基础知识、语法规则和常用的编程技巧，以帮助读者了解和掌握这门强大的科学计算语言。
第一步：安装Fortran编译器要开始编写和运行Fortran程序，首先需要安装Fortran编译器。
有多种Fortran编译器可供选择，其中最常用的是GNU Fortran（gfortran）和Intel Fortran Compiler（ifort）。
可以从官方网站或其他可信的来源获得这些编译器的安装程序，并按照提示进行安装。
第二步：编写并编译Fortran程序在开始编写Fortran程序之前，需要了解Fortran的基本语法规则。
Fortran使用固定格式或自由格式，固定格式的源代码按照列格式排列，每行的前6列被保留用于行号和注释，从第7列开始是可执行代码。
自由格式没有列格式的限制，更加灵活，但在编译阶段需要指定自由格式。
下面是一个简单的Fortran程序示例，用于计算并输出两个数的和：fortranprogram additionimplicit noneinteger :: a, b, sumprint *, "Enter two numbers:"read *, a, bsum = a + bprint *, "The sum is:", sumend program addition将以上代码保存为一个以.f90为后缀名的文件（例如addition.f90），然后使用编译器将其编译成可执行程序。
fortran语言教程第3章
第3章顺序结构设计本章介绍数据输入/输出语句及其他基本语句，简单介绍顺序结构及程序设计的基本步骤，书写简单程序。
3.1 变量的赋值变量代表计算机内存中的存储单元，它可以接收外部设备输入的数据，也可保留运算器的运算结果，还可以被送到外部设备输出。
FORTRAN语言要求变量必须被预先赋值，然后才能被使用，并提供了下面几种为变量赋值的方式，因此，程序中的变量都应该在使用之前用下列方式之一获得数据。
3.1.1 赋值语句1）赋值语句的格式和功能语句的格式：变量 = 表达式语句的功能：将一个表达式的计算结果值赋给一个变量。
关于赋值语句的说明：（1）赋值语句是执行语句。
（2）赋值语句中的“=”号叫做“赋值号”，它的作用是将其右边的表达式的结果赋给其左边的变量，即将表达式的值放入变量对应的内存单元中，因此，赋值号的意义是带有方向性和动作性的。
例如“A=5.5”的作用是将5.5 送到变量A对应的内存单元中。
（3）赋值语句兼有计算和赋值双重功能。
即先计算出表达式的值，然后将该结果赋给一个变量。
例如“N=N+1”的作用是用N的当前值加上1后再送入N中，假设N的当前值是5，则执行N=N+1后，N的值为6。
（4）根据赋值语句的功能，由于赋值号的方向性特性，赋值号左边只能是变量，以便提供一个获得数据的空间。
因此，“A=B”和“B=A”具有完全不同的意义，前者表示将B中的数据送入A中，后者表示将A中的数据送入B中。
语句“X+Y=10”是错误的，因为在内存中找不到名字为X+Y的变量。
2）执行赋值语句时的类型转换问题执行赋值操作时，被赋值的变量和表达式的类型可以相同，也可以不相同。
FORTRAN语言作如下规定：（1）变量与表达式的类型相同，则将表达式的结果直接赋值。
M=4 （变量M和4都是整型）A=3.5*SIN（X）（变量A和表达式3.5*SIN（X）都是实型）（2）如果类型不同，则应先进行表达式的计算，然后将该表达式的值转换为被赋值变量的类型。
fortran教程[技巧]
![fortran教程[技巧]](https://img.taocdn.com/s3/m/31be265dce84b9d528ea81c758f5f61fb73628ec.png)
前言FORTRAN90的新特性1、淘汰了所有转移语句，增加了新的控制结构，使程序结构化。
增加了结构块，模块及过程的调用灵活形式。
2、加强数组的算法功能。
提出超载概念与实现方法。
提高了文字处理功能。
3、更接近自然语言与公式演算。
允许在字符数据用选取不同种别。
特别：语句书写对列的要求放宽：一般一行写一条语句（也可也多个语句，用“;”分隔），没有标号区、续行区、正文区的区别。
一行最多为132列，可以在任何列处中断语句，中断处写一个“&”，随后在下一行任意列处继续。
一个语句最长不能超过2640个字符。
语句结尾不可有标号、符号。
注释以“!”开始，可以位于任何位置。
***以下只讨论与FORTRAN77不相同处。
第一章FORTRAN90的基本语句第一节类型说明语句1、变量名全长不得超过31个字符。
2、变量类型定义：INTEGER::X,YREAL::ACOMPLEX::B,C,D3、建议淘汰隐式说明，在程序说明部分一开始就写：IMPLICIT NONE向系统声明不使用隐式说明。
4、可以在变量说明时就置初值。
如：REAL::X=1.1,Y,Z=2.25、种别——决定变量的精度和所占内存单元数。
a.如：REAL(KIND=2)::X 说明变量X为REAL型，种别为2。
KIND是种别说明关键字。
如没有种别说明，则采用系统省缺值。
b.有关函数：KIND(X) 返回X的种别参数。
当X取常数0时，返回省缺种别参数。
如KI ND(0)、KIND(0.0)、KIND(.FALSE.)、KIND('A')分别返回整型、实型、逻辑型、字符型的省缺种别参数。
SELECTED_REAL_KIND(N,M) 返回种别参数，使之满足十进制有效位为N, 值范围在10**(-M)和10**M之间的实数。
SELECTED_INT_KIND(N,M) 与上类似，选择整型类别。
c.常数类别表示对数值型常数、逻辑型常数用后缀法，即在常数后加一下划线，再跟种别参数。
FORTRAN 程序设计03
输出结果:1 2 3 4 6 7 8 9
6,case 块 (用于有多个分支情况)
----------------select case (条件) case(选择条件1) block1 case(选择条件2) case( 2) block2 ----------------end select
循环次数=INT((终值-初值+步长)/步长) 计算循环次数时应注意类型转换的影响. 如:do i=1.5,3.6,1.2 INT((3.6-1.5+1.2)/1.2)=2 do i=1,3,1 循环3次 循环执行过程: ⑴计算初值,终值,步长,转换成整型 ⑵将初值赋给循环变量 ⑶计算循环次数 ⑷检查循环次数,若≤0 停止循环执行循环终 端 下面部分,若〉0 执行循环体.
小于 小于等于 等于 不等于 大于 大于等于
b if 语句 if (condition) statement 如: ----------------if(j<k) s=n+3 -----------------C if 块 (用于完成更为复杂控制条 件的比较运算)
一般形式: if condition then block 1 else block 2 end if 例题:成绩分为a,b,c,d,e 5等,分别同几 个等级人数.
print *,((a(i,j),i=1,3),j=1,3) a(1,1) , a(2,1), a(3,1) a(1,2), a(2,2), a(3,2), 1 a(1,3), a(2,3), a(3,3)
4, 选择结构 a 关系运算: .LT. < .LE. <= .EQ. == .NE. /= .GT. > .GE. >=
FORTRAN语言第3章(共8章)
会再去执行。这一点同后面的SELECT CASE完
全不同。也就是说IF结构中的选择条件是允许重 叠的，但SELECT CASE语句不允许选择条件有 重叠。
第二节 块IF选择结构
1.ELSEIF语句其作用相当于将ELSE语句与其 后的ELSE块中的块IF语句连接在一起。 2.同块IF语句不同， ELSEIF语句与ENDIF语 句间不存在一一对应关系。 3.在这种IF结构中，允许使用多个ELSEIF语 句。在最后一个ELSEIF语句之后，可以有与 之对应的ELSE语句，也可以没有。当有 ELSE语句在最后时，表示如果前面所有的条 件都不成立，执行其后的ELSE块；如果没有 ELSE块，则表示如果前面所有的条件都不成 立时，流程转到ENDIF语句。
条 件 1 假 条 件 2 真 条 件 ...... 1 块 2 块 ...... 块 n 块 n +1 真 假 条 件 n 真 假 假
EN D IF 的 后 继 语 句
第二节 块IF选择结构
多重判断的IF结构中，判断条件的成立具有
唯一性。即一旦有判断条件成立，就去执行相应
的模块，如果其后仍有判断条件是成立的，也不
一个嵌套分支结构可使用若干个块 IF语句，相应就有若干个ENDIF语句，
每个块IF语句还可能使用一些ELSE
IF语句、ELSE语句，这就可能构成一 个复杂的IF-ELSEIF-THEN-ELSE结构。
当嵌套层次过多时，往往一时难以找
到同一层的块IF中的各语句，一般可 按以下方法确定： (1)从最内层的块IF语句开始，向下找到离它最近的ENDIF 语句，将它们用线括起来，这就是同一层次的块IF。 (2)由内向外重复这一个过程，直到遇见最外层块IF语句和 ENDIF语句为止。 (3)在书写嵌套分支结构时采取缩进方式进行程序书写，程 序的嵌套层次就容易确定。
FORTRAN95第三章循环程序设计
FORTRAN95第三章循环程序设计第三章的内容包括：1.DO循环：DO循环是FORTRAN中最基本的循环结构。
它允许我们指定循环变量的初始值、结束值和步长。
在每次循环迭代时，循环变量都会自动更新，并且在达到结束值时退出循环。
2.嵌套循环：FORTRAN也支持嵌套循环，这是在一个循环内部使用另一个循环。
嵌套循环使得我们能够处理更加复杂和具有分层结构的问题。
3.WHILE循环：FORTRAN还提供了类似于其他编程语言中的WHILE循环。
WHILE循环允许我们在循环前先检查一个条件，并且只要条件为真，就会继续执行循环体。
4.无限循环：有时候需要创建一个无限循环，即一个永远不会结束的循环。
在FORTRAN中，我们可以使用无条件的循环退出语句来跳出循环。
5.循环控制：在循环内部，我们可以使用控制语句来控制循环的执行方式。
这些控制语句包括CONTINUE、EXIT、CYCLE和END。
6.循环的应用：循环结构在许多数学和科学计算问题中都有广泛应用，如求和、求平均值、计算阶乘、寻找最大和最小值等。
循环程序设计是编程中非常重要的一部分，因为它可以帮助我们处理大数据集和执行复杂算法。
FORTRAN95提供了一系列强大的循环结构，使得我们能够更加灵活和高效地处理各种问题。
在循环程序设计中，重点应该放在优化循环的执行。
通过合理地选择循环变量的初始值、结束值和步长，以及使用合适的循环控制语句，可以使循环更加高效。
此外，避免在循环体内进行过多的计算和IO操作，可以减少循环的执行时间。
总之，循环程序设计是编程中一个基本但重要的概念。
FORTRAN95提供了丰富的循环结构和控制语句，使得我们能够更加高效地处理各种问题。
在实际应用中，我们应该根据具体问题的要求，合理选择和优化循环结构，以求得更好的性能和效果。
fortran语言编程第三章
前一页
休息
9
输入和输出
四：不带格式输入语句的一般形式
XXXXX read(设备号，*）变量名表
变量名表:由若干个变量名或数组元素等相互间用逗号分
割组成的内容。 作用：将输入数据按照系统设计输入格式一一赋给变量名 表中的每个变量名或数组元素等。
前一页
休息
10
stop、pause语句
一：stop语句的一般格式
例如： 20 write(*,20)m,n format(1x,i10,i10)
数值型格式说明符： Iw（整型输出）w为十进制正整数，表示输出整数的宽度 fw.d (小数点型输出）w,d为十进制正整数，w表示输出
数据的宽度,d表示小数部分占的位数
Ew.d（指数型输出）w,d为十进制正整数，w表示输出数
8
执行以上输入时，输入数据是： 0035000004150002 或
前一页 休息
输入和输出
三：不带格式输出语句的一般形式
XXXXX write(设备号，*）变量名表
变量名表:由若干个变量名或数组元素等相互间用逗号分割组成 的内容。 作用：将变量名表中的每个变量名或数组元素等按照系统设计 输出格式进行输出。
对该方程组做进一步的转换可得：y=(b-2a)/2 x=(4a-b)/2
前一页
休息
15
应用举例
算法描述： 定义integer变量a,b,x,y 输入鸡和兔的总数a及输入鸡与兔的总脚数b 计算鸡的数量x 计算兔的数量y 输出鸡的数量输出兔的数量 源程序清单： integer a,b,x,y read(*,*)a,b x=(4*a-b)/2 y=(b-2*a)/2; write(*,12)x,y 12 format(1x,’鸡的数量=’,i5,2x,’兔的数量=’,i5) end 前一页 休息
FORTRAN语言程序设计
n 是一个十进制数字(0~9)序列。
Kind值为：1、2、4、8之一。分别表示1、2、4、8个字节个数。
FORTRAN 90/95标准中整型常量的范围没有明确规定。
例如：122、0、-36、559_2
均为合法的整型常量
100.0、100，000、100 0、1002 均为非法的整型常量
5.6.2.2 实型常量
5.5 程序的书写格式 （1）固定格式：将一个语句行分为若干个区域，如下图所示
：
5.6 数据类型
5.6.1 基本概念 1.内部数据类型 FORTRAN语言将内部数据划分为以下类型： 整型 实型 算术型 数据类型 复型 逻辑型 字符型 2.种别 一个数据在内存中均占有一定字节个数的存储单元。上述每类数据都有 其不同的种别（即Kind）特性，即上述每类数据根据其种别特性（即 Kind值）的不同分别拥有不同字节个数的存储单元。 3.数据对象 1）常量：程序运行时，其值不能改变的量，称为常量。如:5,3等等。 2）变量：程序运行时，其值可以改变的量，如:变量a, a是一个存储单元
第四章 FORTRAN语言开发环境
详见教材：3.3 FORTRAN语言 开发环境
第五章 FORTRAN 语言基础知识
5.1 字符集
FORTRAN语言允许使用的字符集为：
Intel_Visual_Fortran窗口编程
图2.1 “新建项目”对话框Intel Visual Fortran 中的项目类型程序开发之前，我们应充分了解各种项目类型的特点。
启动Visual Studio 按前面的步骤打开图2.1所示的对话框，在“项目类型”中列出了Intel Visual 编译器可创建的几种项目类型。
图2.2 Console Application工程输出窗口其中包括两种库文件工程：静态库文件，是已编译的、独立于主程序的程序段，适合于大型项目中程序的结构组织和程序间函数或子程序的重复调用。
但是，静态库文件会插入程序调用点，磁盘空间浪费较大；同时当静态库文件需要升级的时候，会带来工作效率的低下。
为了解决这些问题，出现了动态链接库。
Dynamic-link Library 动态链接库，很好地解决了静态库文件存在的问题，程序设计中。
QuickWin Application 多文档窗口应用程序。
编译器封装了部分图2.3 QuickWin Application工程输出窗口Standard Graphics Application单文档窗口应用程序，通常以全屏的形式出现，所示。
全屏形式和窗口界面之间可通过组合键“Alt+Enter不同，Standard Graphics Application程序界面中并没有菜单栏和图2.4 Standard Graphics Application工程输出窗口Application 窗口界面应用程序。
经过编译器封装，应用程序能够调用完整的Win32 API系统函数，所以Windowing Application 应用程序的弹性更大、更加复杂。
图3.1 解决方案资源管理器Source Files”文件夹，单击鼠标右键，选择图3.2 “添加新项”对话框图3.3 Example3-1程序运行界面这个程序中，简单的四个语句却实现了典型的Windows窗口界面，如菜单和状态栏等，所以，用Fortran编写窗口界面程序并没有想象中的困难，经过编译器对相关函数的有效封装后反而更加容易。
Fortran的讲义第三章
选择结构
计算goto （Fortran 95废除）
goto(10, 20) (x .le. 0.0) + 2 10 y = 0.0
goto 30 20 y = 1.0 30 print *, ‘y = ‘, y
back3.for
选择结构
赋值goto （Fortran 90废除，Fortran95取消）
r .ne. 0
True
执行循环体
False
i = i + inc
r=r-1
i： 循环变量 e1：初值 e2： 终值 inc：步长 r： 循环次数
exam_3_2
循环结构
不允许改变循环变量i
允许改变表达式e1，e2，inc中变量的值，并且不 影响循环次数
退出循环后循环变量的值有意义
循环结构
{<执行语句>}
直到型 do
enddo [<标签>] 10 <执行语句>
{<执行语句>}
{<执行语句>}
if(<逻辑表达式>) exit if(<逻辑表达式>) goto 10
enddo
异常的程序流程
在选择和循环结构中不允许从结构外跳转到结 构内
goto 10 if(<逻辑表达式>) then 10 <执行语句> {<执行语句>} end if
优先级
1 2 3 4 5 6 7 8 9 10
选择结构
块if
<基本块if语句>→[<标签>:]if(<逻辑表达式>)then {<执行语句>} [else [<标签>] {<执行语句>}] endif [<标签>]
FORTRAN语言自学基础
《FORTRAN语言》自学提纲第一章1 FORTRAN基础1. 一个FORTRAN程序由一个主程序或一个主程序与若干个子程序组成。
但一个完整的FORTRAN程序只能有一个主程序，主程序的第一个语句是PROGRAM语句，用以说明主程序的名称。
这个语句也可以省略，省略时默认为主程序的名称为MAIN。
2．FORTRAN的子程序主要有三种：⑴函数子程序，其第一个语句为FUNCTION；⑵子例行子程序，其第一个语句为SUBROUTINE；⑶数据块子程序，其第一个语句为BLOCK DATA。
主程序与各个子程序可以独立编译，最后再链接成一个可执行程序。
在编写并输入一个FORTRAN程序时，既可以将主程序与各个子程序存放在一个文件中，也可以将它们分别存放在不同的文件中。
但必须注意，主程序与各个子程序都是独立的程序单位，每个程序单位的最后一行必须用END语句作为结束。
在主程序中，虽然END语句还具有使程序停止运行的作用，但由于一个程序单位只能在最后一行有END语句，因此，在程序的其它位置处需要停止运行时，只能用STOP 语句，不能用END语句。
同样的道理，在子程序中，虽然END语句还具有使程序流程返回到调用程序的作用，但在子程序的其它位置（不是最后一行）需要返回到调用程序时，只能用RETURN语句，不能用END语句。
3．FOPTRAN源程序的书写格式有严格的规定。
⑴一行中第一列为“C”或“*”时，该行被认为是注释行。
注释行可以写在四个区中的一个区，且注释行可以出现在程序单位的任何位置。
但注释行不能有续行，需要时可以将连续若干行都定义为注释行。
⑵FORTRAN语句部分不能占用标号区及续行标志区，只能从第七列开始。
当语句太长时，可以使用续行。
在继续行的标号区内必须为空白（即继续行不允许有标号），标号只能出现在起始行上。
⑶起始行与继续行或各继续行之间的空格不起作用，因此，对于一般的语句，可以不必到72列才转为继续行，继续行也不必一定要从第7列接着写，但是，包括在引号内的字符串中的空格是有效的，因此，对于字符串要使用继续行时应特别注意，最好写到一行的72列时再转为继续行，且要从继续行的第7列接着写。
Fortran程序设计(第3章-程序的算法)
22
第3章 程序的灵魂－算法
【例3.13】将例3.3判定闰年的算法用N-S图表示。
23
第3章 程序的灵魂－算法
PROGRAM EXAM
INTEGER YEAR
REDA*,YEAR
IF(MOD(YEAR,4).EQ.0)THEN
IF(MOD(YEAR,100).NE.0)THEN
ROGRAM EXAM
REAL R,MAX;
READ*,R
MAX=R
I=1
READ*,R
IF(MAX.LT.R)MAX=R
I=I+1
IF(I＜10)GOTO 10
PRINT*,MAX
END
29
第3章 程序的灵魂－算法
例题3：有3个数a，b，c，要求按大小顺序把他们输出。
9
第3章 程序的灵魂－算法
【例3.4】求1-1/2+1/3-1/4+…+1/99-1/100
算法表示如下：
S1：sign=1
S2：sum=1
S3：deno=2
S4： sign=(-1)*sign
S5 ：term=sign*(1/deno)
S6 ：sum=sum+term
S7 ：deno=deno＋1
31
QUESTION？？？
32
第3章 程序的灵魂－算法
用传统流程图表示求解以下问题的算法
有两个瓶子A和B，分别盛放醋和酱油，要求将他 们互换。 依次将10个数输入，要求将其中最大的数输出 有3个数a，b，c，要求按大小顺序把他们输出 求1＋2＋3＋…＋100 判断一个数n能否同时被3和5整除 将100～200之间的素数输出 求两个数m和n的最大公约数
fortran语言第三章
类型说明语句CHARACTER说明C1，C2和 C3的类型是字符类型，它们的长度分别是5, 5和 12。字符型变量的长度表示它能存放的字符个 数，每个字符用1个字节存放，如图所示。 C1 H e l l o
C2 w o r l d
C3 h e l l o , w o r l d ! 字符型变量存储单元
L1 和 L2 赋 值 ；
用逻辑表达式L1 .AND. L2给L3赋值。
综上：对于赋值语句 注意： (1) 赋值号与数学中的等号意义不同。 例N=N+1 (2) 赋值号左边是变量名，右边是表达式， 左右不允许颠倒。 (3) 不允许多重赋值。 例 X = Y = Z = 0 或 x, y, z = 0 (错误) 必须写成三个赋值语句。
向右任意插入。如FORMAT语句可以插到程序单位
语句和END语句之间任意一行。注释行可放在END
语句之前任一行。粗略地说，FORTRAN语句顺序
规定是：说明语句在前，可执行语句在后。
二、赋值语句
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
前一页 休息 6
输入和输出
非数值型格式说明符： X型格式符： nX n为十进制正整数，空n格 H型格式符： nHh1h2…hn n为十进制正整数，原样输出h1h2 …hn 或‘h1h2…hn’ 原样输出h1h2 …hn 格式符的重复数： n格式说明符 n为十进制正整数，表示格式符的重复数
16
FORTRAN程序设计
第3章 最基本的FORTRAN语句
FORTRAN语句
FORTRAN语句分为可执行语句和不可语句。
可执行语句：计算机在执行的过程中是要执行 的。固定格式书写时，根据具体情况语句标号可以 写也可以不写。
不可执行语句：计算机在执行的过程中是不执 行的。固定格式书写时，语句标号一定不能写或语 句标号一定要写（仅指FORMAT语句）。
例如： write(*,10)i1,i2,a,b,c 10 format(1x,2i8,2x,2f10.3,2x,2Hc=,e12.5)
前一页 休息 7
输入和输出
二：带格式输入语句的一般形式
XXXXX 语句标号 例如： 20 read(设备号，格式语句标号）变量名表 format(格式说明符表） read(*,20)a,b,k format(2f7.4,i5) 3.5 4.15 2 或3.5,4.15,2
前一页
休息
9
输入和输出
四：不带格式输入语句的一般形式
XXXXX read(设备号，*）变量名表
变量名表:由若干个变量名或数组元素等相互间用逗号分
割组成的内容。 作用：将输入数据按照系统设计输入格式一一赋给变量名 表中的每个变量名或数组元素等。
前一页
休息
10
stop、pause语句
一：stop语的一般格式
前一页
休息
4
输入和输出
一：带格式输出语句的一般形式
XXXXX write(设备号，格式语句标号）变量名表
语句标号 format(1x,格式说明符表） 变量名表:由若干个变量名或数组元素等相互间用逗号 分割组成的内容。
格式说明符表：由若干个格式说明符相互间用逗号分
割组成的内容。
前一页 休息 5
输入和输出
例如： 20 write(*,20)m,n format(1x,i10,i10)
数值型格式说明符： Iw（整型输出）w为十进制正整数，表示输出整数的宽度 fw.d (小数点型输出）w,d为十进制正整数，w表示输出
数据的宽度,d表示小数部分占的位数
Ew.d（指数型输出）w,d为十进制正整数，w表示输出数
前一页
休息
2
算术赋值语句
算术赋值语句的一般格式：
xxxxx v=e 其中：v是变量名或数组元素。 e是算术表达式。
作用：将算术表达式e的结果赋给变量v
前一页
休息
3
参数说明语句
参数说明语句的一般格式：
parameter(参数名=常数,……) 作用：将常数赋给参数名。 例如： parameter(pi=3.1415926,k=100,a0=214.0,imax=5) 程序中定义的参数名只能够在表达式中使用， 不能对它赋值。
对该方程组做进一步的转换可得：y=(b-2a)/2 x=(4a-b)/2
前一页
休息
15
应用举例
算法描述： 定义integer变量a,b,x,y 输入鸡和兔的总数a及输入鸡与兔的总脚数b 计算鸡的数量x 计算兔的数量y 输出鸡的数量输出兔的数量 源程序清单： integer a,b,x,y read(*,*)a,b x=(4*a-b)/2 y=(b-2*a)/2; write(*,12)x,y 12 format(1x,’鸡的数量=’,i5,2x,’兔的数量=’,i5) end 前一页 休息
end
前一页 休息
13
课堂练习
编程解决‚鸡兔同笼‛问题‛
在一个笼子里养着鸡与兔，但不知其中鸡有多少只，兔有 多少只。只知道鸡和兔的总数是a，鸡与兔的总脚数是b， 求鸡与兔各有多少只。
前一页
休息
14
课堂练习
思路分析：
首先从题目本身开始，找出解决问题的基本思路。每只鸡 有两只脚，每只兔有四只脚。假设有x只鸡和y只兔，则根 据已知条件可列出如下方程组： x+y=a 2x+4y=b
end
前一页 休息 12
应用举例
编写求5个数中绝对值最大的数的FORTRAN程序。
read(5,10)a,b,c,d,e 10 format(5f8.3) arge=amax1(a,b,c,d,e) write(5,20)arge 20 format(1x,'THE GREATER NUMBER IS',f10.3)
read(*,10)a,b,c
10 format(3f8.3) s=(a+b+c)/2.0 area=sqrt(s*(s-a)*(s-b)*(s-c)) write(*,20)a,b,c,area
20
format(1x,2ha=,f8.3,3x,2hb=,f8.3,3x,2hc=,f8.3,3x5harea=,f8.3)
8
执行以上输入时，输入数据是： 0035000004150002 或
前一页 休息
输入和输出
三：不带格式输出语句的一般形式
XXXXX write(设备号，*）变量名表
变量名表:由若干个变量名或数组元素等相互间用逗号分割组成 的内容。 作用：将变量名表中的每个变量名或数组元素等按照系统设计 输出格式进行输出。
xxxxx stop 或 xxxxx stop 八进制数 终止程序的执行。 二：pause语句的一般格式 xxxxx pause 或 xxxxx pause 八进制数 暂时停止程序的执行。 三： stop语句、 pause语句和END语句的区别
前一页 休息 11
应用举例
编写求三角形的面积的FORTRAN程序。