编程(C语言源程序代码)

1、已知 S=1+1/(1+2)+1/(1+2+3)+1/(1+2+3+N) ，当N的值为50时，求S的值。要求：按四舍五入的方式精确到小数点后第四位。#include #includemain()float s=0.0; int n,t=0; for(n=1;n=50;n+)t=t+n; s=s+1.0/t; printf(%7.4f,s);1.9608把一张一元钞票,换成一分、二分和五分硬币,每种至少11枚,问有多少种方案?#include void main()int x,y,z,count=0; for(x=11;x=100; x+; ) for(y=11;y=50; y+; ) for(

2、z=11;z=20;z+) if(x+2*y+5*z=100) printf(“x=%d,y=%d,z=%d”,x,y,z); count+; printf(“there are %d methods”,count);13“完数”:一个数如果恰好等于它的所有真因子之和，这个数就称为“完数”。例如，6的真因子为1，2，3，而6=1+2+3，因此，6是“完数”。求1000以内的所有完数之和。#includemain()int i,j,s=0,t;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

3、=s+i; printf(n%d,s); 530下面的程序是求200,800之间最大的20个素数之和。程序：#include #include void main() int k=800,sum=0, n=0, j, yes; while(k=200)&(n20) yes=1 ; for(j=2; j=sqrt(k); j+) if(k%j=0) yes=0; break; if(yes) printf(“%5d”,k);sum+=k; n+;if(n%5=0) printf(“n”); k-; printf(%d n,sum); 14510“同构数”:所谓“同构数”是指这样一个数，它出现在它

4、的平方数的右侧，例如5的平方是25，25的平方是625，故5和25都是同构数，求2，1000之间所有同构数之和。（提示：若x是m位同构数，则x的平方除以10的m次方的余数就是x）#include #include #include main() long s; long k,n,sum=0,count=0; clrscr(); for (n=2;n=1000;n+) if (n10) k=10; else if (nBC时，称为倒勾股数。求这样的倒勾股数有多少组。填空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）#includemain()double a,b,c;in

5、t count=0;clrscr();for( c=1;c=300;c+) for (b=c+1;b=300;b+) for (a=b+1;a=300;a+) if (1.0/(a*a)+1.0/(b*b)=1.0/(c*c) ) count=count+1 ;printf(%d,count);11A,B,C是三个小于或等于100正整数，当满足1/A2+1/B2=1/C2关系时，称为倒勾股数。求130A+B+CBC的倒勾股数有多少组。1(101)求方程9x+4y=2000的所有正整数解的|x-y|的最大值#include #include #include main()int x,y,z,ma

6、x=0;for( x=1;x0 & maxz) max=z; printf(“%d”,max);487下面的程序是求200,800之间最大的20个素数之和。请修改程序中的错误，使它能得出正确的结果，并给出正确结果。程序：#include #include #include int fun(int high) int sum=0, n=0, j, yes; while(high=200)&(n20) yes=1 ; for(j=2; j=sqrt(high); j+) if(high%j=0) yes=0; break; if(yes) sum+=high; n+; high-; return

7、sum; main() clrscr(); printf(%d n,fun(800); 14510求出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范围内最大的梅素尼数？#include #include main()int i,j,flag;long k;for(i=21;i=2;i-)flag=1; k=pow(2,i)-

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

9、平方，且各位数字的和是一个平方数，则称该四位正整数是“四位双平方数”。例如： 由于7396=862，且7+3+9+6=25=52，则称7396是“四位双平方数”。若把所有“四位双平方数”按升序排列，求前10个“四位双平方数”的和。#include#includemain()int n=0,i,a,b,c,d,f;long s=0;for(i=1000;i=9999;i+) 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

10、(i) & (int)sqrt(f)=sqrt(f) ) n=n+1; s=s+i; printf(%5d,i); if(n=10) break; printf(n%ld,s);已知数列：1,2,4,7,11,16,，其规律是相邻两项之差依次是1,2,3,4,5,。求100以内最小的自然数n使得此数列的前n项之和大于800。#includemain()int s=0,n=0,t=1;while(1)t=t+n;s=s+t;if(s800) break;printf(%d,s);else n+;printf(n%d,n);1534某些分数的分子和分母都是二位正整数的真分数具有下列特点：如果将该分

