研究生数值分析课件20161123.ppt

§2.2 Fortran语句功能分析 五、其它语句（END，STOP（PAUSE)，RETURN） 1. END（结束程序）语句，标志程序的结束。 2. PAUSE（暂停）语句：程序暂停，可以用 ENTER 继 续执行 3. STOP（注释）语句：中止程序运行。 4. RETURN（返回）语句：子程序运行结束，返回到主 程序? 六、无条件转向语句（GOTO）的一般形式与执行过程 一般形式： 行号1 GOTO 行号2 例 40 GOTO 20 执行过程：无条件地转到GOTO后的那个行号处继续执行 §2.2 Fortran语句功能分析 八、条件语句的多种形式(IF THEN ENDIF) 1.行号 IF 条件 THEN 行号 例 50 IF (（X+Y).GT.0) THEN 90 2. 行号 IF 条件 THEN 语句 GOTO 行号 例 60 IF ((X+Y).EQ.0) THEN PRINT ″X+Y=0″：GOTO 10 3. 行号 IF 条件 THEN 语句1 ELSE 语句2 例 70 IF (X.LT.F) THEN WRITE(*,*) ″XY″ ELSE WRITE(*,*) ″X=Y″ 4. 行号 IF 条件THEN 语句1 ELSE IF 语句2…：语句n 例 90 IF ((B*B-4*A*C.LT.0) THEN WRITE(*,*) ″D0″ ELSEIF((B*B-4*A*C.EQ.0) THEN WRITE(*,*) ″D=0″ §2.2 Fortran语句功能分析 八、循环语句（DO / END语句实现循环） 1. DO 循环的一般形式 行号 DO X(I)=A(1),B(N),C(m) 行号 循 环 体 行号 END DO 2. DO 循环的执行过程 开始时循环控制变量取循环初值A，如果循环控制变量的值未超过循环终值B时执行循环体一次，然后循环控制变量的值自动增加一个步长（NEXT X(I)），再判断循环控制变量的值是否超过循环终值，如果没有超过，则再执行循环体一次，…，直到某一执行循环体后循环控制变量的值超过循环终值时跳了同循环体执行NEXT X的下一个语句。 §2.2 Fortran语句功能分析 3.使用DO循环时应该注意的问题 1）DO语句和END DO语句必须配对使用，近几天来不可； 2）DO 语句中的控制变量和END DO语句中的控制变量必须相同； 3）不要在循环体内改变控制变量的值，特别需要除外 4）终止循环的条件是“控制变量超过终值”而不是大于终值，也不是等于终值； 5）循环体的扫行次数ABS（B-A）/C）+1； 6步长为 1时可以省略 §2.2 Fortran语句功能分析 例 请上机调试下面这两个程序看看能否得到相的同结果。求1！～10！的累加和 5 S=0 10 DO I=1，10 20 P=1 30 DO J=1,I 40 P=P*J 50 END DO 60 S=S+P 70 END DO 80 WRITE(*,*) ″S=″;S 90 END 改进的程序 5????5???? S=0:P=1 10 DO I=1,10 20 P=P*I 30 S=S+P 40 END DO 50 WRITE(*,*) ″S=″;S 60 END §2.2 Fortran语句功能分析 九、自定义函数语句 FUNCTION与变量类型定义语句 1.自定义函数语句的一般形式 行号 FUNCTION FUN（X，Y） 例 10 FUN（X，Y）=3*X*X+2*SQRT（Y） 20 RETURN 2.变量类型定义语句的一般形式 INTEGER, REAL, COMPLEX 例 20 INTEGER A,B 30 REAL A,B 40 COMPLEX A,B 3.自定义函数语句的说明 1） FUNCTION是自定义函数语句中的语句定义符； 3）函数名FUN的取名方法同简单变量的取名方法一样： 4）括号内的虚拟变量（可以多个）必须与“等号右边表达式中的变量同名； 5）自定义函数语句必须在一个语句内写完 6）调用时用实际变量值或常数值代替虚拟变量； 7）先定义后调用，不能第二次定义。 §2.2 Fortran语句功能分析 5 FUNCTION FNF(X) 10 FNF（X）=EXP(X)-2*X*X-1 15 RETURN 18 FUNCTI