2014c語言（分章節(jié)練習）

2.1.1顯ホー?行文字/?顯示一行文字“WelcometoCWorld!”的程序*/#include<stdio.h>main(){printf(nWelcometoCWorld!"); }2.1.2兩個整數求和/?計算并顯示兩整數之和的程序?/#include<stdio.h>main(){inta,b,sum;/?變量聲明?/printf("Inputfirstinteger");/*顯示提示信息?/scanf("％d”，&a);/?讀取ー個整數?/printf("Inputsecondinteger");/?顯不提示信息?/scanf("%d"，&b);/?讀取ー個整數?/sum=a+b;/?兩數相加?/printf("Sumis%d”,sum);/*顯示兩數之和?/return0;/?返回〇表示程序成功地結束?/2.1算術運算#include<stdio.h>main(){printf(“Ll:40%%7=%d"，40%7);printf(uL2:40%7=%d"，40%7);printf(uL3:3.〇/-4.0+1.6*2.0/5.0二%f”，0/-4.0+1.6*2.0/5.0);printf(“L4:2/3*1000二%d"，2/3*1000);printf(“L5:2/3*1000二%f"，2/3*1000);printf(“L6:2/3*1000哪”，2/3*1000);printf("L7:2.0/3*1000二%f"，2.0/3*1000);printf(“L8:2f/3*1000二％f"，2f/3*1000);printf("L9:Sizeof3is%d”,sizeof(3));printf(uLIO:Sizeof3.0is%d"，sizeof(3.0));}2.2.2賦值運算#include<stdio.h>main(){intk,x,y;k=5;x=k++;/*后綴運算,先把k的值賦給x,然后k的值加1*/printfCL1:k二%d,x二%d〃,k,x);k=5;y二++k;/*前綴運算,先使k的值加1,然后將k的值賦給y*/printf(〃L2:k二%d,y二%d”,k,y);x=y二5;printf(〃L3:--xis%d,y--is%d〃,--x,y--);k=x=y=5;k=++x-++y;printf(，zL4:%d,%d,%d，z,k,x,y);k=++x+y++;printf(，zL5:%d,%d,%d〃,k,x,y);k=x一十—y;printf(，zL6:%d,%d,%d，z,k,x,y);kニーx+++y;printf(zzL7:%d,%d,%d〃,k,x,y);x=y二5;printf(，zL8:x+二x一二x*xis%d〃,x+二x一二x*x);printf(zzL9:y+=y一二y*二yis%d〃,y+二y一二y*二y);2.2.3printf中輸出表列求值#include<stdio.h>voidmain(){inti=8;printf(，z%d,%d,%d,%d,%d〃,++i,—i,i-,i++,-i-)；}2.2.4交換兩個變量的值#include<stdio.h>main(){inta,b,tern;printf("Inputintegeraandb");scanf("%d,%d",&a,&b);tem二a;a=b;b=tem;printf("a二％d,b二%d”,a,b);}2.2.5四舍五入#include<stdio.h>#include<math.h>main(){doublea,b;printf("Inputreala);scanf("%If",&a);b=floor(a*100+0.5)/100;printf(〃b=％.2f〃,b);重慶專升本計算機c語言程序設計輔導分支程序設計4.1.1求絕對值#include“stdio.h"main(){intx,y;scanf("%d",&x);if(x<0)y=一x;printf(“x二％d,|x|二%d”，x,y);}4.1.2顯示三數中的奇數main()(intx,y,z;printf("inputx,y,z:");scanf(u%d,%d,%d”，&x,&y,&z);if(x%2)printf("%disoddnumber!”,x);if(y%2)printf("%disoddnumber!”,y);if(z%2)printf("%disoddnumber!”,z);4.1.3三數中取極值main(){inta,b,c,max,min;printf("inputa,b,c:");scanf("%d,%d,%d”，&a,&b,&c);max=a;if(b>max)max=b;if(c>max)max=c;printf("themaximumis:%d”,max);min=a;if(min>b)min=b;if(min>c)min=c;printf("theminimumis:%d”,min);4.2.1兩數的比較#include”stdio.h"main(){intx,y;printf("inputx,y:");scanf("%d,%d",&x,&y);if(x>y)printf("themaximumis:%dv,x);elseprintf("themaximumis:%d”,y);4.2.2判定一數能否被另ー數整除main(){intx,y;printf("inputx,y:");scanf("%d,%dv,&x,&y);if(x%y)printf("NO");elseprintf("YES");4.3.1分段函數求解main(){intx,y;scanf("%d",&x);if(x>=0)if(x>0)y=x+l;elsey=x;elsey=x-l;printf(“x=%d,尸％d”，x,y);)4.3.2一元二次方程求解#include，zmath.h〃main(){floata,b,c,d,a2,xl,x2;printf(，zInputa,b,c〃);scanf(，z%f,%f,%fzz,&a,&b,&c);if(a=0)/?解一元一次方程?/{xl二一c/b;printf("root二％f〃,xl);/?輸出一次方程根?/}else/?解一元二次方程?/d=b*b-4*a*c;a2=2*a;xl二一b/a2;if(d>=0){x2=sqrt(d)/a2;printf(，zrealroot:〃)；/?輸出實根?/printf(，，rootl=%f,root2=%f〃,xl+x2,xl-x2);}else(x2=sqrt(-d)/a2;printf(，zcomplexroot:zz);/?輸出復根?/printf(z，rootl=%f+%fi〃,xl,x2);printf(〃root2=%f-%fi〃,xl,x2);4.3.3閏年判斷問題#include“stdio.h"main(){intyear,leap=O;/*leap=O:預置為非閏年?/printf(，zPleaseinputtheyear:");scanf("%d",&year);if(year%100!=0){if(year%4==0)leap=l;}else{if(year%400ニニ〇)leap=l;}if(leap)printf("%disaleapyear.",year);elseprintf("%disnotaleapyear.",year);}4.3.4顯示學生成績與等級main(){intx;printf("pleaseinputx(0く二xく二100):“)；scanf("%d"，&x);if(x>100||x<0)printf("x=％ddataerror!”,x);elseif(x>=90)printf("x=％disgradeA!”,x);elseif(x>=80)printf("x=%disgradeB!”,x);elseif(x>=60)printf("x二%disgradeC!”,x);elseprintf(へ二%。isgradeD!”,x);4.3.5個人所得稅計算(1)用嵌套的if語句編寫程序main()floats,m,t;printflpleaseinputtheincome:，z);scanf(〃%f〃,&s);s二sT600;if(s>100000)m=s-100000;t二m?0.45+20000*0.4+20000*0.35+20000*0.3+20000?〇.25+15000*0.2+3000*0.15+1500*0.1+50〇?〇.05;elseif(s>80000)]m=s-80000;t二m?〇.4+2000〇?〇.35+2000〇?〇.3+2000〇*〇.25+15000*0.2+3000*0.15+1500*0.1+50〇?〇.05;卜elseif(s>60000)(m=s-60000;t二m?〇.35+2000〇?〇.3+2000〇?〇.25+1500〇?〇.2+3000*0.15+1500*0.1+50〇?〇.05;}elseif(s>40000)m二s-4000〇;t二m?0.3+20000*0.25+1500〇?〇.2+3000*0.15+1500*0.1+500*0.05;)elseif(s>20000)(m二s-20000;t=m*O.25+15000*0.2+3000*0.15+1500*0.1+500*0.05;)elseif(s>5000){m=s-5000;t=m*O.2+3000*0.15+1500*0.1+500*0.05;}elseif(s>2000){m二s-2000;t=m*O.15+1500*0.1+500*0.05;elseif(s>500){m=s-500;t=m*O.1+500*0.05;}else(m=s;t=m*0.05;}printf(，zthetaxis:%7.2f〃,t);getchO;}(2)用switch語句編寫程序main(){floatm,s,r;intt;printf(，zinputtheincome:z，);scanf(〃％f〃,&s);s=sT600;t=s/10000;switch(t){case〇:if(sく二50〇)(m二s?0.05;printf(/zthetaxis:%エ,m);}elseif(s<=2000)(s=s-500;m=s*0.1+50〇?〇.05;printf("thetaxis:%f",m);}elseif(s<=5000)(s=s-2000;m=s*O.15+1500*0.1+500*0.05;printf(，zthetaxis:%f〃,m);elseif(s<=10000)(s-s-5000;in二s?0.2+3000*0.15+1500*0.1+500*0.05;printf(z/thetaxis:%エ,m);}break;case1:s=s-5000;m二s?0.2+3000*0.15+1500*0.1+500*0.05;printf(z/thetaxis:%エ,m);break;case2:if(sニニ20000){s二s-5000;m二s?〇.2+3000*0.15+1500*0.1+50〇?〇.05;printf(zzthetaxis:%エ)in);case3:s=s-2000〇;m二s?〇.25+15000*0.2+3000*0.15+1500*0.1+500*0.05;printf(，zthetaxis:%f〃,m);break;case4:if(s==40000)(s二s-20000;m=s*O.25+15000*0.2+3000*0.15+1500*0.1+500*0.05;printf(，zthetaxis:%fzz,m);}case5:s=s-40000;m=s*O.3+20000*0.25+15000*0.2+3000*0.15+1500*0.1+500*0.05;printf(zzthetaxis:%fzz,m);break;case6:if(s==60000)s二s-4000〇;m二s?0.3+20000*0.25+15000*0.2+3000*0.15+1500*0.1+500*0.05;printf(，zthetaxis:%f〃,m);}case7:s=s-60000;m=s*0.35+20000*0.3+20000*0.25+15000*0.2+3000*0.15+1500*0.1+500*0.05;printf(，zthetaxis:%fzz,m);break;case8:if(s==80000){s=s-60000;m=s*0.35+20000*0.3+20000*0.25+15000*0.2+3000*0.15+1500*0.1+500*0.05;printf(zzthetaxis:%fzz,m);case9:s=s-80000;m=s?〇.4+20000*(0.35+0.3+0.25)+1500〇?〇.2+3000*0.15+1500*0.1+50〇?〇.05;printf(，zthetaxis:%f〃,m);break;}if(s=100000)(s=s-80000;m二s?〇.4+2000〇*(0.35+0.3+0.25)+1500〇?〇.2+3000*0.15+1500*0.1+50〇?〇.05;printf(，zthetaxis:%fzz,m);}else(s二sTOOOOO;m二s?〇.45+20000*(〇.4+0.35+0.3+0.25)+1500〇?〇.2+3000*0.15+1500*0.1+50〇?〇.05;printf(zzthetaxis:%fzz,m);重慶專升本計算機C語言程序設計輔導循環(huán)程序設計5.1.1累加和程序L應用for循環(huán)設計/*for循環(huán)求s=1*2+2*3+…99*100*/main(){longi,s;s二〇;for(i=l;i〈=99;i++)/?設置循環(huán)i=l,2,??,99*/s十二i*(i+l);/*把通項i*(i+l)累加到s中?/printf(〃l*2+2*3+…+99*100二%Id”,s);]程序2:應用while循環(huán)設計/*while循環(huán)求s=1*2+2*3+…+99*100*/main(){longi,s;i二1;s二〇;while(i<=99)/?設置循環(huán)i=1,2,…，99*/{s+=i*(i+l);i++;}/?把通項i*(i+l)累加到s中?/printf(“l(fā)*2+2*3+…+99*100二%Id",s);程序3I應用dowhile循環(huán)設計/*dowhile循環(huán)求s=l*2+2*3+???+99*100*/main(){longi,s;i=l;s=0;do{s+=i*(i+l)；i++；}/?把通項i*(i+l)累加到s中?/while(i<=99);/*設置循環(huán)i=l,2,…，99*/printf(〃l*2+2*3+…+99*100二%Id”,s);}5.1.2代數和/?求s=l-l/2+l/3T/4+???-1/100*/main(){intk,n;floats=0;for(k=l;k<=100;k++)if(k%2=l)s+=1.0/k;/?應用分支實現符號一正ー負?/elses-=l.0/k;printf(〃s=%9.6f〃,s);5.1.3階乘計算/?循環(huán)累乘求階乘n!*/main(){inti,n;longt;scanf(〃%d〃,&n);t=l;/?積變量t賦初值1*/for(i=l;i<=n;i++)t=t*i;/?循環(huán)變量i累乘到t,體現階乘運算?/printf(，z%d!=%ld〃,n,t);}/*遞歸求階乘N!*/floatfac(n)intn;{longf;if(n==0)f=l;/?初始條件?/elsef=n*fac(nT);/?遞歸關系?/return(f);}main(){intn;longy;printflinputn:〃)；scanf(〃%d〃,&n);y=fac(n);printf1%d!二%Id,n,y);#include，zmath.h〃main(){inti,n=1000;floata,b,h,tl,t2,s,x;printf(〃請輸入積分限a,b:〃);scanf(〃%f,%f”,&a,&b);h=(b-a)/n;for(s=0,i=l;i<=n;i++){x=a+(i-l)*h;tl=exp(-x*x/2);t2=exp(-(x+h)*(x+h)/2);s+=(tl+t2)*h/2;}/?梯形面積累加?/printf(〃梯形法算得積分值:%f.〃,s);}5.2.1百雞問題main(){intx,y,z;for(x=l;x<=19;x++)for(y=l;y<=33;y++)for(z=l;zく=100;z++)if(z%3-0&&x+y+z—100&&5*x+3*y+z/3=100)printf(〃x=%d,y=%d,z=%d〃,x,y,z);/?同時滿足時打印?/}5.2.2解Pel!方程/?解PELL方程:x^2-nyへ2=1.*/ttinclude<math.h>main(){intn,m,t;longa,x,y;printf(〃解PELL方程:x2-ny2=1.〃)；printf(〃請輸入非平方正整數n:〃)；scanf(〃%d〃,&n);m=sqrt(n);if(m*m=n){printf(〃n為平方數,方程無正整數解!〃)；return;}printf(〃解PELし方程:x-2-%dyへ2=1〃,n);for(y=l;y<=10000;y++)/?實施窮舉,約定10000內?/{a=n*y*y;x=sqrt(a+1);if(x*xニニa+1){printf(〃方程的基本解為:〃)；printf(，zx=%Id,y=％Id”,x,y);break;}})2.3牛頓迭代法解方程#include<math.h>floatsolut(a,b,c,d)floata,b,c,d;{floatx二1,xO,f,fl;do{xO二x;/*在循環(huán)中實施迭代*/f=((a*xO+b)*xO+c)*xO+d;fl二(3*a*x0+2*b)*xO+c;x二xO-f/f1;while(fabs(x-xO)>=le-5);return(x);}main(){floata,b,c,d;printf(，zinputa,b,c,d:〃)；scanf(〃％f,%f,%f,%f，z,&a,&b,&c,&d);printf(，zx二％10.6fsolut(a,b,c,d));5.2.4水手分椰子main(){intk,n;longx,y;printf(〃n=〃)；scanf(〃％d〃,&n);/*輸入水手個數n*/for(x=n-l;x<1000000;x+=n-l){y=x；for(k=l;k<=n;k++){y二y/(n-l)*n+l;/?迭代求前ー個水手時的椰子*/if(y%(n-l)!=0)break;}if(k>n){y=y/(n-l)*n+l;printf(〃%d個水手分椰子,原有椰子至少有:%ld個.〃,n,y);for(k=1;kく=n;k++){printf(〃第%d個分:%ld=%d*%ld+l,〃,k,y,n,(yT)/n);y=(y-l)/n*(n-l);printf(〃分后剩余:%ld=%d*%ld〃,y,n-l,y/(n-l));}printf(〃最后一起分:%ld=%d*%ld+l，z,y,n,(y-l)/n);break;}}}5.3.1探求區(qū)間素數main(){longinta,b,k,t,j,n;n=0;printf(〃請輸入區(qū)間:〃)；scanf(〃％ld,%ld，z,&a,&b);printf(〃[%ld--%ld]〃,a,b);for(k二a;kく=b;k++){t二〇;for(j=2;j<=k/2;j++)/?實施試商判別*/if(k%j==O)t=l;if(t==0)n++;}printf(〃n=%Id〃,n);}5.3.2梅森素數#include<math.h>main(){longintk,t,j,m,n,x;x=0;t=2;for(n=2;n<=30;n++){t*=2;k=t-l;m=0;for(j=3;j<=sqrt(k);j+=2)/?實施試商判別*/if(k%j-O)m=l;if(m-0){x++;printf(z，2%ld-l=%ld”,n,k);}}printf(，zx=%ld”,x);}5.3.3合數世紀#include<math.h>main(){longa,b,k;ints,x;for(a=21;aく20000〇;a++)/*在約定區(qū)間內窮舉世紀?/{s=0;for(b=a*100-99;b<=a*100-1;b+=2)/?窮舉每個奇數年號b*/{x=0;for(k=3;k<=sqrt(b);k+=2)if(b%k—0){x=l;break;}s=s+x;}/?年號b為合數時,x=l,s增1*/if(s==50)/*s=50,即有50個合數?/{printf(〃最早出現的合數世紀為:%Id世紀!〃,a);break;}}}5.3.4質因數分解/?質因數分解乘積形式?/#include，zmath.h〃main(){longintb,i,k,m,n,w=0;printf(〃［田,n］中整數分解質因數.〃)；printf(〃請輸入m,n:〃);scanf(〃%ld,%ld〃,&m,&n);for(i=m;i<=n;i++)/*i為待分解的整數?/{printf(〃機d=〃,i);b=i;k=2;while(k<=sqrt(i))/*k為試商因數?/{if(b%k—0){b=b/k;if(b>l){printf(〃％ld?〃，k);continue;}/*k為質因數,返回?/if(b==l)printf(〃%ld〃,k);}k++;}if(b>l&&b<i)printf(/z%ld〃,b);/?輸出大于i平方根的因數?/if(b==i){printf(〃(素數!)〃)；w++;}/*b=i,表示i無質因數?/}printf(〃其中共%d個素數.”,w);}5.4.1最大公約與最小公倍數main(){longinta,b,r,k;scanf(，z%ld,%ld〃,&a,&b);k=a*b;r=a%b;while(r>0){a=b;b=r;r=a%b;}/?實施輾轉相除?/printf(〃最大公約數為:%ld〃,b);printf(〃最小公倍數為:%ld〃,k/b);}5.4.2水仙花數main(){inti,j,k,n;for(n=100;n<1000;n++){i=n/100;j=(n/10)%10;k=n%10;/?分離n各位數字i,j,k*/if(nニニi*i*i+j*j*j+k*k*k)/?檢驗是否符合條件?/printf(，z%d〃,n);}}5.4.3完全數#include"math,h"main(){intb,i,k,m,n,c[100];longa,s,x,y,d[100];printf(〃求區(qū)間[x,y]中的完全數.〃);printf(〃請輸入整數x,y:〃);scanf(〃％ld,%ld”,&x,&y);printf(〃[%ld,%ld]中的完全數有:〃,x,y);for(a二x;aく二y;a++){s二1;n二〇;b二sqrt(a);for(k二2;k〈二b;k++)/?試商尋求a的因數k*/if(a%kニニ〇){s二s+k+a/k;n++;c[n]二k;d[n]=a/k;}/*a/k也是a的因數?/if(a==b*b){s=s-b;m=n-l;}/?若a=bへ2,去掉ー個b重復因數*/elsem=n;if(a-s){printf(/，%ld=r，,a);/*分兩段從小到大打印因數之和?/for(i=l;i〈=n;i++)printf(〃+%d〃,c[i]);for(i=m;i>=l;i--)printf(〃+%ld〃,d[i]);if(a%2—l)printf(z,奇完全數!〃);printf(，Z〃)；})}5.4.4勾股數/?勾股數組?/#include“math,h”main(){longa,b,x,y,z,d,n=0;scanf(“％ld,%ld"，&a,&b);printf(“在[%ld,%ld]范圍內,尋求勾股數組:")；for(x二a;xく=b-2;x++)/?設x〈y〈z,循環(huán)判別?/for(y=x+l;y<=b-l;y++){d=x*x+y*y;z=sqrt(d);if（dニニz*z&&z<=b）{n++;printf（u%ld,%ld,%ld”，x,y,z）;}}printf（"共有%Id組勾股數。"，n）;}5.4.5倍反序數main（）{intn,k,t,m,j二〇;for（n二!,000;nく二9999;n++）/*n窮舉四位數?/{m二〇;t二n;for（k二］.;kく二4;k++）{m=m*10+t%10;t=t/10;}/?求四位數n的反序數m*/if（mニ二4*n）{j++;printf（〃％d",n）;}}printf（〃共%d個解.〃,j）;}5.5.1n個1整除問題main（）{inta,b,c,n;printf（uinputb=,J）;scanf（“刎"，&b）;n二4;c二1111;while(c!=0)/?余數為零時結束?/{a=c*10+1;c=a%b;n++;}/?模擬整數除法?/printf(，zn=%d”,n);}5.5.2尾數前移問題/?模擬除法求解尾數前移問題?/main(){inta,b,m,x,y,z;printf(〃把整數n的尾數a前移到n的最前面,〃);printf(〃其值為原n值的b倍,原數n記為n(a,b).、、printf(〃整數a,b滿足:2くbWaく9〃);printf(〃請輸入整數n的指定尾數a:〃)；scanf&a);/?輸入處理數據?/printf(〃請輸入尾數a前移后為n的倍數b:〃)；scanf(〃％d〃,&b);x=a/b;y=a%b;m=l;/*確定初始條件?/printf(〃n(%d,%d)=%d〃,a,b,x);while(y!=0||x!=a)/?遞推試商處理?/{z=y*10+x;x=z/b;y=z%b;m++;/*模擬整數除法printf(〃%d〃,x);printf(〃共%d位?！?m);}5.6.1金字塔main(){intn,k,m;printf(〃請輸入金字塔的行數n:〃)；scanf(〃%d”,&n);for(k=l;k<=n;k++)/?控制循環(huán)n次,打印n行{for(m=l;m<=50-k;m++)printf("%c〃,32);/?每行先打印50-k個空格?/for(m=l;m<=2*k-l;m++)printf(〃％c〃,42);/?接著打印2kT個”*"*/printf(，Z〃)；)}5.6.2空心菱形#include<math.h>main(){intd,e,n,k,m;printf(〃請輸入菱形的行數n(奇數):〃)；scanf(〃％d〃,&n);d=(n+l)/2;for(k=l;k<=n;k++)/?控制循環(huán)n次,打印n行*/{e=fabs(k-d);/?菱形上下對稱,應用fabs(k-d)函數?/for(m=l;mく=e+45;m++)printf(〃％c〃，32);/*打印每行前面空格?/printf(〃?！?，42);/?打印每行的前一個星號?/if(e<d-l){for(m=l;mく=2*(d-e)-3;m++)printf(〃紀〃,32);/?打印中間空格?/printf(〃%c〃，42);}/?打印中間各行的后一個星號?/printf(，Z〃)；)}6.3數字菱形#include<math.h>main(){intd,e,n,k,m;printf(〃請輸入菱形的行數n(奇數):〃)；scanf("%d〃,&n);d=(n+l)/2;for(k=l;k<=n;k++)/?控制循環(huán)n次,打印n行{e=fabs(k-d);for(m=l;mく=2*e+45;m++)printf(〃％c〃,32);/*打印每行前的空格*/for(m=l;m<=d-e;m++)printf(〃％d〃,d-e);/?打印前d~e個數字?/if(e<d-l){for(m=0;m<=2*(d-eT)-2;m++)printf(〃%c〃,32);/*打印每行中空格?/for(m=l;m<=d-e;m++)printf(，，%d，，Jd-e);}/?打印后d-e個數字?/printf(，Z〃)；)重慶專升本計算機c語言程序設計輔導數組程序設計1.1Fibonacci數列/*Fibonacci數列遞推求解?/main(){intk,n;longs,f[50];printf(〃求數列的第n項與前n項和,請輸入n:〃)；scanf(〃%d”,&n);f[l]=l;f[2]=l;s=2;A數組元素與和變量賦初值?/for(k=3;k<=n;k++){f[k]=f[k-l]+f[k-2];/?實施遞推*/s+=f[k];}/?實施求和?/printf(〃F數列第%d項為:％ld”,n,f[n]);printf("F數前%d項之和為:％ld",n,s);}1.2累序列/?幕序列程序?/main(){intk,n;longa,b,s,f[100];printf("求數列的第n項與前n項和,請輸入n:");scanf("%d",&n);a=2;b=3;s=。;for(k=l;k<=n;k++){if(a<b){f[k]=a;a=a*2;}/?用2的幕給f[k]賦值*/else{f[k]=b;b=b*3;}/?用3的幕給f[k]賦值s+=f[k];}printf(〃數列的第%d項為:％ld”,n,f[n]);printf(〃數列的前%d項之和為數列〃,n,s);}3雙關系遞推數列/?雙關系2x+l,3x+l遞推?/main(){intn,i,j,h,m[1500];m[l]=l;scanf("%d",&n);for(i=l;i〈=n;i++){m[2*i]=2*m[i]+l;m[2*i+l]=3*m[i]+l;for(j=i+2;jく=2*i+l;j++){if(m[i+l]>m[j])/*m(i+l)與m(j)比較?/{h=m[j];m[j]=m[i+l];m[i+l]=h;}/?交換,使m(i+l)最小?/if(m[i+l]—m[j])m[j]=20000+j;}}/?置m(j)為一出界大數,以避免重復?/for(i=l;i<=n;i++){printf(，z%4d，z,m[i]);if(!(i%10))printf(〃〃)；}}6.1.4復雜遞推數列/*2x+3y遞推程序?/main(){intm,n,t,k,i,h,j,w,a[30000];printf(，zinput川:〃)；scanf(〃%d〃,&m);a[l]=l;a[2]=2;t=2;n=0;for(k=2;k<=m;k++){for(i=l;i<=k-l;i++){w=2*a[k]+3*a[i];if(w<=m&&a[k]!=a[i])a[++t]=w;/?判斷w是否為遞推項?/w=2*a[i]+3*a[k];if(w<=m&&a[k]!=a[i])a[++t]=w;}}/?判斷w是否為遞推項?/for(j=l;j<=m;j++){for(k=1;k〈=t;k++)if(a[k]==j){n++;printf(〃%4