11、数的分子的两位数字相加作分子，而将该分数的分母的两位数字相加作分母，得到的新分子跟原分子相等。例如，63/84=（6+3）/（8+4）。试求所有具有这种特点的真分子（非约简真分数）的分子与分母之和的和。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数的个数。#include#includemain()int count=2, n=3;long E1=1,E2=1,E3;while(1) E3=(n-1)*E2+(n-2)*E1; If(E330000) br

12、eak; Else count+; printf(“%5d”,E3);E1=E2; E2=E3; n+; printf(“%d”,count);10134求200,300之间第二大有奇数个不同因子的整数(在计算因子个数时,包括该数本身)。已知AB, A和B均为正整数，且A*B=2698，求A+B的最小值。#include#includemain()int a,b,min=3000;for(a=1;a=(int)sqrt(2698);a+) for(b=(int)sqrt(2698);b=2698;b+) if (a*b=2698 & a+bBA=2。求这样的（A，B）中所有A+B的和是多少。填

13、空完成程序，然后运行程序得出正确结果。（答案填程序运行结果，保留整数位）#include #include int su(int x)int j,k; k=sqrt(x) ;for(j=2;jk) return(1);main() int sum=0,a,b;for (a=3;a=777;a+) for (b=a+1;b=777;b+) if (su(a)&su(b)&su(a+b) sum=sum+a+b;printf(%d %d ,a,b); printf(n %d,sum);19799、下面的程序中，函数fun的功能是：根据形参m，计算下面公式的值。 T=1/1!+1/2!+1/3!.+

14、1/m! 请改正程序中的错误，并运行改正后的程序。当从键盘输入10时，给出程序运行的正确结果（按四舍五入保留10位小数）。程序：#include #include double fun(int m) double fac, t=0.0;int i=1, j;for(i=1;i=m;i+) fac=1.0; for(j=1; j=m; j+) fac=fac*i; t+=1.0/fac; return t;main() int m;clrscr();printf(n 请输入整数: );scanf(%d, &m);printf(%12.10lf n,fun(m);#include #include

15、 #include double fun(int n) double s, t; int i; s=1.0; t=1.0; for(i=1;i=B，求所有小于或等于100（即：A=100,B=100，AB,A和B均不为0）的自然数对中A*B的积的和。#include #include main() double sum=0.0 ;int a,b ;for(b=1;b=100;b+) for(a=b+1;a=100;a+) if(int)(sqrt(a+b)=sqrt(a+b)&(int)(sqrt(a-b)=sqrt(a-b)sum=sum+a*b;printf(%3d%3d ,a,b);pr

16、intf(n %f,sum);若两个自然连续数乘积减1后是素数,则称此两个自然连续数为友数对,该素数称为友素数,例:2*3-1=5,因此2与3是友数对,5是友素数,求40,119之间友素数对的数目。#include #include main() int i,n=0,j,m; long k; for(i=40;i=118;i+) k=i*(i+1)-1;m=sqrt(k); for(j=2;jm) printf(%d %d,i,i+1);n+; if(n%5=0) printf(n); printf(n %4d,n); 求S=1/2+2/3+3/5+5/8+的前30项的和（注：该级数从第二项开

17、始，其分子是前一项的分母，其分母是前一项的分子与分母的和）。要求：按四舍五入的方式精确到小数点后第二位。#include #includemain()float s=0.0, b=1.0,a=2.0,t; int n; for(n=1;n=30;n+) s=s+b/a; t=b+a; b=a; a=t; printf(%7.2f,s);30当n=50时，求下列级数和：S=1/（1*2）+1/（2*3）+1/(n*(n+1)要求：按四舍五入的方式精确到小数点后第四位。1.9608编程求取：121,140 之间的弦数的个数（若某正整数的平方等于另两个正整数平方之和，则称该数为弦数. 例如:32+4

18、2=52, 因此5是弦数）。#include #includemain()int n=0,i,j,k; for(i=100;i=200;i+) for(j=1;j=i;j+) for(k=j+1;k y z),则（x,y,z）称为方程的一个解。试求方程的整数解（包括负整数解）的个数。 #include #includemain() int n=0,x,y,z; for(z=-55;z=55;z+) for(y=z+1;y=55;y+) for(x=y+1;xy & yz) printf(%4d %4d %4d ,x,y,z); n+; if(n%3=0) printf(n); printf(n

