Fortran语言第六章汇编.pptVIP

见书本137页 * 思考不用if块处理，只用write(mo(1:2),’i2’)im语句，会出现什么问题。 TRIM(string)，返回把string字符串尾端多余空格清除过后的字符串，即消除右端多余空格。 * 举例 do j=1,2 print *, 第,j,次外循环开始 print *, **** do i=1,3 print *, 第,(j-1)*3+i,次内循环 enddo print *, 第,j,次外循环结束 print *, **** enddo end 运行结果 * 循环嵌套执行的过程 计算外层循环次数R1，I赋初值 R10 计算内层循环次数R2，J赋初值 R20 执行内层循环体 J=J＋内层循环步长 R2＝ R2－1 I=I＋外层循环步长 R1＝ R1－1 * 循环嵌套循环的次数： 外层循环的次数为：R1 内层循环的次数为：R2 整个循环的次数为：R R=R1*R2 * 计算循环嵌套循环次数： M=0 DO I=1,3,4 DO J=4,19,4 M=M+1 PRINT *, M ENDDO ENDDO END 运行结果 * 嵌套DO循环的说明 三种DO循环结构必须是完整的嵌套。 循环嵌套时，内、外层不能使用相同的循环变量。 循环转移的问题。 DO循环结构可以与选择结构的嵌套。 * 计算循环嵌套循环次数： M=0 II: DO I=1,3,4 JJ: DO J=4,19,4 M=M+1 if(M=3)EXIT II ENDDO JJ ENDDO II PRINT*,M END 运行结果 4 两种循环形式的比较和关系 （1）带循环变量的DO循环用来处理已确定循环次数的问题。 DO WHILE循环既可以用来处理已知循环次数的循环问题，也可用来处理不确定循环次数的问题。 （2）对事先已确定循环次数的问题，用带循环变量的DO循环比较方便，它能使循环变量自动增值，不需用户写逻辑表达式，只需写出循环变量的初值、终值和步长即可，使用方便。因此带变量的DO循环在气象上使用最为频繁。 （3）由于带循环变量的DO循环只能判断处理一个条件（循环次数R），当需要多个入口条件时，应考虑DO WHILE 循环结构。 （4）各类循环可以相互转换以及互相嵌套。嵌套时，需要完整嵌套。 离散化均匀经纬度网格 程序举例1 沿着某一经度剪开球体 程序举例1 程序举例1 1,请求出1×1度均匀经纬度网格上，不同纬度上位置相邻格点的实际球面距离。 程序举例1 部分运行结果 程序举例1 那么同一经线上，相邻格点的实际球面距离是多少？ 程序举例2 假设降水资料的存放路径按照右图有规律地存放， 请利用循环，将1979年1月-1990年12月的资料路径，依次输出至屏幕上。 程序难点 如何将年文件夹名称表示出来？ 如何将长度有变化的月文件夹名称表示出来？ 如何将年、月两个文件夹名称合并至整个文件路径中？ 程序举例2 程序 程序举例2 运行结果 程序举例2 不用if块处理，只用write(mo(1:2),’i2’)im语句，所得运行结果 思考题：如果文件路径变为右图形式呢？ 编程经验 合理估算你的程序运行时间， 循环的条件往往是程序易错之处！ 例如,如果设计的循环程序要求计算量较大，但是运行过快，需要检查循环是否执行，多重嵌套时需要确保每层循环都按照设计思路进行运行。 do j=1,10 do i=j,0 print *, i enddo enddo end 程序运行中。。 i=0 Do while(i=0) i=i+1 Enddo end 提示：死循环时，可用Ctrl+c终止你的程序 但是运行过长时，需要检查是否死循环。 注：2中要先将e1，e2,e3转换为整型 * 重点： 循环的次数：R = MAX ( INT ( ( E2 - E1 + E3 ) / E3 )，0 ) * * * 3.3.2 DO-WHILE结构的执行过程 计算逻辑表达式的值； 当逻辑表达式的值为“真”时，执行循环体，遇到ENDDO语句后返回到1.继续；而当逻辑表达式的值为“假”时，退出循环结构。 * * 执行过程: 先计算E1、E2、E3的值，然后转换为与循环控制变量相同的类型； 给循环控制变量赋初值 I = E1； 计算循环次数，计算公式为： R = MAX ( INT ( ( E2 - E1 + E3 ) / E3 )，0 ) 检查循环次数，当R ? 0时，执行循环体，继续做第(3)步；当 R≤0时，转向(7)； 当执行到循环终端语句时，循环变量按步长增值，即：循环变量 = 循环变量 + E3； 循环次数减1：R = R –