编程C语言源程序代码Word格式文档下载.docx

1、for（i=2;i=1000;i+）t=1;for（j=2;ji;j+） if（i%j=0） t=t+j; if（t=i） printf（%4d,i）;s=s+i;n%d530下面的程序是求200,800之间最大的20个素数之和。程序： #include =200）&（n20） yes=1 ; for（j=2; j long s; long k,n,sum=0,count=0; clrscr（）; for （n=2; if （n10） k=10; else if （nBC时，称为倒勾股数。求这样的倒勾股数有多少组。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）dou

2、ble a,b,c;int count=0;clrscr（）;for（ c=1;c=300;c+） for （b=c+1;bb+） for （a=b+1;aa+） if （1.0/（a*a）+1.0/（b*b）=1.0/（c*c） ） count=count+1 ;%d,count）;11A,B,C是三个小于或等于100正整数，当满足1/A2+1/B2=1/C2关系时，称为倒勾股数。求130A+B+CC的倒勾股数有多少组。1（101）求方程9x+4y=2000的所有正整数解的|x-y|的最大值int x,y,z,max=0;for（ x=1;230;x+）y=（int）（2000-9*x）/4

3、）;z=abs（x-y）;if （9*x+4*y=2000 & y0 & max=sqrt（high）; if（high%j=0） yes=0; sum+=high; high-; return sum; main（） clrscr（）;,fun（800）;求出9269和8671的最小公倍数。 算法提示：a与b的最小公倍数是a的倍数中第1个被b整除的数 set talk offcleara=9269b=8671k=ado while mod（k,a）=0 k=k*aendfor? kset talk onreturn（102）梅森尼数是指能使2n-1为素数的数n，求2，21范围内最大的梅素尼数

4、？int i,j,flag;long k;for（i=21;i=2;i-）flag=1; k=pow（2,i）-1; for （j=2; if （k%j=0） flag=0;break; if （flag=1） printf（19猴吃桃：有一天小猴子摘下了若干个桃子，当即吃掉一半，还觉得不过瘾，又多吃了一个。第二天接着吃了剩下的桃子中的一半，仍不过瘾，又多吃了一个。以后每天都是吃尚存桃子的一半零一个。到第10天早上小猴子再去吃桃子时，看到只剩下一个桃子了。问小猴子第一天共摘下了多少个桃子。int i,s=1;for（i=9;=1; s=2*（s+1） ;若一个四位正整数是另一个正整数的平方，且

5、各位数字的和是一个平方数，则称该四位正整数是“四位双平方数”。例如： 由于7396=862，且7+3+9+6=25=52，则称7396是“四位双平方数”。若把所有“四位双平方数”按升序排列，求前10个“四位双平方数”的和。int n=0,i,a,b,c,d,f;long s=0;for（i=1000;=9999; a=（int）（i/1000）; b=（int）（i-a*1000）/100）; c=（int）（i-a*1000-b*100）/10）; d=i%10; f=a+b+c+d; if （ （int）（sqrt（i）=sqrt（i） & （int）sqrt（f）=sqrt（f） ） n

6、=n+1; s=s+i;%5d if（n=10） break;n%ld已知数列：1,2,4,7,11,16,，其规律是相邻两项之差依次是1,2,3,4,5,。求100以内最小的自然数n使得此数列的前n项之和大于800。int s=0,n=0,t=1;while（1）t=t+n;s=s+t;if（s800） break;else n+;1534某些分数的分子和分母都是二位正整数的真分数具有下列特点：如果将该分数的分子的两位数字相加作分子，而将该分数的分母的两位数字相加作分母，得到的新分子跟原分子相等。例如，63/84=（6+3）/（8+4）。试求所有具有这种特点的真分子（非约简真分数）的分子与分

7、母之和的和。29690数列：E（1）=E（2）=1E（n）=（n-1）*E（n-1）+（n-2）*E（n-2） （n2）称为E数列，每一个E（n）,（n=1,2,）称为E数。求1，30000之内E数的个数。int count=2, n=3;long E1=1,E2=1,E3; E3=（n-1）*E2+（n-2）*E1; If（E330000） break; Else count+; printf（“%5d”,E3）;E1=E2; E2=E3; printf（“%d”,count）;10134求200,300之间第二大有奇数个不同因子的整数（在计算因子个数时,包括该数本身）。已知AB, A和B均

8、为正整数，且A*B=2698，求A+B的最小值。int a,b,min=3000;for（a=1;=（int）sqrt（2698）; for（b=（int）sqrt（2698）;=2698; if （a*b=2698 & a+bA=2。求这样的（A，B）中所有A+B的和是多少。int su（int x）int j,k; k=sqrt（x） ;=k;if （x%j=0） return（0）;if （jk） return（1）; int sum=0,a,b;for （a=3;=777; for （b=a+1; if （su（a）&su（b）&su（a+b） sum=sum+a+b;%d %d ,a