19、 %d,n);8求方程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位。#include #includemain()float s=0.0; int n; for(n=1;n=100;n+) s=s+pow(-1.0),(n-1)*1.0/(2*n-1); printf(%7.4f,s);1134.设S=1+1/2+1/3+1/n，n为正整数，求使S不超过10（S10）的最大的n。#include #includemain()float

20、s=0.0; int n; for(n=1;s=10;n+) s=s+1.0/n; printf(%d,%7.4f,n-2,s);36有一个三位数满足下列条件: (1)此三位数的三位数字各不相同; (2)此三位数等于它的各位数字的立方和。试求所有这样的三位数中最大的一个是多少？ #include #include main() int i,ge,shi,bai; for(i=999;i=100;i-) ge=i%10; shi=i/10%10; bai=i/100; if(ge!=bai&ge!=shi&shi!=bai&(ge*ge*ge+bai*bai*bai+shi*shi*shi=i)

21、 printf(%5d,i);break; 41.设某四位数的千位数字与十位数字的和等于百位数字与个位数字的积，例如，对于四位数：9512，9+1=5*2，试问所有这样的四位数之和是多少？#include main()long s=0; int i,n=0,ge,shi,bai,qian; for(i=1000;i=9999;i+) ge=i%10; shi=i/10%10; bai=(i-shi*10-ge)/100%10; qian=i/1000; if(qian+shi=bai*ge) n+; s=s+i; printf(%5d,i);if(n%5=0) printf(n);clrscr

22、();printf(%d,%ld,n,s); 1236750所谓回文数是从左至右与从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求出100-900之间的所有回文数的个数。#include #include main() int i,ge, bai,n=0; for(i=100;i=999;i+) ge=i%10; bai=i/100; if(ge=bai) printf(%5d,i);n+; printf(%5d,n); 407当m的值为50时，计算下列公式的值： T=1-1/2-1/3-1/4-1/m要求：按四舍五入的方式精确到小数点后第四位。已知：f(n)=f(n-1)+

23、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)的值。.要求：按四舍五入的方式精确到小数点后第三位。0.6882计算y=1+2/3+3/5+4/7+n/(2*n-1)的值, n=50, 要求：按四舍

24、五入的方式精确到小数点后第二位。0.68求1/(1*2)+1/(2*3)+1/(3*4)+.+1/(N*(N+1)的值,N=20, 要求：按四舍五入的方式精确到小数点后第二位。0.691当m的值为50时，计算下列公式之值：t=1-1/(2*2)-1/(3*3)-1/(m*m)要求：按四舍五入的方式精确到小数点后第四位。26.47求方程8x-5y=3,在|x|=150, |y|2 )求f(0)到f(50)的所有51个值中的最大值。1.6251马克思曾经做过这样一道趣味数学题：有30个人在一家小饭店里用餐，其中有男人、女人和小孩，每个男人花了3先令，每个女人花了2先令，每个小孩花了1先令，共花去5

25、0先令。如果要求男人、女人和小孩都有人参与，试求有多少种方案分配男人、女人和小孩的人数。14若（x,y,z）满足方程：x2+y2+z2=552(注：要求 x y z),则（x,y,z）称为方程的一个解。试求方程的所有整数解中x+y+z的最大值。598325已知S1=2, S2=2+4, S3=2+4+6, S4=2+4+6+8,S5=2+4+6+8+10，,求 S=S1+S2+S3+S4+S5+S20的值。9若某整数平方等于某两个正整数平方之和的正整数称为弦数。例如：由于32+42=52，则5为弦数，求100，200之间弦数的个数。91自然数对是指两个自然数的和与差都是平方数，如8和17的和8

26、+17=25与其差17-8=9都是平方数，则称8和17是自然数对（8，17）。假定（A，B）与（B，A）是同一个自然数对且假定A=B，求所有小于或等于100（即：A=100,B=100，AB,A和B均不为0）的自然数对中B之和。3080有一个三位数满足下列条件: (1)此三位数的三位数字各不相同; (2)此三位数等于它的各位数字的立方和。试求所有这种三位数中最小的一个是多少？55已知：非等腰三角形最长边是60，其它两边的长度都是正整数，且三边之和能被3整除，试编程求取这类三角形的个数（注意：两边的长度交换构成的三角形算作同一个三角形，如：其它两边的长度为30和40的三角形与长度为40和30的三

