上机程序调试及程序设计练习
（15） 计算数列1，-1/3!，1/5!，-1/7!，1/9!，……的和至某项的绝对值小于1e-5时为止（该项不累加），
将求和的结果以格式\写入到考生文件夹中Paper子文件夹下的新建文件Design1.dat中。 #include
{ FILE *p; float s=1,t=1,i=3; /*考生在这里添加代码*/ }
（16） 计算多项式a0+a1*sin(x)+a2*sin(x*x)+a3*sin(x*x*x)+…..+a9*sin(x*x*x*x*x*x* x*x*x)的值，并将
结果以格式\写入到考生文件夹中Paper子文件夹下的新建文件Design2.dat中。 #include
int i; float x=2.345,t=1.0,y=0.0;
float a[10]={1.2,-1.4,-4.0,1.1,2.1,-1.1,3.0,-5.3,6.5,-0.9}; /*考生在这里添加代码*/ }
（17） 有数列：2/1，3/2，5/3，8/5，13/8，21/13，......求出数列的前40项的和。将计算结果以格式\
写入到考生文件夹中Paper子文件夹下的新建文件Design1.dat中。 #include
float f1=1.0,f2=2.0,t1=2.0,t2=3.0,s; float f,t;
s=t1/f1+t2/f2;
/*考生在这里添加代码*/ }
（18） 累加a字符串各个字符的ASCII码值，然后将累加和以格式\写入到考生文件夹中Paper子文
件夹下的新建文件Design2.dat中。 #include
{ FILE *p; int s=0,i=0;
char *a=\ /*考生在这里添加代码*/ }
（19） 计算2的平方根、3的平方根、……、10的平方根之和，要求计算结果具有小数点后10位有效
位数，并以格式\写入到考生文件夹中Paper子文件夹下的新建文件Design2.dat中。 #include
16 of 21 4/1/2013
上机程序调试及程序设计练习
#include
/*考生在这里添加代码*/ }
（20） x[i]，y[i]分别表示平面上的 一个点的 坐标，求下列10个点与点（1.0，1.0）的 距离的总和，
并将结果以格式\写入到考生文件夹中Paper子文件夹下的新建文件Design2.dat。 #include
float x[10]={-1.5,2.1,6.3,3.2,-0.7,7.0,5.1,3.2,4.5,7.6}; float y[10]={3.5,7.6,8.1,4.5,6.0,1.1,1.2,2.1,3.3,4.4}; float s=0.0;
/*考生在这里添加代码*/ }
（21） 在正整数中找出1个最小的、被3、5、7、9除余数分别为1、3、5、7的数，将该数以格式\
写入到考生文件夹中Paper子文件夹下的新建文件Design1.dat中。 #include
{ /*考生在这里添加代码*/ }
（22） 寻找并输出11至999之间的数m，它满足m、m*m、m*m*m均为回文数。说明：所谓回文数
是指各位数字左右对称，例如121、676、94249等。满足上述条件的数如m=11，m^2=121，m^3=1331皆为回文数。
请编制函数int JSValue(long m)实现此功能，如果是回文数，则函数返回1，反之则返回0。最后把结果写入到考生文件夹中Paper子文件夹下的新建文件Design2.dat。
#include
{ /*考生在这里添加代码*/
/***添加代码结束***/ }
void main() {
17 of 21 4/1/2013
上机程序调试及程序设计练习
FILE *p;long m;
p=fopen(\ for(m=11;m<1000;m++) {
if(JSValue(m)&&JSValue(m*m)&&JSValue(m*m*m)) fprintf(p,\ }
fclose(p); }
（23） 数组元素x[i]、y[i]表示平面上某点坐标，统计10个点中处在圆（方程为：
(x-1)*(x-1)+(y+0.5)*(y+0.5)=25）内的点数k，并将变量k的值以格式\写入到考生文件夹中Paper子文件夹下的新建文件Design1.dat。 #include
{ FILE *p; int i,k=0;
float x[]={1.1,3.2,-2.5,5.67,3.42,-4.5,2.54,5.6,0.97,4.65}; float y[]={-6,4.3,4.5,3.67,2.42,2.54,5.6,-0.97,4.65,-3.33}; /*考生在这里添加代码*/ }
（24） 某公司1999年年产量11.5万件，生产能力每年提高9.8%，求出产量能超过x万件的年份，结果
由函数Year返回。分别计算当x=20和x=30时的结果，将计算结果写入到考生文件夹中Paper子文件夹下的新建文件Design1.dat。 #include
{ int p=11.5,y=1999;
/*考生在这里添加代码*/
/***添加代码结束***/ }
void main() { FILE *p;
p=fopen(\
fprintf(p,\ fclose(p); }
（25） 求斐波那契（Fibonacci）数列中其前40项之和，（斐波那契数列的定义为后一项为前两项之和），
并将求和的结果以格式\写入到考生文件夹中Paper子文件夹下的新建文件Design2.dat。 #include
18 of 21 4/1/2013
上机程序调试及程序设计练习
{ FILE *p; long s=0,i,a[40]; /*考生在这里添加代码*/ }
（26） 求斐波那契（Fabonacci）数列中大于t的最小的一个数，结果由函数JSValue返回，其中斐波那
契数列F(n)的定义为：
F(0)=0, F(1)=1 F(n)=F(n-1)+F(n-2)
分别计算当t=1000和t=3000时的结果，将计算结果写入到考生文件夹中Paper子文件夹下的新建文件Design1.dat。 #include
{ /*考生在这里添加代码*/
/***添加代码结束***/ }
void main() { FILE *p;
p=fopen(\
fprintf(p,\ fclose(p); }
（27） 已知公鸡每只5元、母鸡每只3元、小鸡1元3只。求出用100元买100只鸡的解。将得到的解
按公鸡、母鸡和小鸡的只数以格式\写入到考生文件夹中Paper子文件夹下的新建文件Design1.dat。 #include
int cock,hen,chick;
/*考生在这里添加代码*/ }
（28） 统计满足条件x*x+y*y+z*z==2000的所有解的个数，（注意：若a、b、c是一个解，则a、c、b
也是一个解，等等）。并将统计结果以格式\写入到考生文件夹中Paper子文件夹下的新建文件Design1.dat。 #include
{ FILE *p; int x,y,z,k=0; /*考生在这里添加代码*/ }
19 of 21 4/1/2013
上机程序调试及程序设计练习
（29） 将数组a的每1行均除以该行上的主对角线元素（第1行除以a[0][0]，第2行除以a[1][1]，……），
然后将a数组写入到考生文件夹中Paper子文件夹下的新建文件Design2.dat。 #include
{ float a[3][3]={{1.3,2.7,3.6},{2,3,4.7},{3,4,1.27}}; FILE *p;
/*考生在这里添加代码*/
/***添加代码结束***/ for( i=0;i<3;i++) {
for( j=0;j<3;j++) fprintf(p,\ fprintf(p,\ }
fclose(p); }
（30） 计算500~800区间内素数的个数cnt和素数和sum。请编写函数JSValue()实现程序的要求。最后
把cnt和sum的值写入到考生文件夹中Paper子文件夹下的新建文件Design2.dat。 #include
/*考生在这里添加代码*/
/***添加代码结束***/ }
void main() { FILE *p;
p=fopen(\ JSValue();
fprintf(p,\ fclose(p); }
（31） 将满足条件pow(1.05,n)<1e6 考生文件夹中Paper子文件夹下的新建文件Design2.dat。 #include { float y=1.05; int n=1; FILE *p; /*考生在这里添加代码*/ /***添加代码结束***/ 20 of 21 4/1/2013 上机程序调试及程序设计练习 fprintf(p,\ fclose(p); } 21 of 21 4/1/2013