fortran循環(huán)結(jié)構(gòu)的實(shí)現(xiàn)

1、123N1N1N30N4 567ve1vev3r1r 8 9 10 11 12 13 DO 20 I=1, 5 DO 10 I=2, 10, 2 10 CONTINUE 20 CONTINUE14DO 10 I=1, 5DO 20 J=1, 3M=I*J10CONTINUE20CONTINUE DO 10 I=1, 10 DO 20 J=0, 20, 2 20 CONTINUE10 CONTINUE DO 10 I=1, 10 DO 10 J=0, 20, 2 10 CONTINUE15C打印九九表打印九九表do 10 i=1,9 do 20 j=1,9 k=i*j write(*,*) i,

2、*,j,=,k20 continue write(*,*)10continueendC百錢買百雞百錢買百雞C100元錢買元錢買100只雞只雞C公雞公雞5元元/只只C母雞母雞3元元/只只C小雞小雞1元元/3只只integer x,y,zdo 10 x=0,19 do 20 y=0,33 z=100-x-y if(15*x+9*y+z.eq.300) $ write(*,*) x,y,z20 continue10continueend161. do while語(yǔ)句語(yǔ)句*統(tǒng)計(jì)平均成績(jī)統(tǒng)計(jì)平均成績(jī)integer countsum=0.0count=0read(*,*) scoredo 10 while

3、(score.ge.0.0) sum=sum+score count=count+1 read(*,*) score10continueaver=sum/countwrite(*,*) count=,countwrite(*,*) average=,averend17*輾轉(zhuǎn)相除求最大公約數(shù)輾轉(zhuǎn)相除求最大公約數(shù)integer m,n,r,tread(*,*) m,nif(m.lt.n) then t=m m=n n=tend ifr=mod(m,n)do 10 while(r.ne.0) m=n n=r r=mod(m,n)10continuewrite(*,*) The greatest, $

4、 common divisor is, nend 182. 用塊用塊IF和和GO TO語(yǔ)句實(shí)現(xiàn)當(dāng)型循環(huán)語(yǔ)句實(shí)現(xiàn)當(dāng)型循環(huán)C判斷判斷n是否為素?cái)?shù)是否為素?cái)?shù) read(*,*) nj=sqrt(real(n)i=2do 10 while(i.le.j).and. $ (mod(n,i).ne.0) i=i+110continueif(i.gt.j) then write(*,*) n, is, $ a prime numberelse write(*,*) n, is not, $ a prime number end ifendC判斷判斷n是否為素?cái)?shù)是否為素?cái)?shù) read(*,*) nj=sqrt(

5、real(n)i=210 if(i.le.j).and.(mod(n,i).ne.0) then i=i+1goto 10end ifif(i.gt.j) then write(*,*) n, is, $ a prime numberelse write(*,*) n, is not, $ a prime number end ifend19*統(tǒng)計(jì)平均成績(jī)統(tǒng)計(jì)平均成績(jī)integer countsum=0.0count=0read(*,*) scoredo 10 while(score.ge.0.0) sum=sum+score count=count+1 read(*,*) score10co

6、ntinueaver=sum/countwrite(*,*) count=,countwrite(*,*) average=,averend*統(tǒng)計(jì)平均成績(jī)統(tǒng)計(jì)平均成績(jī)integer countsum=0.0count=0read(*,*) score10 if(score.ge.0.0) then sum=sum+score count=count+1 read(*,*) scoregoto 10end ifaver=sum/countwrite(*,*) count=,countwrite(*,*) average=,averend20* 用用2/6 1/12+1/22+.+1/n2，求求值

7、值 read(*,*) nsum=0.0i=110if(i.le.n) thenterm=1.0/(i*i)sum=sum+termi=i+1goto 10end ifpi=sqrt(6.0*sum)write(*,*) pi=,piend213. 用用READ語(yǔ)句和語(yǔ)句和GO TO語(yǔ)句實(shí)現(xiàn)當(dāng)型循環(huán)語(yǔ)句實(shí)現(xiàn)當(dāng)型循環(huán)自學(xué)！自學(xué)！用邏輯用邏輯if語(yǔ)句可實(shí)現(xiàn)直到型循環(huán)。語(yǔ)句可實(shí)現(xiàn)直到型循環(huán)。C 求求1-1/2+1/3+.+1/99-1/100的值的值integer signsum=1.0deno=2.0sign=110 sign=(-1)*sign term=sign/deno sum=sum+te

8、rm deno=deno+1 if(deno.le.100) goto 10write(*,*) sumend22C判斷判斷n是否為素?cái)?shù)是否為素?cái)?shù) logical winteger rread(*,*) nw=.true.i=2j=sqrt(real(n)10r=mod(n,i)if(r.eq.0) then w=.false.else i=i+1end ifif(i.le.j).and.w) goto 10if(w) then write(*,*) n, is, $ a prime numberelse write(*,*) n, is not, $ a prime numberend if