27、角形视为同一个三角形）。1160设某四位数的千位数字的平方与十位数字的平方之和等于百位数字的立方与个位数字的立方之和，例如，对于四位数：3201， 32+02=23+13，试问这样的四位数有多少个？ 153有一个三位数满足下列条件: (1)此三位数的三位数字各不相同; (2)此三位数等于它的各位数字的立方和。试求所有这样的三位数之和。271求方程8x-5y=3,在|x|=150, |y|=B，求所有小于或等于100（即：A=100,B=100，AB,A和B均不为0） 的自然数对中A-B之差的和。1301有一个三位数满足下列条件: (1)此三位数的三位数字各不相同; (2)此三位数等于它的各位数

28、字的立方和。试求这种三位数共有多少个？ 2自然数对是指两个自然数的和与差都是平方数，如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之和。 509自然数对是指两个自然数的和与差都是平方数，如8和17的和8+17=25与其差 17-8=9都是平方数，则称8和17是自然数对（8，17）。假定（A，B）与（B，A）是同一个自然数对，求所有小于或等于100（即：A=100,B=100，AB,A和B均不为0）的自然

29、数对的数目。 4自然数对是指两个自然数的和与差都是平方数，如8和17的和8+17=25与其差17-8=9都是平方数，则称8和17是自然数对（8，17）。假定（A，B）与（B，A）是同一个自然数对，求所有小于或等于100（即：A=100,B=100，AB,A和B均不为0）的自然数对的和的和（即所有A+B和的和）。1669有36个学生一起买小吃，共花钱100元，其中每个大学生花3元，每个中学生花2元，每个小学生花1元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的解）？31设某四位数的千位数字平方与十位数字的平方之和等于百位数字的立方与个位数字的立方之和，例如，对于四位数：320

30、1， 32+02=23+13，试问所有这样的四位数之和是多少？ 2829求符合下列条件的四位完全平方数(某个正整数A是另一个正整数B的平方,则称A为完全平方数)，它的千位数字与十位数字之和等于百位数字与个位数字之积，例如，3136=562, 且3+3=1*6 故3136是所求的四位完全平方数. 求其中最大的一个数。3求数列：2/1，3/2，5/3，8/5，13/8，21/13， 前50项之和(注：此数列从第二项开始，其分子是前一项的分子与分母之和，其分母是前一项的分子)。（按四舍五入的方式精确到小数点后第二位）97993若（x,y,z）满足方程：x2+y2+z2=552(注：要求 x y z)

31、,则（x,y,z）称为方程的一个解。试求方程的所有整数解中，|x|+|y|+|z|的最大值。7921求方程8x-5y=3,在|x|=150, |y|=200内的整数解。试问这样的整数解中|x|*|y|的最大值是多少？ 83.24一个数如果恰好等于它的所有真因子之和，这个数就称为“完数”。例如，6的真因子为1，2，3，而6=1+2+3，因此，6是“完数”。求8100，8200之间的完数。24676求500以内（含500）能被5或9整除的所有自然数的倒数之和。按四舍五入的方式精确到小数点后第二位。一个数如果恰好等于它的所有真因子之和，这个数就称为“完数”。例如，6的真因子为1，2，3，而6=1+2

32、+3，因此，6是“完数”。求1,1000之间的第二大完数。8128有一个三位数满足下列条件: (1)此三位数的三位数字各不相同; (2)此三位数等于它的各位数字的立方和。试求所有这样的三位数中，第二大的是多少？ 1.48求在10，1000之间的所有完数之和。各真因子之和（不包括自身）等于其本身的正整数称为完数。例如：6=1+2+3，6是完数。28求200,300之间有奇数个不同因子的最大的整数(在计算因子个数时,包括1和该数本身)。371求200,300之间有奇数个不同因子的最小的整数(在计算因子个数时,包括1和该数本身)。 524求1，50之间的所有整数能构成直角三角形的三边的组数。例如：3

