第3章最基本的FORTRAN语句

1、1 第第3 3章章 最基本的最基本的FORTRANFORTRAN语句语句 FORTRANFORTRAN程序设计程序设计 前一页 休息 2 FORTRAN语句语句 FORTRANFORTRAN语句分为可执行语句和不可语句。语句分为可执行语句和不可语句。 可执行语句：计算机在执行的过程中是要执行可执行语句：计算机在执行的过程中是要执行 的。标准格式书写时，根据具体情况语句标号可以的。标准格式书写时，根据具体情况语句标号可以 写也可以不写。写也可以不写。 不可执行语句：计算机在执行的过程中是不执不可执行语句：计算机在执行的过程中是不执 行的。标准格式书写时，语句标号一定不能写或语行的。标准格式书写时

2、，语句标号一定不能写或语 句标号一定要写（仅指句标号一定要写（仅指FORMAT语句）。语句）。 前一页 休息 3 算术赋值语句算术赋值语句 算术赋值语句的一般格式：算术赋值语句的一般格式： xxxxx xxxxx v=ev=e 其中：其中：v v是变量名或数组元素。是变量名或数组元素。 e e是是算术算术表达式。表达式。 作用：将算术作用：将算术表达式表达式e e的结果赋给变量的结果赋给变量v v 前一页 休息 4 参数说明语句的一般格式：参数说明语句的一般格式： p parameter(arameter(参数名参数名= =常数常数,),) 作用：将作用：将常数常数赋赋给给参数名参数名。 例如

