Microsoft PowerPoint - 习题课2

Size: px

Start display at page:

Download "Microsoft PowerPoint - 习题课2"

宅金
4 years ago
Views:

主要内容 Fortran 课程要点总结 2011/6/1 Fortran 基础知识变量类型与表达式例程和模块控制结构数组派生类型和指针输入输出简单 Fortran 90 程序的构造形式 : [PROGRAM 程序名 ] Fortran 77 & Fortran 90 Fortran 77 Fortran 90 [

1 主要内容 Fortran 课程要点总结 2011/6/1 Fortran 基础知识变量类型与表达式例程和模块控制结构数组派生类型和指针输入输出简单 Fortran 90 程序的构造形式 : [PROGRAM 程序名 ] Fortran 77 & Fortran 90 Fortran 77 Fortran 90 [ 声明语句 ] 变量名长度 6 31 [ 执行语句 ] END [PROGRAM [MONEY]] 书写格式行宽固定格式 7~72 自由格式 0~132 一个程序, 只有 end 不能省, 其他都是可选的所有的声明语句必须在执行语句之前一个项目中只能有一个主程序注释续行标志第一列为 C/c/* 第六列 0 以外的任何字符任意位置! & 1

2 字符集 (character sets) 允许出现在一个语言的程序里的字符的全体 26 个大写字母 :A ~ Z 26 个小写字母 :a ~ z 10 个数字 : 0 ~ 9 下划线 : _ 5 个运算符号 : + - * / (**) 特殊字符 : () =., ; : $! % & < >? & 空格标识符命名给变量常量函数等标识符命名时, 必须以字母开头, 后面可接多达 30 个字母 (A~Z a~z) 数字 (0~9) 或下划线 (_) 只能以字母开头 ; 不能含有空格 ; 不区分字母大小写 ; 长度限定为 31 个字符 (Fortran 77 为 6 个字符 ); 避免与关键字标准例程重名变量名 (Variable name) 有效的变量名 area distance z long_axis_of_elliptic_circle a3b4c5 abstract_3 TimeAndSpace century area,area,area 等等都是一个变量变量名 (Variable name) 无效的变量名 This_is _a_very_long_variable_name 3_day $600 my-help exchange rate U.S.A Ask? UK b/a engry&power wang@163.com fluent 6.3 2

3 语句 (Statement) 语句是 Fortran 程序的基本单位, 一条语句可包含 0~ 132 个字符 ; 除赋值语句外, 所有的语句都从一个关键字开始 ; 一般情况下, 每行一条语句 ; 如果一行有多条语句, 它们之间以分号分隔假如一条语句一行写不完, 允许出现续行, 但要求被续行最后的非空白字符为 & 续行从下一行 ( 非注释行 ) 的第一个非空白字符开始, 如果下一行的非空白字符为 &, 则续行从该字符后的第一个字符开始 Fortran 90 允许出现多达 39 个续行 Example 正确的写法 axis1=1; axis2=2; axis3=3 Area = sqrt(half * (half - axis1) * (half - & axis2) * (half - axis3)) Area = sqrt(half * (half - axis1) * (half- & & axis2) * (half - axis3)) 错误的写法 axis1=1, axis2=2, axis3=3 Area = sqrt(half * (half - axis1) * (half - &axis2) * (half - axis3)) 引号的使用 a= Hello! FOTRAN 90 可以用双引号界定字符串 b= Hello! FOTRAN 77 只能用单引号界定字符串 c= That s right.! 用双引号界定字符串, 可以在字串中任意使用单引号 d= That s right! 用单引号界定字符串时, 输出单引号要连续使用两个单引号 e= That s right.! 用双引号界定字符串时, 输出双引号也要连续用两个双引号声明 Example: implicit integer(a,b,c)! A,B,C 开头的变量都视为整数 implicit integer(a-f,i,k)! A 到 F 及 I,K 开头的变量都视为整数 implicit real(m-p)! M 到 P 开头的变量都视为浮点数 implicit none! 关闭隐含规则, 所有的变量都要事先声明注意 : IMPLICIT 指令要马上接在 PROGRAM 指令的下一行, 不能放在其它位置 3

4 主要内容 Fortran 基础知识变量类型与表达式例程和模块控制结构数组派生类型和指针输入输出及文件操作数据类型固有数据类型数值型 (numerical) 整型 INTEGER 实型 REAL 复数型 COMPLEX 非数值型字符型 CHARACTER 逻辑型 ( 布尔型 ) LOGICAL 自定义数据类型 ( 派生数据类型 ) 变量声明及其初始化声明部分必须出现在执行部分之前, 而不能将声明语句插在执行部分之中 Fortran 90: 数据类型 [[, 属性 ]::] 变量列表 DIMENSION PARAMETER TARGET POINTER ALLOCATABLE INTENT :: 可以省略, 但如果在声明的同时给变量赋初值, 则不能省略找错误 real(8) parameter a integer(4) parameter ::b Complex, parameter c=(1.0,2.0) real(8), parameter a integer(4), parameter ::b Complex, parameter :: c=(1.0,2.0) 4

5 复数型 (COMPLEX) 复数型变量 (r, i) 复数型常量的类型参数, 取实部和虚部的实数种类参数的极大值复数由实部和虚部组成,z=x+yi,x 为实部,y 为虚部,x y 皆为实型变量设定 z = (x, y)! a = x + iy z = (1.5, 2.5)! a = i z = 1.5! a = i Z= (0, 2.5)! a= i 逻辑型 (LOGICAL) 逻辑型变量 LOGICAL L LOGICAL([KIND=]N) L 逻辑型常量.TRUE.( 逻辑真 ).FALSE.( 逻辑假 ) 字符型 (CHARACTER) 字符型变量 CHARACTER [([LEN=]len)] CHARACTER [([LEN=]len [, [KIND=]n])] CHARACTER [(KIND=n [, LEN=len])] 字符串有两个可选参数 : 长度参数种类参数种类参数总是 1, 即一个字符占一个存储字节假如两个可选参数都没给出, 缺省值取 1: character c 若只给出一个参数, 则代表长度参数 :character(20) c 若给出两个参数, 则依次为长度参数和种类参数 ( 种类参数智能为 1):character(20, 1) c 若采取关键字声明形式, 则参数的顺序可以任意 : character(kind=1, LEN=20) c CHARACTER (10) ::STR= HIGH SCORE CHARACTER ::K= T CHARACTER(4) C C= XJTU CHARACTER ::C C= w 5

6 字符型 (CHARACTER) 字符型常量统一以单引号 ( ) 或双引号 ( ) 为界定符 [k_] ch [k_] ch Ch:Fortran 字符集之内或之外的字符, 字符的个数为字符串的长度 Today s date is 用连续的两个界定符表示与其相同的字符界定符必须统一, 要么都是单引号, 要么都是双引号字符串中字符的最大数量 :32767 WHAT S YOUR NAME? WHAT S YOUR NAME? Can I help you? New world record!!! 算术表达式运算符 + - * / ** 优先级增加 () 运算级相同 : 从左至右连续的乘幂运算 : 从右至左计算的结果是把 = 右边的结果传给左边的变量整数之间的除法, 结果也是整数! 如果不能整除, 小数部分无条件舍去! 算术表达式 2**3**2 2A : 2*A arcsinx :ASIN(X) (A+B)(C+D) : (A+B)*(C+D) ( A + B)( C + D) 2( E + F) d + : ((A+B)*(C+D))/(2*(E+F)) = x + y z d=sqrt(x**2+y**2+z**2) 6

7 Example 关系运算符 program convert real a a = 10 / 4 / 0.5!Integer a F90 == /= F77.EQ..NE. 功能 / 意义判断是否等于判断是否不相等 end print *, 'a = ', a > >=.GT..GE. 判断是否大于判断是否大于或等于 <.LT. 判断是否小于 <=.LE. 判断是否小于或等于 A=3! 给 A 赋值为 3 A==3! 判断 A 是否等于 3 if(a=3) n=n+1! 这句话的意思是如果把 A 赋值为 3 是真, 则 n 加 1, 逻辑上讲不通, 所以编译的时候会报错, 正确的写法应该是 if(a==3) n=n+1! 如果 A 等于 3, 则 n 加 1 逻辑运算符两个逻辑运算式间的运算关系.AND..OR..NOT..EQV..NEQV. 交集, 如果两边的式子都成立, 整个条件就成立或集, 两边的式子只要有一个成立, 整个条件就成立逻辑非, 如果后面的式子不成立, 整个式子就算成立两个式子的逻辑运算结果相同时, 整个式子就成立两个式子的逻辑运算结果不同时, 整个式子就成立 7

8 关系表达式关系表达式的结果是一个逻辑量.TRUE. 或者.FALSE., 输出时为 T 或者 F Print*,3.GT.5! 输出为 F 关系表达式允许不同类型的算术表达式比较 Print*, 8.EQ.(5/2+1.5)*2! 输出结果为 F 比较两个实数大小时, 由于机内表示为近似值, 所以不应当做两个数来比较 ABS(A-B).LE.1E-06! 表示 A 和 B 误差的绝对值小于 10-6 时, 认为二者相等 0.0<x<5.0 或 x>=10 X.GT.0.0.AND.X.LT.5.0.OR. X>=10. A+B 0 且 C=A-B A+B/=0.AND. C==(A-B) 计算下面逻辑变量的值 A=16.3; B=12.3; C=10; L=.TRUE. A+B.GT.C.AND.B+C.LT.A.OR.B.GT.C T.AND.F.OR.T F.OR.T T 写出 10 以内的素数的逻辑表达式分析 : 要求的数应该同时满足以下条件, 即为并的关系大于 1 小于 10 除以 2 余数不为 0 除以 3 余数不为 0 N.GT.1.AND.N.LT.10.AND.MOD(N,2).NE.0.A ND.MOD(N,3).NE.0 主要内容 Fortran 基础知识变量类型与表达式例程和模块控制结构数组派生类型和指针输入输出及文件操作 8

9 主程序一个完整的程序有且只有一个主程序注意顺序 [PROGRAM 程序名 ] [ 声明语句 ] [ 执行语句 ] [USE MODULE 模块名 ] [CALL 外部例程 ] [CONTAINS 内部例程 ] END [PROGRAM[ 程序名 ]] 主程序主程序使用时应注意以下几点 : 主程序只有 END 语句是必须的, 其它都是可选的 ; 若含有内部例程, 则必须有 CONTAINS 关键字 ; 可以有多个内部例程, 但不允许内部例程的嵌套 ; 主程序的 END 语句若出现程序名, 其前面的 PROGRAM 关键字不能少改错内部函数 - 构造形式 Program abc(x,y) End program abc Program End program Program xyz End xyz Program abc End program abc Program xy End program Program xyz End (END Program xyz) 内部函数位于主程序的 CONTAINS 关键字和 END 语句之间, 构造形式为 : FUNCTION 函数名 ([ 参数列表 ]) [ 声明语句 ] [ 执行语句 ] END FUNCTION [ 函数名 ] 强制类型声明 IMPLICIT NONE, 作用域为整个程序单元, 无须再重写 9

10 判断正误 Program Contains function f(x)! function! function f real f,x end function! end function f! end function f(x)! End End program 应该这样写 function f(x) 在没有参数的情况下也可以写成 function f() 这两个是对的 end function end function f 语句函数定义语句函数的形式为 : 函数名 ( 参数 1, 参数 2, )= 函数表达式语句函数在使用时应注意 : 语句函数先定义后使用, 且只能用一条语句来定义 ; 定义语句应放在声明部分, 且放在语句函数相关的类型声明之后参数列表可以为空 ( 此时, 函数实际为一常量表达式 ), 但函数名后面的一对括号, 无论在定义还是引用时都不能省略内部子程序 PROGRAM SQUART REAL F,X,Y F(X,Y)=SQRT(X**2+Y **2) REAL RESULT,A,B A=3.0;B=5.0 RESULT=F(A,B) PRINT*, RESULT END 程序中 F(X,Y) 声明了一个语句函数, 是声明语句, 不是执行语句, 所以在其之后还可以声明变量子程序和函数的主要差别 : 没有返回值和子程序名关联, 因此无需声明子程序类型 ; 通过 CALL 语句调用子程序 ; 在例程原型 ( 头 ) 和 END 语句 ( 尾 ) 中, 使用关键字 SUBROUTINE; 若子程序参数表为空, 子程序名后的一对括号可以省略通常函数通过函数名返回一个值, 而子程序通过参数可以返回多个值 10

11 program fly3 implicit none real v0,a,t,s real,parameter :: g=9.8,pi=3.14 print*,' 此程序是使用内部子程序计算斜抛运动的飞行时间 ' print*, 请输入初速度 v0 和仰角 θ ' read*,v0,a call d(a,v0,t,s)! call d(a,v0) PRINT*,' 飞行时间为 ',t print*,' 飞行距离为 ',s contains subroutine d(a,v0,t,s)! subroutine d(a,v0) real s,v0,t,a!real v0, a t=2*v0*sin(a*pi/180)/g s=v0*cos(a*pi/180)*t PRINT*,' 飞行时间为 ',t print*,' 飞行距离为 ',s end subroutine end program fly3! 把 t,s 放在变量列表里, 其值就可以在主程序和子程序中间传递, 主程序可以输出结果! 对内部子程序, 主程序中的变量可以直接调用, 不需要再声明, 如果声明则会认为是新的变量! 外部子程序中用到的变量都要重新声明外部例程通用的例程一般作为外部例程来实现, 以便被多个调用程序调用通常, 外部例程位于单独的文件中, 除了头尾部分外, 外部例程和主程序在形式上是相同的外部例程和内部例程的主要差别 : 外部例程可以含有内部例程, 而内部例程不能再含有内部例程 ; END 语句中的关键字 FUNCTION/SUBROUTINE, 在外部例程中是可选的, 但在内部例程中是必须的参数传递 SUBROUTINE SUB(X,Y,Z) REAL,INTENT(IN) ::X REAL,INTENT(OUT) ::Y REAL,INTENT(INOUT) ::Z END SUBROUTINE SUB 其中 INTENT(IN) 表示向例程传入数据, 拥有该属性的虚参不允许改变 INTENT(OUT) 表示传出数据, 对应的实参必须是一变量 INTENT(INOUT) 表示传进 / 传出数据, 对应的实参也必须是一变量 PROGRAM MAIN IMPLICIT NONE REAL::X X=3.5 CALL SUB(4.0,X,X) PRINT*, X END SUBROUTINE SUB(X,Y,Z) IMPLICIT NONE REAL X, Y, Z Y=Y+X Z=Y+Z END SUBROUTINE SUB 程序运行结果是 : ( ) A) B) C) D)

12 主要内容 Fortran 基础知识变量类型与表达式例程和模块控制结构数组派生类型和指针输入输出及文件操作 IF 语句和块 IF 结构混淆使用 : IF 语句构造形式为 : IF(condition) statement IF 语句只能写在一行上 IF 块的构造形式 : IF(logical-expr1) THEN block1 ELSE IF(logical-expr2) THEN block2 ELSE IF(logical-expr3) THEN blocke END IF 选择结构中几种典型的错误 (1) if(x>0) then print*, 正数 else if(x<0 ) then print*, 负数 end if 选择结构中几种典型的错误 (2) if(x>0) then print*, 正数 else if(x<0 ) then print*, 负数 else print*, zero end if 12

13 选择结构中几种典型的错误 (3) if(x>0) print*, 正数 else if(x<0 )print*, 负数 end if(x>0) then print*, 正数 else print*, 负数 end if 确定性 DO 循环确定性 DO 循环的构造形式 : [name:]do 变量 = 表达式 1, 表达式 2[, 表达式 3] 语句块 END DO[name] 循环次数的确定 : 表达式 2- 表达式 1+ 表达式 3 MAX,0 表达式 3 系统在进行确定性循环时, 先按上述公式计算循环次数如果循环变量的步长为 0, 就会发生除 0 的错误假如将 DO 循环简记为 : DO I=A, B, C 根据具体情况,DO 循环可分为以下 4 种 : 1)C>0, A<B 执行循环体, 循环变量从 A 开始, 第二次循环以后, 每次增加一个步长 C, 直到循环变量的终值超过 B 2)C>0, A>B 不执行循环体 3)C<0, A>B 执行循环体, 循环变量从 A 开始, 第二次循环以后, 每次减小一个步长的绝对值, 直到循环变量的终值小于 B 4)C<0, A<B 不执行循环体如果在循环结构执行后要引用循环变量, 请注意此时循环变量的值 : 第 (1) 种情况,I>B; 第 (3) 种情况,I<B DO N=1,10,4! 程序运行时,N 的值依次为 1,5,9, 到 N=13 时跳出循环 DO I=10,-10,-2! 到 n=-12 时跳出 DO I=3,8,-2! 因为不满足条件, 所以程序不会执行, 最终 I 的值仍然为 3 多重循环的循环次数? 13

14 Example4.2: 4.2.F90 几种非确定性 DO 循环 DO I=2,7,2 WRITE(*,'(I3)',ADVANCE='NO')I END DO! 输出 :2 4 6 I =? DO I=5,4 WRITE(*,'(I3)',ADVANCE='NO')I END DO! 不执行循环 I =? DO I=5,1,-1 WRITE(*,'(I3)',ADVANCE='NO')I END DO! 输出 : I =? DO I=1,6,-2 WRITE(*,'(I3)',ADVANCE='NO')I END DO! 不执行循环 I =? 第一种 : DO IF (logical-expression) EXIT block END DO 第二种 : DO block IF(logical-expression )EXIT END DO 第三种 : DO WHILE(logical-expression) block END DO Fortran90 中的 EXIT 命令, 用于跳出 DO 循环原则上,EXIT 可以放在 DO 循环的任何位置, 但为使代码更具可读性, 通常将 EXIT 放在 DO 循环头部, 或放在 DO 循环末尾 Do if(n==0) exit n=n-1 End do Do while (n.eq.0) n=n-1 End do 主要内容 Fortran 基础知识变量类型与表达式例程和模块控制结构数组派生类型和指针输入输出及文件操作 14

15 数组声明 Fortran90 数组声明的一般形式为 TYPE,DIMENSION([dl:]du[,[dl:]du] ) ::Arr TYPE [::]Arr([dl:]du[,[dl:]du] ) TYPE 代表数据类型,dl 和 du 分别为维的上界和下界,Arr 为数组名 ( 数组变量 ) 数组声明实例 : REAL,DIMENSION(15) ::X! 下界缺省为 1 REAL,DIMENSION(1:5,1:3) ::Y REAL,DIMENSION(-4:0,1:3) ::Z 维数上下界大小形状数组的存储规则所有元素都是存储在内存的同一个连续区块当中, 多维数组为列主存储 column major real A(5),B(0:4),C(3,3) A(1) A(2) A(3) A(4) A(5) B(0) B(1) B(2) B(3) B(4) C(1,1) C(2,1) C(3,1) C(1,2) C(2,2) C(3,2) C(1,3) C(2,3) C(3,3) 数组赋初值使用 DATA 的一般形式为 : INTEGER A(5) DATA A /1,2,3,4,5/!A(1),A(2),A(3),A(4),A(5) 的值分别为 1,2, 3,4,5 DATA 的数据区中, 还可以使用乘号 * 来表示数据的重复 ( 重复次数写在前面 ) DATA A /5*3/! A(1), A(2), A(3), A(4), A(5) 的值均为 3 数组的存储规则 ( 两个错误 ) Real c(3,3) Integer I, j Data c (1,2,3,4,5,6,7,8,9) Do i=1,3 Do j=1,3 Print (*,*) c(i, j) End do End do end 15

16 使用隐式循环给数组赋初值隐式循环可以用来设置数组的初值 DATA (A(I),I=2,4) /2,3,4/!A(2),A(3),A(4) 的值分别为 2,3,4 隐式循环可以认为是 DO 循环的简略形式在隐式循环中同样可设置循环变量的增量 ( 步长 ) DATA (A(I),I=1,5,2) /1,3,5/!A(1),A(3),A(5) 的值分别为 1,3,5 隐式循环也可以嵌套 INTEGER B(2,2),I,J DATA ((B(I, J), I=1, 2), J=1, 2)) /1,2,3,4/ PRINT*,((A(M, N), M=1, 3), N=1, 3) 数组整体操作 Fortran90 中可以对数组进行整体操作, 大大简化了其它语言需要使用循环才能完成的操作下面是几个 A=5 其中,A 是任意维数及大小的数组该语句将数组 A 所有元素的值设为 5 A=(/1,2,3/) 其中,A(1)=1,A(2)=2,A(3)=3 所提供的数据个数必须跟数组 A 的大小一样 A=B 其中,A 和 B 是形状完全相同的数组该语句将数组 A 相应位置的元素的值设置成同数组 B 其它的几个 : A=B+C A=B-C A=B*C! 非矩阵相乘 A=B/C 其中,A,B,C 是三个完全相同的数组上述语句分别将数组 B 和 C 相应位置的值相加相减相乘和相除, 得到的结果赋给数组 A 对应元素 A=sin(B) 将数组 A 的每一个元素赋为数组 B 相应元素的 sin 值, 数组 B 须是实数型 A=B>C A B 和 C 是三个形状完全相同的数组不过, A 为逻辑型数组,B 和 C 为同类型的数值型数组对一维数组, 其等价于 : DO I=1,N IF(B(I)>C(I)) THEN A(I)=.TRUE. ELSE A(I)=.FALSE. END IF END DO 16

17 数组段操作数组段的下标三元组形式为 : [<bound1>]:[<bound2>][:<stride>] 数组段起始于下标 bound1, 终止于 bound2, 步长为 stride A(:)! 整个数组 A(3:9)!A(3)-A(9), 步长为 1 A(9:3:-1)!A(3)-A(9), 步长为 -1 A(m:n)!A(m)-A(n), 步长为 1 A(m:n:k)!A(m)-A(n), 步长为 k A(m:)!A(m)-A( 上界 ), 步长为 1 A(:n)!A( 下界 )-A(n), 步长为 1 A(::2)!A( 下界 )-A( 上界 ), 步长为 2 A(m:m)!1 个元素的数组段数组段的操作语法类似于隐式循环 A(3:5)=5 将 A(3) A(4) A(5) 的值设置为 5, 其它值不变 A(3:)=5 A(3) 之后所有元素的值设置为 5, 其它值不变 A(1:5:2)=/3,4,5/ 将 A(1) A(3) A(5) 的值设置为 3,4,5, 其他的值不变 A(1:10)=A(10:1:-1) 将 A(1:10) 翻转过来即将 A(1) 设为原来的 A(10),A(2) 设为原来的 A(9), 依此类推 A(:)=B(:,2) 其中, 假设 A 和 B 分别声明为 INTEGER A(5) INTEGER B(5,2), 这里将二维数组 B 第二列的 5 个元素赋值给一维数组 A 的 5 个元素动态数组的使用动态数组的使用一般要经历三个步骤 : 声明动态数组规定数组的维数, 但不给出维上的大小和上下界 ( 称为延迟形状数组 ) 如 : REAL,DIMENSION(:),ALLOCATABLE::X 注意这个是声明语句给动态数组分配内存如 : ALLOCATE(X(N)) 将分配的内存释放掉如 : DEALLOCATE(X) 判断对错 Real,allocatable ::Mark(:) Read*,n Allocate(Mark(n))!Allocate(Mark)!Allocate(n)!Allocatable(Mark(n)) Deallocate(Mark)!Deallocate(n)!Deallocate(Mark(n)) 17

18 主要内容 Fortran 基础知识变量类型与表达式例程和模块控制结构数组派生类型和指针输入输出及文件操作 Pointer 指针是一种间接使用数据的方法指针变量用来保存一个内存地址当程序要读写指针时, 实际上会经过两个步骤 : 取出指针中所保存的内存位置 ; 到这个内存位置读写数据指针变量中所保存的内存地址来源可以有两种 : 记录其它非指针变量的内存位置 ; 程序执行中动态配置一块内存使用指针指针记录其它非指针变量的内存位置将指针指向已声明的内存地址, 则可以利用指针间接地使用内存地址程序说明 integer, pointer :: p 声明 p 为一个指针, 其所指向的内存的数据类型为整形 integer, target :: a 声明 a 为一个可以当成目标的变量 p => a 将指针 p 指向变量 a 派生类型成员的引用派生类型成员可以和同类型的变量一样使用, 引用派生类型成员时, 须使用成员操作符 % Student1%Birthdate = Class%Gender =.TRUE. 同一派生类型的两个变量可以相互赋值 : Student2 = student1 18

19 主要内容 Fortran 基础知识变量类型与表达式例程和模块控制结构数组派生类型和指针输入输出及文件操作编辑符 I 使用 I 编辑符, 一般形式 Iw w 规定了输出的宽度, 包括前导的负号所占据的一列 Iw.m 保证有 m 位数字被输出, 不包括负号若不够 m 位, 前面填 0 二进制 Bw 八进制 Ow 十六进制 Zw 同样可以规定最小的位数 m 编辑符 F F 编辑符 (Fixed point):fw.d w: 总的输出宽度, 包括符号和小数点 d: 小数点以后的位数 f8.2 输入时, 若字符串包含小数点, 则 d 被忽略 f 仍然是输入时, 若字符串不包含小数点, 则最右边的 d 位为小数部分 F 被读做写出下面程序运行的结果 a= b= c= PRINT 10,A,B,C 10 FORMAT(1X,'A=',F6.3,2X,'B=',F5.2,2X,'C=',F7.3) 20 FORMAT(1X,'A=',F6.2,2X,'B=',F6.2,2X,'C=',F8.5) 30 FORMAT(1X,'A=',F8.3,2X,'B=',F6.3,2X,'C=',F8.4) END A=****** B=35.37 C= A= B= C=******** A= B= C=

20 编辑符 E E 编辑符 Ew.d Ew.dEe w: 总的输出宽度, 包括符号, 小数点和指数部分 d: 小数点以后的位数基数的绝对值小于 1 E E+23 -> E+24 e: 限定指数部分的位数, 不足部分填充 0 E11.4E E+23 -> E+024 题型填空 (2*10=20) 判断正误 (2*5=10) 选择 (2*10=20) 读程序, 回答问题 (10*2=20) 程序改错 (10*1=10) 编程序 (20*1=20) 祝大家取得好成绩! 20

Microsoft PowerPoint - 03.Fortran程序设计基础1

Microsoft PowerPoint - 03.Fortran程序设计基础1 简单 Fortran 90 程序的构造形式 : 第二讲 Fortran 程序设计基础 (2) [PROGRAM 程序名 ] [ 声明语句 ] [ 执行语句 ] END [PROGRAM [ 程序名 ]] 程序的书写 (P5) PROGRAM MONEY!calculate balance after interest compounded! 根据利息计算余额 REAL BALANCE, INTEREST,