33、*3+4*4=5*5，它们构成直角三角形，所以3，4，5作为一组，但4，3，5视为跟3，4，5相同的一组。289求五位数各位数字的平方和为100的最大的五位数。225求1，999之间能被3整除，且至少有一位数字是5的所有正整数的个数。20求方程8x-5y=3,在|x|=150, |y|2试求F(2)+F(4)+F(6)+F(50)值。 提示： 最好使用递推法求解，因为使用递归调用很可能超出某些语言的递归深度。3665已知：f(0)=f(1)=1f(2)=0f(n)=f(n-1)-2*f(n-2)+f(n-3) (n2)求f(0)到f(50)中的最大值。2178308已知：f(0)=f(1)=1

34、f(2)=0f(n)=f(n-1)-2*f(n-2)+f(n-3) (n2)求f(0)到f(50)中的最小值。20365011073若两个素数之差为2，则称这两个素数为双胞胎数。求出200，1000之内有多少对双胞胎数。 598325数列：E(1)=E(2)=1E(n)=(n-1)*E(n-1)+(n-2)*E(n-2) (n2)称为E数列，每一个E(n),(n=1,2,)称为E数。求不超过30000的最大E数的值（注： 是求E2试求F(1)+F(3)+F(5)+F(49)值。 提示： 最好使用递推法求解，因为使用递归调用很可能超出某些语言的递归深度。4编写程序，求1，500既能被3整除又能被

35、5整除的数的个数。23已知Fibonacci数列：1,1,2,3,5,8,它可由下面公式表述：F(1)=1 if n=1F(2)=1 if n=2F(n)=F(n-1)+F(n-2) if n2试求F(45)值。 提示： 最好使用递推法求解，因为使用递归调用很可能超出某些语言的递归深度。12586269025编写程序，求共有几组i、j、k符合算式ijk+kji=1333，其中i、j、k是09之间的一位整数。33已知A，B为正整数, A2试求F(50)值。 提示： 最好使用递推法求解，因为使用递归调用很可能超出某些语言的递归深度。1534有50个学生一起买小吃，共花钱120元，其中每个大学生花4

36、元，每个中学生花2元，每个小学生花1元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的）？205有48个学生一起买小吃，共花钱120元，其中每个大学生花3元，每个中学生花2元，每个小学生花1元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的解）？12586269025已知：Sn=2/1+3/2+4/3+(n+1)/n, 求Sn不超过50的最大值（按四舍五入的方式精确到小数点后第三位）。13已知24有8个正整数因子（即：1，2，3，4，6，8，12，24），而24正好能被其因子数8整除，求正整数10，100之间有多少个正整数能被其因子的个数整除。11若（x,y

37、,z）满足方程：x2+y2+z2=552(注：要求 x y z),则（x,y,z）称为方程的一个解。试求方程的所有整数解中|x|+|y|+|z|的最小值。 49.395若（x,y,z）满足方程：x2+y2+z2=552(注：要求 x y z),则（x,y,z）称为方程的一个解。试求方程的所有整数解中|x+y+z|的最小值。 12已知一个数列的前三项为0，0，1，以后各项都是其相邻的前三项之和，求该数列前30项之和。67爱因斯坦走台阶:有一台阶,如果每次走两阶,最后剩一阶;如果每次走三阶,最后剩两阶;如果每次走四阶,最后剩三阶;如果每次走五阶,最后剩四阶;如果每次走六阶,最后剩五阶;如果每次走七

38、阶,刚好走完.求满足上述条件的最小台阶数是多少？1求2，400中相差为10的相邻素数对的对数。18947744已知：A1=1, A2=1/(1+A1), A3=1/(1+A2), A4=1/(1+A3), , 求A50.（按四舍五入的方式精确到小数点后第三位）。119若两个自然连续数乘积减1后是素数,则称此两个自然连续数为友数对,该素数称为友素数,例:2*3-1=5,因此2与3是友数对,5是友素数,求2,49之间友素数对的数目. 5若两个连续的自然数的乘积减1后是素数，则称此两个连续自然数为友数对，该素数称为友素数。例如，由于 8*9-1=71， 因此，8与9是友数对，71是友素数。求100，200之间的第10个友素数对所对应的友素数的值（按由小到大排列）。0.618计算Y=X/1!-X3/3!+X5/5!-X7/7!+前20项的