最新fortran循环结构及基本语句..教学讲义PPT课件.ppt

《最新fortran循环结构及基本语句..教学讲义PPT课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、fortran循环结构及基本语句..5.1循环结构概述对于问题规模较大的重复问题适宜采用循环结构。如：从键盘输入50个数，求50个数之和，并输出。求解算法：求解程序：(1)初始化：0.0sum。(2)1I。(3)如果I>50,则执行步骤(7)。(4)输入一个数x,并累加到sum中。(5)I+1I。(6)转步骤(3)。(7)输出结果sum。(8)结束。对于上述算法和程序，不管程序规模多大，长度不变。Programex1sum=0.0DOI=1,50,1READ(*,*)xsum=sum+xENDDOWRITE(*,*)'sum=',s

2、umEND循环结构分为两类：循环体的循环次数事先确定(如[例5.1]中循环结构),这类循环结构称为确定性循环,或称“计数型”循环,使用计数型循环语句(如DO循环语句)实现这类循环结构。循环次数为：MAX((终值-初值)/步长+1,0)。循环体的循环次数事先不确定(如[例5.2]中循环结构),这类循环结构称为非确定性循环,或称“条件型”循环,使用条件型循环语句(如DOWHILE循环语句)实现这类循环结构。条件型循环又分“当型”循环和“直到型”循环。初值循环变量vv≤终值v+步长v假真计数型判定条件判定条件循环体假真循环体假真当型直到

3、型DO循环语句执行过程说明：下面DO循环语句的循环次数为5：M=1;N=5;L=1DOI=M,N+5,L+1!输出1、3、5、7、9write(*,*)I,M,N,LM=M+1;N=N*I;L=2*L+IENDDO程序运行后,输出结果为：11513253531597475239552553计算表达式e1，e2，e3e1v计算循环次数r:MAX(INT((e2-e1)/e3+1)，0)rr0执行循环体v+e3vr-1rDO循环语句下面一条语句真假5.3使用DOWHILE循环语句实现循环→[<名字>:]DOWHILE

4、(<循环条件>)<语句1><语句2>……<语句n>ENDDO[<名字>]说明：①循环条件可以是关系表达式，也可以是逻辑表达式，但不能是算术表达式或字符表达式。②使用DOWHILE语句时要特别注意死循环的产生，要保证循环体中至少有一条对循环控制条件有影响的语句，否则将产生死循环。循环体DOWHILE循环语句在每次循环体执行前都要计算表示循环控制条件的逻辑表达式,其计算结果决定循环体是否继续执行,循环体的执行过程必须对循环控制条件产生影响。计算表示循环控制条件的逻辑表达式结果赋予loglog=.TRUE.循环语句下面一条语句真假执行循环体PR

5、OGRAMcycle2sum=0READ(*,*)xDOWHILE(0<=x.AND.x<=100)sum=sum+xREAD(*,*)xENDDOWrite(*,*)'sum=',sumEND5.4使用IF和GOTO语句实现循环用IF语句实现选择结构,用GOTO语句实现无条件控制转移,两者结合可实现循环结构,特别是“直到型”循环结构。IF语句给出循环条件,GOTO语句控制循环转移。由于GOTO语句易造成程序错误,故现代程序设计方法不提倡使用此法实现循环。ProgramINTEGERM,N,R1,R2,R3,gcd,lcmread(*,*

6、)'输入两个自然数：'read(*,*)M,NR1=M;R2=N100R3=MOD(R1,R2)!求R1除以R2的余数R1=R2;R2=R3IF(R2/=0)GOTO100！或IF(R2==0)THEN！ELSE！GOTO100！ENDIFgcd=R1;lcm=M*N/gcdWRITE(*,"(1X,I3,'和',I3,'的最大公约数为：',I3)")M,N,gcdWRITE(*,"(1X,I3,'和',I3,'的最小公倍数为：',I3)")M,N,lcmEND5.5强制性终止循环(EXIT、CYCLE)一般情况下,循环过程都是正常结束。

7、有些特殊问题,在循环处理过程中遇到特殊情况需要提前终止本次循环或整个循环,以免循环陷入死循环,造成严重后果。终止循环过程有两条语句：EXIT、CYCLE。EXIT功能：在循环体执行过程中强制性终止整个循环语句的执行,转循环语句后的第一条语句执行。只能在DO和DOWHILE循环语句内使用EXIT语句。!示例程序一：输出奇数1,3,5,7,9DOI=1，100，2IF(I>=9)EXITENDDOEND!示例程序二：输出奇数1,3,5,7,9I=1DOWHILE(I<=100)write(*,*)IIF(I>=9)EXITI=I+2ENDDO

8、END!示例程序三：输出奇数1,3,5,7,9I=1DOwrite(*,*)IIF(I>=9)EXITI=I+2ENDDOENDCYCLE功能：在循环体执行过程中强制性终止本次循环的执行,转循