CC语言课程设计Word文档格式.docx
《CC语言课程设计Word文档格式.docx》由会员分享，可在线阅读，更多相关《CC语言课程设计Word文档格式.docx（26页珍藏版）》请在冰豆网上搜索。
3/*100-400内的水仙花数的个数*/
=400;
4,/*0-60内每位数的乘积大于和的数个数*/
inta,b,c,d,e,i=0;
for（a=0;
=6;
b=a/10;
c=a%10;
d=a*b;
e=a+b;
if（d==e）
5/*满足1/A^2+1/B^2=1/C^2关系时，称为倒勾股数*/
inta,b,c,t=0;
floatx,y,z;
for（a=1;
=100;
{for（b=1;
b<
b++）
for（c=1;
c<
c++）
x=1/（a*a）;
y=1/（b*b）;
z=1/（c*c）;
if（x+y==z&
a+b+c<
150&
a+b+c>
130&
a>
b&
c&
b>
c）
6,/*爱因斯坦走台阶*/
ints;
for（s=0;
;
s++）
if（s%2==1&
s%3==2&
s/4==3&
s/5==4&
s/6==5&
s%7==0）break;
s）;
7./*121-140内弦数的个数*/
inta=0,b=0,c=121,i=0;
for（c=121;
=140;
=15;
for（b=0;
if（c*c==a*a+b*b）
continue;
8/*1000内其十位数是6能被8整除数的个数*/
inta,i=0;
for（a=10;
=1000;
if（a%100/10==6&
a%8==0）
9/*0-60内每位数的乘积大于和的数个数*/
=60;
d=c*b;
e=c+b;
if（d>
e）
10./*1-5000内能被5整除偶数之和大于500和的值*/
inta,b=0;
for（a=2;
=5000;
a+=2）
if（a%5==0）
b=b+a;
while（b>
500）;
b）;
11./*100-500内能被3整除余2和能被5整除余3的个数*/
=500;
if（a%3==2&
a%5==3）
b++;
12/*1-7000内能被3或者能被7整除的个数*/
=7000;
if（a%3==0||a%7==0）
13./*3-100内非偶数非素数之和*/
math.h>
inta,i,k,b=0;
for（a=3;
k=sqrt（a）;
for（i=2;
i<
=k;
i++）
{if（a%i==0）break;
if（i>
k+1）
14/*求满足ijk+kji=1534,且i<
k,解的组数*/
intj,i,k,b=0;
for（j=0;
j<
=9;
j++）
for（k=0;
k<
k++）
for（i=0;
k;
if（100*i+10*j+k+100*k+10*j+i==1534）
15/*有四位数ABCD的个数，该四位数是11的倍数，且A=B+C，即第2位数加上第3位数等于第1位数。
4*/
intj,i,k,a,b=0;
for（j=1000;
=9999;
i=j/1000;
k=j%1000/100;
a=j%100/10;
if（j%11==0&
i==k+a）
16/*求三位数的偶数中，所有各位数字之和是15的倍数的数的个数*/
intj,i,k,a,s,b=0;
for（j=100;
j+=2）
i=j/100;
k=j%100/10;
a=j%10;
s=i+k+a;
if（s%15==0）
17/*四位数的奇数中，所有各位数字之积是125的倍数的数的和*/
intj,i,k,a,c,s,b=0;
for（j=1111;
i=j/1000;
k=j%1000/100;
c=j%10;
s=i*k*a*c;
if（s%125==0）
b=b+j;
18/*5000以内能被17或者23整除的正整数的个数*/
for（j=1;
j++）
if（j%17==0||j%23==0）
19/*四位数的偶数中，所有各位数字之和是30的倍数的数的和*/
i=j/1000;
c=j/10;
s=i+k+a+c;
if（s%30==0）
21/*统计1000~9999之间的所有满足以下条件的四位数的个数。
该数是一个完全平方数*/
inta,b,c,d,s,x,y,t=0;
for（s=1000;
s<
a=s/1000;
b=s%1000/100;
c=s%100/10;
d=s%10;
x=sqrt（s）;
y=x*x;
if（a+b==12&
c*d==24&
y==s）
22/*S=1+3+5+7+9+…，求S不大于9000的最大值*/
intj,s=0;
s+=j;
if（s>
9000）break;
s=s-j;
23/*S=2+4+8+16+32+…，求S不大于1500的最大值*/
for（j=2;
j=2*j）
1500）break;
25/*m的值为50时，计算下列公式的值T=1-1/2-1/3-1/4-…-1/m*/
#include<
main（）
floatn,m,s,T;
s=0;
for（n=2;
n<
=50;
n++）
m=-1/n;
s=s+m;
T=1+s;
%0.4f"
T）;
26,/*当n的值为25时，计算下列公式的值:
s=1+1/1!
+1/2!
+1/3!
+…+1/n*/
floats,T;
intm=1,n=1;
for（n=1;
=25;
m=m*n;
s=s+1/m;
27/*斐波那契数列,10000000以内最大的斐波那契数*/
longintf1,f2,n;
f1=1;
f2=1;
do
f1=f1+f2;
f2=f1+f2;
}while（f1>
10000000）;
%ld\n%ld"
f1,f2）;
28/*计算y=1+2/3+3/5+4/7+.....+n/（2*n-1）的值，n=50*/
floaty=0,m,s;
intt,n;
t=2*n-1;
m=1.0/t;
s=m*n;
y+=s;
%.2f"
y）;
29/*计算y=x/1!
-x^3/3!
+x^5/5!
-x^7/7!
...前20项的值x=2*/
floaty=0,m,s,x;
=20;
{x=-4*x;
m=2*n+1;
t=t*m*（m-1）;
s+=x/t;
30/*梅森尼数2^n-1是素数，【2-21】内的梅森尼数个数*/
intn,m,i,j,k,x=0;
=21;
{m=2*m;
i=m-1;
k=sqrt（i）;
for（j=3;
if（i%k==0）break;
if（j>
=k+1）
x++;
x）;
31/*两位数分子分母各个数之和的比等于原来的值*/
intn,m,a,b,c,d,s;
floatx,y;
for（n=10;
=98;
for（m=11;
m<
=99;
m++）
{a=n/10;
b=n%10;
c=m/10;
d=m%10;
x=n/m;
y=（a+b）/（c+d）;
if（m>
n&
x==y）
s+=a+b+c+d;
32/*1-50内构成直角三角形的组数*/
intx,y,z,n=0,t;
for（x=1;
for（y=1;
for（z=1;
if（x+y>
x*x+y*y==z*z）
n++;
t=n/3;
%d"
33/*一正整数递减，每次减半后减一，10次后剩一*/
intn,s=0,m=1;
=10;
m=2*（m+1）;
}
%d\n"
m）;
34./*2/1,3/2,5/3,.....前50项和*/
intx1=1,x2=2,n;
floatt,s=0;
{t=x2/x1;
s+=t;
x2=x1+x2;
x1=x2;
%.2f"
35，/*求五位数各个位数平方和为100的最大五位数*/
intx,a,b,c,d,e,m,n,max;
for（x=10000;
=99999;
a=x/10000;
b=x%10000/1000;
c=x%1000/100;
d=x%100/10;
e=x%10;
m=a*a+b*b+c*c+d*d+e*e;
if（m==100）break;
max=x;
for（n=x;
a=n/10000;
b=n%10000/1000;
c=n%1000/100;
d=n%100/10;
e=n%10;
if（m==100）
max=n;
%ld"
max）;
36，#include<
longinty,k;
intx,i=0;
for（x=2;
{y=x*x;
k=y-x;
if（x<
10&
k%10==0）
i=i+x;
if（x>
=10&
=99&
k%100==0）
=100&
=999&
k%1000==0）
if（x==1000&
k%10000）
37/*求50-150之间的友对数*/
intx,y,z,i,t=0;
for（x=50;
=150;
y=x+1;
z=x*y-1;
=z-1;
if（z%i==0）break;
if（z%i!
=0）
if（i==z-1）
38/*求[1，30000]之内E数的个数,E
（1）=E
（2）=1;
E（n）=（n-1）*E（n-1）+（n-2）*E（n-2）*/
inti,j=2,n;
longinta[]={0,1,1};
for（n=3;
;
{a[n]=（n-1）*a[n-1]+（n-2）*a[n-2];
for（i=1;
=30000;
if（a[n]==i）
{j++;
break;
if（a[n]>
=30000）
break;
j）;
39./*试求所有两位绝对素数的和,绝对素数是交换位子后仍为素数*/
inti,j,a,b,x,k,s=0;
for（i=11;
i+=2）
=i-1;
{if（i%j==0）
if（i%j!
{if（j==i-1）
{a=i/10;
b=i%10;
x=10*b+a;
for（k=2;
=x-1;
{if（x%k==0）
if（x%k!
{if（k==x-1）
s=s+i;
}}
40./*f（0）=f
（1）=1,f
（2）=0f（n）=f（n-1）-2*f（n-2）+f（n-3）,（n>
2）求f（0）到f（50）中的最大值*/
longinta[50]={1,1,0},max;
inti;
for（i=3;
{max=a[1];
a[i]=a[i-1]-2*a[i-2]+a[i-3];
if（max<
a[i]）
max=a[i];
else
max=max;
%ld"
41，/*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）*/
longinta[31]={1,2,3},s=a[0]+a[1]+a[2];
=30;
a[i]=a[i-1]+2*a[i-2]-5*a[i-3];
s=s+a[i];
42./*A1=1,A2=1/（1+A1）,A3=1/（1+A2）,A4=1/（1+A3）,……,求A50*/
floata[51]={0,1};
a[i]=1.0/（1+a[i-1]）;
%.3f"
a[50]）;
43./*A，B为正整数,A<
B,A*B=2698，且要求A+B取最小值，求满足上述条件的B值*/
intA,B,d,min=2699;
longintc;
for（B=2;
B<
=2698;
B++）
for（A=1;
A<
B;
A++）
{c=A*B;
if（c==2698）
{d=A+B;
if（min>
d）
min=d;
{for（A=1;
{min=A+B;
c=A*B;
B）;
44/*A<
B,A和B均为正整数，且A*B=2698，求A+B的最小值*/
p
升级会员 