文档介绍：:GOTO(语句标号)在一个基本结构内部可以使用GOTO语句。如果在逻辑IF语句中使用GOTO语句就可以实现有条件的循环,循环操作能够在一定条件下结束。在程序中存在两类循环:无条件的循环:无条件循环是无休止地执行一个程序段,有条件的循环:有条件的循环是在满足一定条件时才执行循环。GOTO语句实现无条件的循环:1FORTRAN程序中有条件的循环的3种循环类型:(用循环语句实现)(用DOWHILE语句)(用IF语句)(循环次数已知的循环)当需要执行的循环次数为已知时,用DO语句实现循环比较方便。它的一般形式为:例如:DO10N=1,100,1T=N/*,TDO[[标号][,]]循环变量=初值式E1,终值式E2[,增量式E3]3循环变量的初值、终值和步长可以为正或负。初值、终值可以为零。但步长不应为0,否则循环变量的值永远不会超过终值,从而陷入死循环。说明:循环变量是整型的例:D0I=,,((-+)/)=2,而应当先将实型量转化为整型量,即变成相当的循环语句DOI=1,3,1其循环次数为3次而不是2次。例:对于D0k=-1,-3,-1其循环次数=INT((-3+1-1)/(-1))=3次k按序分别取值为:-1,-2,-3。如果循环变量的类型和初值、终值和步长的类型不一致,则按赋值的规则处理,即需先将初值、终值和步长的类型转化成循环变量的类型,然后进行处理。4循环变量是实型的例:D0X=,,=INT()=501但实际上在许多计算机上它只执行500次循环。,由于循环的误差积累,,因而停止执行循环。改用整型循环变量时,则循环改写为:D0I=0,500;X=I/10。例:D0X=,,((-+)/)=,。由于实型数在运算和存储时有一些误差,因而循环次数的理论值与实际值之间会有一些差别。所以应该避免使用实型的循环变量,用整型循环变量计算出的循环次数是绝对准确的。5DO循环的执行过程为:(1)计算表达式E1,E2,E3的值,并将它们转换成循环变量的类型。(2)循环变量的初值取E1的值。(3)循环次数r=INT(E2-E1+E3)/E3).如:DO10I=2,20,2r=(20-2+2)/2=10r为0的情况:E1>E2,E3>0如:DO10K=10,5,2E1<E2,E3<0如:DO10K=5,10,-2(4)检查循环次数.(5)循环变量增值(6)r-1=>r(7)返回(4)6例:DO20I=1,5,2 N=I*I20 PRINT*,I,N经计算:r=(5-2+2)/2=3,各有关变量的值在各次循环中变化的情况如下表:终止循环的条件:循环变量的值超过终值。7继续语句(CONTINUE语句)它是一个可执行语句,但它不产生任何机器操作。一般把它用做循环的终端语句。注意:循环的终端语句不能是GOTO,块IF,ELSEIF,ENDIF,STOP等语句。它的形式为:CONTINUE8循环终端语句循环终端语句为一般的执行语句。F90规定:循环终端语句可以是除了GOTO、块IF、CASE、CYCLE、DO、ELSE、ELSEIF、ENDIF、END、ENDSELECT、EXIT、SELECTCASE、STOP和RETURN语句以外的任一可执行语句,如打印语句、赋值语句、输入语句、逻辑IF语句等都可以作为终端语句。特殊的循环终端语句是:ENDDO(常用于无语句标号时)CONTINUE(常用于有语句标号时)新编写的程序应该尽量使用以ENDDO结束的块DO构造。,每次落地后反跳回原高度的一半,再落下,求它在第20次着地时,共经过了多少米?90H=100 S=0 DOI=1,20S=S+H H=H/ ENDDO WRITE(*,*)’S=‘,SEND0177H=100 S=0 DO10I=1,20S=S+H H=H/(*,*)’S=‘,SEND10