西安交通大学fortran习题

《西安交通大学fortran习题》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、1二维数组的输入与输出programmainimplicitnoneintegeriJintegerA(2,2)喏为data((A(j,i),i=1,2),j=1,2)/1,2,3,4/print*,Aend!结果为1324A(2J)=3A(2,2)=4A(12)=3A(2,2)=4实际为A(1J)=1A(l,2)=2喏为data((A(i,j),i=l,2)j=l,2)/l,2,3,4/print*,Aend!结果为1234实际为A(1J)=1A(2J)=2programmainimplicitnoneintegerijintegerA(2,2)data((

2、A(i,j),i=l,2),j=l,2)/l,2,3,4/write(叮(13,13门Aend!结果为1234翻卡片!用数组编写下面的题目：假定有一叠卡片，卡片号为1到52,并且所有卡片的正面朝上。从卡片号2开始，把凡是偶数的卡片都翻成正面朝下。再从3号卡片开始，把凡是卡片号为3的倍数的卡片嘟翻一个面(即把正面朝上的翻成正面朝下，正面朝下的翻成正面朝上)。下一步从4号卡片开始，把凡是卡片号为4的倍数的卡片都翻一个面，依次类推，直到从52号卡片开始，把凡是卡号为52的倍数的卡片翻一个面。写出一个程序，來测定全过程完成后，哪些卡片的面朝上，共有几张。答案：正面朝上

3、的卡片是第1、4、9、16、25、36、49张，共7张。programmainimplicitnoneintegers(52)integeri,js=0doi=2,52••尸1dowhile(j<=52)S(j)=S①+1•••J=J+1enddoenddodoi=l,52if(mod(s⑴,2)==0)thenwrite(*,*)iendifenddoendprogrammain〃用c语言写#includeintmain(){ints[52];inti,j；for(i=0;i<52;i++)s[i]=0;for(i=l;i<=51;i++)

4、{for(j=i;j<=51;j+二i+1)//也可以写作j=j+i+1，不能写作j=j+i+1{s[j]二s[j]+l;}}斐波拉契!使用递归时result()不能与函数名相同PROGRAMMAINIMPLICITNONEINTEGERn,i,sumrcad*,nif(n<0)THENPRINT*,"出错”ENDIFwrite(*,*)'f(n)=,,f(n)doi=l,nsum=sum+f(n)enddowrite(*,*),sum=sumcontainsrecursivefunctionf(n)result(g)integergjif(n==0)the

5、ng=0elseif(n==l.or.n==2)theng=lelseg=f(n-l)+f(n-2)endifendfunctionEndprogram分解质因数!分解质因数programmainimplicitnoneintegera,c,i,bprint*,"请输入一个大于二的整数"read*,aprint*,呗!j它的所有质因子为dowhile(a/=l)i=lb=ldowhile(b/=0)i=i+lb=mod(aj)c=ienddoa=a/cprint*,cenddoendprogram哥德巴赫猜想!屏幕上不能显示500,所以不能将结果完全显示，需要

6、将结果输入文件FUNCTIONf(i)IMPLICITNONEINTEGERi,f,hf=0if(i>l)lhendoh=2,i-lif(mod(i,h)==0)thenf=f+lendifenddoendifendfunctionprogrammainimplicitnoneinteger(4)i,j,n,fintegersdon=4,600,2s=0j=odoi=hn/2-lj=n-iif(f(i)==O.and

7、fenddoendprogram黄金值法解方程!将中值法中取中点的值改为取黄金点的值，理论上可以提髙效率modulegolden_sectionimplicitnonereala,b,ccontainssubroutinesubl(abc)reala,b,c,ycc=(a*0.618+b)/1.618yc=f(c)dowhile(abs(yc)>0.00001)if(yc*f(a)

8、4.0*x+3endfunctione