Fortran讲义 第三章.ppt

第三章改变程序流程,基本的程序结构,顺序结构,基本的程序结构,选择结构,基本的程序结构,循环结构,当型循环结构,直到型循环结构,基本的程序结构,goto语句(不提倡使用)例：100print*,请输入一个实数read*,aprint*,a=,agoto100,关系表达式,逻辑表达式,运算优先级,选择结构,块if,:if()thenelseendif,选择结构,:if()thenelseif()thenelseif()thenelseendif,if（）,if()thenif(逻辑表达式)thenelseif()thenelseendifif()endif,选择结构,Lab1:,Lab2:,Lab2,Lab1,if语句的嵌套使用,Lab2,Lab2,exam_3_1,选择结构,selectcase（Fortran90新增）,:selectcase()case()casedefaultendselect,不能出现浮点数,Elcal.for、STIFFNESS.F90,选择结构,if(x.le.0.0)theny=0.0elsey=1.0endifprint*,y=,y,y=1.0if(x.le.0.0)y=0.0print*,y=,y,选择结构,算术if（Fortran90废除）,if(x-0.0)10,10,2010y=0.0goto3020y=1.030print*,y=,y,选择结构,计算goto（Fortran95废除）,goto(10,20)(x.le.0.0)+210y=0.0goto3020y=1.030print*,y=,y,back3.for,选择结构,赋值goto（Fortran90废除，Fortran95取消）,assign10toagotoa,(10,20)10y=0.0goto3020y=1.030print*,y=,y,当型循环结构,直到型循环结构,循环结构,循环结构,计数型循环（当型）,:do=,enddo,循环次数=max(int(循环终值-循环初值)/步长+1,0),循环变量一般应为整型（可以用实型，但不提倡）,循环结构,i：循环变量e1：初值e2：终值inc：步长r：循环次数,exam_3_2,不允许改变循环变量i,循环结构,允许改变表达式e1，e2，inc中变量的值，并且不影响循环次数,退出循环后循环变量的值有意义,循环结构,do循环的嵌套,doi=e1,e2,incdoj=e1,e2,incenddoenddo,循环结构,do10,i=e1,e2,inc10continue,FORTRAN77中的do循环,do10,i=e1,e2,inc10,循环终端语句可以是除了GOTO、块IF、CASE、CYCLE、DO、ELSE、ELSEIF、ENDIF、END、ENDSELECT、EXIT、SELECTCASE、STOP和RETURN语句以外的任一可执行语句,循环结构,do10,i=e1,e2,incdo20,j=e1,e2,inc20continue10continue,do10,i=e1,e2,incdo10,j=e1,e2,inc10continue,Stiff.for,循环结构,条件型循环,:dowhile()enddo,当型,doif()exitenddo,if()goto10,直到型,异常的程序流程,在选择和循环结构中不允许从结构外跳转到结构内,goto10if()then10endif,goto10doi=e1,e2,inc10enddo,doi=e1,e2,incgoto10enddo10.,允许从结构内跳转到结构外，但不符合结构化的编程规范,if()thengoto10endif10,异常的程序流程,改变循环结构流程的语句,:doi=e1,e2,incif()exitenddo,:doi=e1,e2