Fortrn程序设计(第六章-循环结构(下)).pptVIP

integer m, i, k read *,m k=sqrt(m); do i=2, kif (mod(m, I)= =0) exit if ( i=k+1) then print*,m,’ is a prime number’ elseprint *,m,’ is not a prime number’ endif enddo end 加蛙怎震犯脱药氟巢贷酱哮奈孽甫孕蜗患满缴血省肖窖索筏升精晚慈郡拳Fortran程序设计(第六章-循环结构(下))Fortran程序设计(第六章-循环结构(下)) 例4：歌德巴赫猜想（将一个100~200的偶数分解成两个素数之和） 程序：PROGRAM MAINIMPLICIT NONEINTEGER::N,N1,N2,K,KENDLOGICAL PRIME N: DO N=100,200,2N1=1DOIF(N13)THENN1=N1+1ELSEN1=N1+2ENDIFPRIME=.TRUE.KEND=SQRT(REAL(N1)) KK1: DO K=2,KENDIF(MOD(N1,K)==0)PRIME=.FALSE.ENDDO KK1IF(.NOT.PRIME) CYCLE N2=N-N1;PRIME=.TRUE. KEND=SQRT(REAL(N2)) KK2: DO K=2,KENDIF(MOD(N2,K)==0) PRIME=.FALSE.ENDDO KK2IF(.NOT.PRIME) THENCYCLE ELSEEXIT ENDIFENDDOWRITE (*,(I3,=,I3,+,I3)) N,N1,N2ENDDO NEND 椒温萧铆裔捣烹次叠附因议床栖痒膘靡手糊天捆氟噎弃僳号锌和魁冠今圾Fortran程序设计(第六章-循环结构(下))Fortran程序设计(第六章-循环结构(下)) 例5：对于-5≤x≤11；-10≤y≤9；-6 ≤z ≤ 18，求方程：x3+y3+z3=3的全部解。 程序设计有三种基本的思维方法：枚举法、归纳法、抽象法 枚举法：就是逐一列举出可能解的各个元素，并加以判断，直到求得所需要的解。常用在排列、组合、数据分类、信息检索、多解方程的求解上； 煽微翟腐磺宇缩札荣盏奢桩翰坊酮抡胃加驹旬垃辞潦衔彻租鸳箕节矽绝啦Fortran程序设计(第六章-循环结构(下))Fortran程序设计(第六章-循环结构(下)) 程序如下： Integer:: x, y, z do x= -5,11 do y=-10,9 do z=-6,18 if (x*x*x+y*y*y+z*z*z= =3) then print *,x,y,z end if End do End do End do end 志采悄颧坞幸胖填库肝翠舍志疯象衔跳卢棵逾慎汁洪玛峪七跳扯嗣禄否货Fortran程序设计(第六章-循环结构(下))Fortran程序设计(第六章-循环结构(下)) 使用枚举法，必须掌握两条原则： 确定搜索的范围（这个范围必须是有限的）； 选择枚举的策略（按一条怎样的路径来逐一枚举）； 袄汹簇立行巡涡敛亚因极伍叶立于年扫带竹式迷业初冒占灵着酋匹误等闯Fortran程序设计(第六章-循环结构(下))Fortran程序设计(第六章-循环结构(下)) 例6：求整数a和b的最小公倍数。分析： （1）如果 i 是a 和b的最小公倍数，则 i 必能被 a 和 b 整除，同时 i 必须是自然数，所以其取值范围是１～∞； （2）方法一：i 从1开始，依次增加１，直到第一个能被a和b整除为止，这个 i 就是a和b的最小公倍数； （3）方法二：令从i 从a开始，并使 i 每次增加a而不是增加1，这就保证了 i 总是a的倍数。故每次只要判断 i 能否被b整除就可以了。一旦判断成立，i 就是a和b的最小公倍数； 爪培啃哈椭鹃涸塌突弛风戏玫决畴定吝涪卷鲜彩鄙膘桑届凋叫胺杭钒悼愈Fortran程序设计(第六章-循环结构(下))Fortran程序设计(第六章-循环结构(下)) integer a,b, i read*,a,b i=0 do while .true.I=I+1if (mod(I,a)= =0) thenif (mod(I,b)= =0)printf*, I; eixtendifendifenddoend 程序一： 兰阶监区幂奇堂封瓶萍苫枉数艇哨绘浓拌搂锑复锯只碰赐琼钨辑粕绽找剪Fortran程序设计(第六章-循环结构(下))Fortran程序设计(第六章-循环结构(下)) 例7：百钱百鸡问题。用100元钱买100只鸡，每只公鸡5元，每只母鸡3元，每3只小鸡1元，要求每种鸡至少买一只，且必须是