9、endC判斷判斷n是否為素?cái)?shù)是否為素?cái)?shù) read(*,*) nj=sqrt(real(n)i=2do 10 while(i.le.j).and. $ (mod(n,i).ne.0) i=i+110continueif(i.gt.j) then write(*,*) n, is, $ a prime numberelse write(*,*) n, is not, $ a prime number end ifend23C Fibonacci數(shù)列問題數(shù)列問題C 1,1,2,3,5,8,13,21,34. f1=1.0f2=1.0write(*,*) f1write(*,*) f2n=3f=f1+

10、f210write(*,*) ff1=f2f2=ff=f1+f2n=n+1if(n.le.30).and.(f.le.1e5) goto 10end241. DO循環(huán)用來處理已確定循環(huán)次數(shù)的問題。其他循環(huán)即可以循環(huán)用來處理已確定循環(huán)次數(shù)的問題。其他循環(huán)即可以處理已知循環(huán)次數(shù)的問題，也可以處理不確定循環(huán)次數(shù)的問處理已知循環(huán)次數(shù)的問題，也可以處理不確定循環(huán)次數(shù)的問題。對(duì)事先知道確定循環(huán)次數(shù)的問題，用題。對(duì)事先知道確定循環(huán)次數(shù)的問題，用DO循環(huán)比較方便。循環(huán)比較方便。2. DO循環(huán)實(shí)質(zhì)上也是一種循環(huán)實(shí)質(zhì)上也是一種“當(dāng)型循環(huán)當(dāng)型循環(huán)”。3. 幾種形式的循環(huán)可以互相轉(zhuǎn)換，或者說，同一個(gè)問題可用幾種形式的

11、循環(huán)可以互相轉(zhuǎn)換，或者說，同一個(gè)問題可用任一種循環(huán)來處理。任一種循環(huán)來處理。4. 各種循環(huán)可以互相嵌套。但必須一個(gè)循環(huán)完整的包含在各種循環(huán)可以互相嵌套。但必須一個(gè)循環(huán)完整的包含在另一個(gè)循環(huán)之內(nèi)。另一個(gè)循環(huán)之內(nèi)。25C 打印打印3100間的素?cái)?shù)間的素?cái)?shù)do 10 n=3, 100, 2 j=sqrt(real(n) i=220 if(i.le.j).and. $ (mod(n,i).ne.0) then i=i+1 goto 20 end if if(i.gt.j) write(*,*) n10continueend26END DO 語(yǔ)句（語(yǔ)句（Fortran 90） do 10 while(s

12、core.ge.0.0) sum=sum+score read(*,*) score10continuedo while(score.ge.0.0) sum=sum+score read(*,*) score end do27CYCLE 和和 EXIT 語(yǔ)句（語(yǔ)句（Fortran 90） CYCLE命令略過循環(huán)的程序模塊中，在命令略過循環(huán)的程序模塊中，在CYCLE命令后面的所有程序代碼，直接跳回循環(huán)的命令后面的所有程序代碼，直接跳回循環(huán)的開頭來進(jìn)行下一次循環(huán)。開頭來進(jìn)行下一次循環(huán)。program eximplicit noneinteger dest,floorparameter (dest=

13、9)do floor=1,dest if (floor=4) cycle write(*,*) floorend doend 假設(shè)某百貨公司共假設(shè)某百貨公司共有有9層樓，但電梯在層樓，但電梯在4層層不停，試寫一個(gè)程序來不停，試寫一個(gè)程序來仿真百貨公司中電梯從仿真百貨公司中電梯從1樓爬升至樓爬升至9樓時(shí)燈號(hào)顯樓時(shí)燈號(hào)顯示情況。示情況。EXIT的功能是可以直接的功能是可以直接“跳出跳出”一個(gè)正在運(yùn)行的循環(huán)。一個(gè)正在運(yùn)行的循環(huán)。28署名的循環(huán)署名的循環(huán)（Fortran 90） program ex implicit none integer i, j outter: do i=1,3 inner:

14、do j=1,3 write(*, * ) (, i, , j, ) end do inner end do outter end loop1: do i=1,3 loop2: do j=1,3 if ( i=3 ) exit loop1 ! 跳離loop1循環(huán) if ( j=2 ) cycle loop2 ! 直接做下一次的loop2循環(huán) write (*, * ) (, i, , j, ) end do loop2 end do loop129上機(jī)目的：上機(jī)目的：1. 掌握用掌握用DO語(yǔ)句和語(yǔ)句和DO WHILE語(yǔ)句實(shí)現(xiàn)循環(huán)的方法。語(yǔ)句實(shí)現(xiàn)循環(huán)的方法。2. 熟悉其他當(dāng)型和直到型循環(huán)的實(shí)現(xiàn)方法。熟悉其他當(dāng)型和直到型循環(huán)的實(shí)現(xiàn)方法。