9、,b）;n %d19799、下面的程序中，函数fun的功能是：根据形参m，计算下面公式的值。 T=1/1!+1/2!+1/3!.+1/m! 请改正程序中的错误，并运行改正后的程序。当从键盘输入10时，给出程序运行的正确结果（按四舍五入保留10位小数）。double fun（int m） double fac, t=0.0;int i=1, j;for（i=1;=m; fac=1.0; for（j=1; j+） fac=fac*i; t+=1.0/fac;return t; int m;n 请输入整数: ）;scanf（, &m）;%12.10lf n,fun（m）;double fun（int

10、 n） double s, t; int i; s=1.0;t=1.0; for（i=1;=n; i+） t=t*i/（2*i+1）; s=s+t; return s;printf（n %12.10lf, fun（28）;1.570796326246自然数对是指两个自然数的和与差都是平方数，如8和17的和8+17=25与其差 17-8=9都是平方数，则称8和17是自然数对（8，17）。假定（A，B）与（B，A）是同一个自然数对且假定A=B，求所有小于或等于100（即：A=100,B=100，AB,A和B均不为0）的自然数对中A*B的积的和。 double sum=0.0 ;int a,b ;f

11、or（b=1; for（a=b+1; if（int）（sqrt（a+b）=sqrt（a+b）&（int）（sqrt（a-b）=sqrt（a-b）sum=sum+a*b;%3d%3d n %f若两个自然连续数乘积减1后是素数,则称此两个自然连续数为友数对,该素数称为友素数,例:2*3-1=5,因此2与3是友数对,5是友素数,求40,119之间友素数对的数目。 int i,n=0,j,m; long k; for（i=40;=118; k=i*（i+1）-1;m=sqrt（k）; if（k%j=0） break; if（jm） printf（%d %d,i,i+1）;n+; if（n%5=0） p

12、rintf（nn %4d求S=1/2+2/3+3/5+5/8+的前30项的和（注：该级数从第二项开始，其分子是前一项的分母，其分母是前一项的分子与分母的和）。按四舍五入的方式精确到小数点后第二位。float s=0.0, b=1.0,a=2.0,t; int n;=30; s=s+b/a; t=b+a; b=a; a=t;%7.2f30当n=50时，求下列级数和：S=1/（1*2）+1/（2*3）+1/（n*（n+1）编程求取：121,140 之间的弦数的个数（若某正整数的平方等于另两个正整数平方之和，则称该数为弦数. 例如:32+42=52, 因此5是弦数）。int n=0,i,j,k; f

13、or（i=100;=200; for（j=1;=i; for（k=j+1;k y z）,则（x,y,z）称为方程的一个解。试求方程的整数解（包括负整数解）的个数。 int n=0,x,y,z; for（z=-55;=55; for（y=z+1;y+） for（x=y+1; if（x*x+y*y+z*z=55*55 & xy &z） printf（%4d %4d %4d ,x,y,z）;求方程9X-19Y=1,在|X|100,|Y|50内共有多少组整数解?0.6812.设S（n）=1-1/3+1/5-1/7+1/（2n-1），求S（100）的值，要求S（100）按四舍五入方式精确到小数点后4位。

14、 s=s+pow（-1.0）,（n-1）*1.0/（2*n-1）;34.设S=1+1/2+1/3+1/n，n为正整数，求使S不超过10（S10）的最大的n。s=10; s=s+1.0/n;%d,%7.4f,n-2,s）;36有一个三位数满足下列条件: （1）此三位数的三位数字各不相同; （2）此三位数等于它的各位数字的立方和。试求所有这样的三位数中最大的一个是多少？ int i,ge,shi,bai; for（i=999; ge=i%10; shi=i/10%10; bai=i/100; if（ge!=bai&ge!=shi&shi!（ge*ge*ge+bai*bai*bai+shi*shi*

15、shi=i） printf（41.设某四位数的千位数字与十位数字的和等于百位数字与个位数字的积，例如，对于四位数：9512，9+1=5*2，试问所有这样的四位数之和是多少？long s=0; int i,n=0,ge,shi,bai,qian; for（i=1000; bai=（i-shi*10-ge）/100%10; qian=i/1000; if（qian+shi=bai*ge） n+;if（n%5=0） printf（%d,%ld,n,s）;1236750所谓回文数是从左至右与从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求出100-900之间的所有回文数的个数。 in

16、t i,ge, bai,n=0;=999; if（ge=bai）407当m的值为50时，计算下列公式的值： T=1-1/2-1/3-1/4-1/m已知：f（n）=f（n-1）+2*f（n-2）-5*f（n-3）,f（0）=1,f（1）=2,f（2）=3,求f（0）+f（1）+f（30）。80求数学式1-1/2+1/3-1/4+1/5-1/6+1/99-1/100的值。（按四舍五入方式精确到小数点后4位）-2.4992求Y=1-1/2+1/3-1/4+1/5.前30项之和。-750874当n=100时，计算S=（1-1/2）+（1/3-1/4）+（1/（2n-1）-1/（2n）的值。.按四舍五入的方式精确到小数点后