fortran循环结构及坏涅本语句.pptVIP

第五讲 循环结构及基本语句;5.1 循环结构概述;循环结构分为两类： 循环体的循环次数事先确定(如[例5.1]中循环结构),这类循环结构称为确定性循环,或称“计数型”循环,使用计数型循环语句(如DO循环语句)实现这类循环结构。循环次数为：MAX(?(终值-初值)/步长+1?,0)。 循环体的循环次数事先不确定(如[例5.2]中循环结构),这类循环结构称为非确定性循环,或称“条件型”循环,使用条件型循环语句(如DO WHILE循环语句)实现这类循环结构。条件型循环又分“当型”循环和“直到型”循环。;[例5.1] 求S=1+2+3+…+N的值(N由键盘输入,N2)。编写程序。 解：求解这一问题,将执行N-1次加法运算。 如果将等式写成S=0+1+2+…+N,则执行N次加法运算。 重复问题易采用循环结构实现。 用S保存和,用N保存最大求和值,用I作计数器。编写程序如下： Program ex2 INTEGER S,N,I READ(*,*)N S=0 DO I=1,N,1 S=S+I EDNDO WRITE(*，*) S=,S END;[例5.2] 读入某班级考试成绩(人数不定),计算其平均成绩,并输出。 解：由于学生人数不定,所以输入的学生成绩个数不确定,以输入-1作为结束标志(因为成绩不可能为负数),从而动态确定学生人数n。 平均成绩计算公式是：av=(x1+x2+…+xn)/n Program ex3 INTEGER sum,n,x REAL av sum=0 n=0 READ(*,*)x DO WHILE (x/=-1) n=n+1 sum=sum+x READ(*,*)x ENDDO av=sum/n WRITE(*，*) 平均成绩为：,av END;5.2 使用DO循环语句实现计数型循环;DO循环语句执行过程说明：下面DO循环语句的循环次数为5： M=1;N=5;L=1 DO I=M,N+5,L+1 !输出1、3、5、7、9 write(*,*)I,M,N,L M=M+1;N=N*I;L=2*L+I ENDDO 程序运行后,输出结果为： 1 1 5 1 3 2 5 3 5 3 15 9 7 4 75 23 9 5 525 53;5.3 使用DO WHILE循环语句实现循环; DO WHILE循环语句在每次循环体执行前都要计算表示循环控制条件的逻辑表达式,其计算结果决定循环体是否继续执行,循环体的执行过程必须对循环控制条件产生影响。;5.4 使用IF和GOTO语句实现循环;5.5 强制性终止循环(EXIT、CYCLE);EXIT功能：在循环体执行过程中强制性终止整个循环语句的执行,转循环语句后的第一条语句执行。只能在DO和DO WHILE循环语句内使用EXIT语句。;CYCLE功能：在循环体执行过程中强制性终止本次循环的执行,转循环开始语句(DO语句)执行。只能在DO和DO WHILE循环语句内使用CYCLE语句。 ;5.6 特殊DO循环语句与EXIT语句;特殊DO循环语句→[名字:] DO 语句1 语句2 …… 语句n ENDDO [名字] 说明： ① 特殊DO循环语句必须与EXIT语句配合使用。 ②使用特殊DO循环语句可使循环变得短小、简洁、清晰。 执行过程： (1)按顺序依次执行循环体语句。 (2)循环执行过程中,若满足循环结束条件,则执行EXIT语句退出循环。 (3)无条件转(1)。 （示例）;5.7 循环嵌套; [例5.8]求 。 解：求解这一问题的算法结构具有“计数型”循环结构与“计数型”循环结构嵌套的二重循环结构。程序中用两个DO循环语句嵌套来实现二重循环结构。;[例5.12]根据下面泰勒级数求x的正弦值。 解：我们已经熟悉FORTRAN 90提供的SIN(x)、COS(x)、EXP(x)等内部函数,我们可直接使用这些内部函数计算正弦、余弦、指数等值。那么这些函数是如何计算的呢？一般都是通过其泰勒级数计算。下面我们不用内部函数,自己编写程序计算正弦值,然后与内部函数计算值进行比较。 遇到这类问题,必须将泰勒