資源描述：
《Fortran程序設(shè)計(jì)4-循環(huán)結(jié)構(gòu)》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。
1、六、循環(huán)結(jié)構(gòu)程序設(shè)計(jì)DODOWHILEDO循環(huán)的嵌套隱含DO循環(huán)循環(huán)的流程控制例：DOI=1,20,2……ENDDO由循環(huán)變量來控制循環(huán)的次數(shù)。即：需要執(zhí)行的循環(huán)次數(shù)已經(jīng)知道DO輸入30個(gè)學(xué)生的學(xué)號(hào)和成績，并且打印出來DON=1,30READ*,NUM,GRADEPRINT*,NUM,GRADEENDDO也稱“循環(huán)變量”也稱“步長”,缺省為1DO循環(huán)變量步長終值初值行號(hào)行號(hào)循環(huán)終端語句：循環(huán)終端語句為一般的執(zhí)行語句。F90規(guī)定：循環(huán)終端語句可以是除了GOTO、塊IF、CASE、CYCLE、DO、ELSE、ELSEI
2、F、ENDIF、END、ENDSELECT、EXIT、SELECTCASE、STOP和RETURN語句以外的任一可執(zhí)行語句，如打印語句、賦值語句、輸入語句、邏輯IF語句等都可以作為終端語句。特殊的循環(huán)終端語句是：ENDDO(常用于無語句標(biāo)號(hào)時(shí))和CONTINUE(常用于有語句標(biāo)號(hào)時(shí))。ENDDO語句使老的CONTINUE語句顯得沒有什么用處了，雖然F90的向下兼容性使CONTINUE語句仍然可用，但新編寫的程序應(yīng)該盡量使用以ENDDO結(jié)束的塊DO構(gòu)造練習(xí)1用展開式求指數(shù)函數(shù)的數(shù)值(參考程序：exponent.f90
3、)練習(xí)2用展開式求pi的近似值。N由鍵盤輸入programexponentimplicitnoneintegeri,nrealx,term,sumread*,n,xterm=1.0sum=1.0do10i=1,nterm=term*x/isum=sum+term10continueprint*,sumenddoi=1,nterm=term*x/isum=sum+termenddo練習(xí)1練習(xí)2PROGRAMMAINimplicitnoneintegeri,nrealPI,term,SUMread*,n,xSUM=0.
4、0DOI=1,Nterm=1.0/I**2SUM=SUM+termENDDOPI=SQRT(SUM*6.0)END循環(huán)變量的終值N由鍵盤輸入改為：直到第n項(xiàng)小于1e-6？SUM=0.I=1DOWHILE(1./I**2>=1E-6)SUM=SUM+1./I**2I=I+1ENDDODOWHILE用邏輯運(yùn)算來控制循環(huán)的次數(shù)循環(huán)的嵌套在一個(gè)DO循環(huán)中又完整地包含另一個(gè)DO循環(huán)，稱為DO循環(huán)的嵌套。嵌套層數(shù)可以不限，各層的循環(huán)變量不允許同名。注意內(nèi)循環(huán)應(yīng)當(dāng)完整地嵌套在外循環(huán)之內(nèi)，即內(nèi)循環(huán)是外循環(huán)體中的一部分，內(nèi)外循環(huán)不能
5、交叉doi=1,1Odoj=1,20………enddoenddo例：求兩個(gè)整數(shù)的最大公約數(shù)(DOWHILE結(jié)構(gòu)程序見DIVISOR.F90)read*,m,ndowhile(m/=n)dowhile(m>n)m=m-nenddodowhile(n>m)n=n-menddoenddoprint*,'最大公約數(shù)＝',mend例：打印“九九表”，即1×1=11×2=2……直到9×9=81（程序ex4.f90)例：打印3-100之間的全部素?cái)?shù)程序prime.f90(先看判斷素?cái)?shù)程序primenumb.f90)循環(huán)的流程控制C
6、YCLE命令EXIT命令（p109）其它：do……enddo不帶循環(huán)控制變量，從DO語句下面第一句執(zhí)行起順次執(zhí)行到ENDDO前的最后一句，再返上來從DO語句下面第一句執(zhí)行起，重復(fù)執(zhí)行整個(gè)DO塊，則需要用exit跳出循環(huán)程序例：guessnumb.f90隱DO循環(huán)隱DO循環(huán)實(shí)際上是帶控制循環(huán)變量的DO循環(huán)，但簡化成只有DO循環(huán)的第一句，且把關(guān)鍵字DO隱去，成為I=m1,m2,m3形式。它不是獨(dú)立語句，只是用作為讀寫語句的輸入輸出表中一個(gè)組成部分，用來控制重復(fù)讀寫的次數(shù)。READ*,(VALUE(I),I=1,20)W
7、RITE(*,*)(A,B,N=1,5)隱DO表可以嵌套，如：PRINT*,((A(I,J),I=1,3),J=1,3)練習(xí)：求級(jí)數(shù)的前n項(xiàng)和，但當(dāng)某項(xiàng)絕對(duì)值≤10－5時(shí)，雖未滿n項(xiàng)，也因滿足精度而不再加入下一項(xiàng)練習(xí)：驗(yàn)證哥德巴赫猜想。哥德巴赫猜想提出，一個(gè)不小于6的偶數(shù)必定能表示為兩個(gè)素?cái)?shù)之和。例如：6=3+3，8=3+5，10=3+7，…要求將6~100之間的全部偶數(shù)表示為兩個(gè)素?cái)?shù)之和。程序series.f90程序primenumb.f90程序verify.f90