3、：例如： parameter(pi=3.1415926,k=100,a0=214.0,imax=5)parameter(pi=3.1415926,k=100,a0=214.0,imax=5) 程序中定义的程序中定义的参数名参数名只只能够在表达式中使用，能够在表达式中使用， 不能对它赋值。不能对它赋值。 参数说明语句参数说明语句 前一页 休息 5 输入和输出输入和输出 一：带格式输出语句的一般形式一：带格式输出语句的一般形式 XXXXX XXXXX write(write(设备号，格式语句标号）变量名表设备号，格式语句标号）变量名表 语句标号语句标号 format(1x, format(1x,格

4、式说明符表）格式说明符表） 变量名表变量名表: :由若干个变量名或数组元素相互间用逗号分由若干个变量名或数组元素相互间用逗号分 割组成的内容。割组成的内容。 格式说明符表：由若干个格式说明符相互间用逗号分格式说明符表：由若干个格式说明符相互间用逗号分 割组成的内容。割组成的内容。 前一页 休息 6 例如：例如： write(10,20)m,n write(10,20)m,n 20 format(1x,i10,i10) 20 format(1x,i10,i10) 数值型格式说明符：数值型格式说明符： Iw Iw（整型输出）（整型输出）w w为十进制正整数，表示输出整数的宽度为十进制正整数，表示输

5、出整数的宽度 fw.d ( fw.d (小数小数点点型输出）型输出）w,dw,d为十进制正整数，为十进制正整数，w w表示输出表示输出 数据数据的宽度的宽度,d,d表示小数部分表示小数部分占占的位数的位数 Ew.dEw.d（指数型输出）（指数型输出）w,dw,d为十进制正整数，为十进制正整数，w w表示输出表示输出数数 据据宽度宽度,d,d表示指数型小数部分的位数表示指数型小数部分的位数 输入和输出输入和输出 前一页 休息 7 输入和输出输入和输出 非非数值型格式说明符：数值型格式说明符： X X型格式符：型格式符： nX nX n n为十进制正整数，空为十进制正整数，空n n格格 H H型格

6、式符：型格式符： nHhnHh1 1h h2 2hhn n n n为十进制正整数，原样输出为十进制正整数，原样输出h h1 1h h2 2 hhn n 或 或h h1 1h h2 2hhn n 原样输出原样输出h h1 1h h2 2 h hn n 格式符的重复数：格式符的重复数： n n格式符格式符 n n为十进制正整数，表示格式符的重复数为十进制正整数，表示格式符的重复数 例如：例如： write(5,10)i1,i2,a,b,cwrite(5,10)i1,i2,a,b,c 10 format(1x,2i8,2x,2f10.3,2x,2Hc=,e12.5) 10 format(1x,2i8

7、,2x,2f10.3,2x,2Hc=,e12.5) 前一页 休息 8 输入和输出输入和输出 二：带格式输入语句的一般形式二：带格式输入语句的一般形式 XXXXX XXXXX read(read(设备号，格式语句标号）变量名表设备号，格式语句标号）变量名表 语句标号语句标号 format(format(格式说明符表）格式说明符表） 例如：例如： read(5,20)a,b,k 20 format(2f7.4,i5) 执行以上输入时，输入数据是：执行以上输入时，输入数据是： 35000 41500 2 或或 3.5 4.15 2 或或3.5,4.15,2 前一页 休息 9 stop、pause语句

8、语句 一：一：stop语句的一般格式语句的一般格式 xxxxx stop 或或 xxxxx stop 八进制数八进制数 终止程序的执行。终止程序的执行。 二：二：pause语句的一般格式语句的一般格式 xxxxx pause 或或 xxxxx pause 八进制数八进制数 暂时停止程序的执行。暂时停止程序的执行。 三：三： stop语句、语句、 pause语句和语句和END行的区别行的区别 前一页 休息 10 应用举例应用举例 编写求三角形的面积的编写求三角形的面积的FORTRAN程序。程序。 read(5,10)a,b,c format(3f8.3) s=(a+b+c)/2.0 area=s

9、qrt(s*(s-a)*(s-b)*(s-c) write(5,20)a,b,c,area format(1x,2ha=,f8.3,3x,2hb=,f8.3,3x,2hc=,f8.3,3x5harea=,f8.3) 10 end 前一页 休息 11 应用举例应用举例 编写求编写求5个数中绝对值最大的数个数中绝对值最大的数的的FORTRAN程序。程序。 read(5,10)a,b,c,d,e format(5f8.3) arge=max(a,b,c,d,e) write(5,20)arge 20 format(THE GREATER NUMBER IS,f10.3) end 前一页 休息 12

10、应用举例应用举例 “鸡兔同笼问题鸡兔同笼问题” 在一个笼子里养着鸡与兔，但不知其中鸡有多少只，兔有多在一个笼子里养着鸡与兔，但不知其中鸡有多少只，兔有多 少只。只知道鸡和兔的总数是少只。只知道鸡和兔的总数是a a，鸡与兔的总脚数是，鸡与兔的总脚数是b b，求，求 鸡与兔各有多少只。鸡与兔各有多少只。 思路分析：思路分析： 首先从题目本身开始，找出解决问题的基本思路。每只鸡首先从题目本身开始，找出解决问题的基本思路。每只鸡 有两只脚，每只兔有四只脚。假设有有两只脚，每只兔有四只脚。假设有x x只鸡和只鸡和y y只兔，则根只兔，则根 据已知条件可列出如下方程组：据已知条件可列出如下方程组： x+y

11、=ax+y=a 2x+4y=b 2x+4y=b 对该方程组做进一步的转换可得：对该方程组做进一步的转换可得：y=(b-2a)/2y=(b-2a)/2 x=(4a-b)/2 x=(4a-b)/2 前一页 休息 13 应用举例应用举例 算法描述：算法描述： 定义定义integerinteger变量变量a,b,x,y a,b,x,y 输入鸡和兔的总数输入鸡和兔的总数a a及输入鸡与兔的总脚数及输入鸡与兔的总脚数b b 计算鸡的数量计算鸡的数量x x 计算兔的数量计算兔的数量y y 输出鸡的数量输出兔的数量输出鸡的数量输出兔的数量 源程序清单：源程序清单： integer a,b,x,y integer a,b,x,y read( read(* *, ,* *)a,b)a,b x=(4