} return a; }
void main() {
FILE *p;
p=fopen(\
fprintf(p,\ fclose(p); }
30. 设计程序:数列各项为1,1,2,3,5,8,13,21,...,求其前40项之和,并将求和的结果以格式\写到考生目录中Paper子目录下的新建文件design.dat中。
#include
31. 设计程序:x[i],y[i]分别表示平面上一个点的坐标,求下列10个点与点(1.0,1.0)的距离的总和,并将结果以格式\写入到考生目录中Paper子目录下的新建文件design.dat中。
#include
FILE *p; int i;
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; p=fopen(\ for(i=0;i<10;i++) s+=sqrt(pow((x[i]-1.0),2)+pow((y[i]-1.0),2)); fprintf(p,\ fclose(p); }
32. 设计程序:一个球从100米高度落下,每次落地后都反弹至原高度一半位置,再落下。计算出第10次落地时小球共经过的距离,并将结果以格式\写入到考生目录中Paper子目录下的新建文件design.dat中。
31
#include
33. 设计程序:利用公式π/4≈1-1/3+1/5-1/7+??公式计算π的近似值,直到某一项的绝对值小于1e-6为止(π/4的结果不包含此项)。将结果以格式\写入到考生目录中Paper子目录下的新建文件design.dat中。
#include
34. 设计程序:某公司1999年年产量11.5万件,生产能力每年提高9.8%,求出产量能超过x万件的年份,结果由函数Year返回。计算当x=20和x=30时的结果,将计算结果输出到考生目录中Paper子目录下的新建文件design.dat中。
#include
32
return y; }
void main() {
FILE *p;
p=fopen(\
fprintf(p,\ fclose(p); }
35. 设计程序:找出1000至9999之间符合条件的自然数。条件是:若一个四位数的千位数字上的值小于等于百位数字上的值,百位数字上的值小于等于十位数字上的值,以及十位数字上的值小于等于个位数字上的值,并且此四位数是偶数,统计出满足此条件的自然数的个数cnt,以格式\写入到考生目录中Paper子目录下的新建文件design.dat中。
#include
FILE *p; int cnt=0; int i,a,b,c,d; p=fopen(\ for(i=1000;i<=9999;i++){ a=i/1000; b=(i-a*1000)/100; c=(i-a*1000-b*100)/10; d=i; if(a%2!=0 || b%2!=0 || c%2!=0 || d%2!=0) continue; if(a<=b && b<=c && c<=d) cnt++; }
fprintf(p,\ fclose(p); }
36. 设计程序:有数列:2/1,3/2,5/3,8/5,13/8,21/13,??求出数列的前40项的和。将结果以格式\写入到考生目录中Paper子目录下的新建文件design.dat中。
#include
FILE *p; int i;
float f1=1.0,f2=2.0,t1=2.0,t2=3.0,s; float f,t;
s=t1/f1+t2/f2; p=fopen(\ for(i=3;i<=40;i++){ t=f2; f2=f1+f2; f1=t;
33
t=t2; t2=t1+t2; t1=t; s=s+t2/f2; } fprintf(p,\ fclose(p); }
37. 设计程序:求解百鸡问题。
已知公鸡每只5元、母鸡每只3元、小鸡1元3只。求出用100元买100只鸡的解。将得到的解按公鸡、母鸡和小鸡的只数以\的格式写入到考生目录中Paper子目录下的新建文件design.dat中。
#include
38. 设计程序:求斐波那契(Fibonacci)数列中其前40项之和,其中斐波那契数列的定义为:后一项为前两项之和,并将求和的结果以格式\写到考生目录中Paper子目录下的新建文件design.dat中。
#include
39. 设计程序:在整数数组a中找出偶数放到b数组中,对b数组按从小到大的顺序进行排序后以格式\每行3个数写到考生目录中Paper子目录下的新建文件design.dat中。
#include
34
}
FILE *p;
int i,j,temp,n=0;
int a[10]={7,6,20,3,14,88,53,62,10,29},b[10]; p=fopen(\for(i=0,j=0;i<10;i++) if(a[i]%2==0){ b[j]=a[i]; j++; n++; }
for(i=0;i
for(j=0;j fclose(p); 35