2010计算机等考二级C：上机习题12套(8)

　　第八套C语言上机试题

　　一、改错题

　　①将原第六行的if(fp= =fopen("myf1.out","w"))= =NULL) EXIT(1);中第一个等号= =改为赋值号=

　　②将原第十二行的strlenth(inline[i ],len);改为strlenth(inline[i ],&len);

　　③将原第十九行的strlenth(char p, int len)改为strlenth(char *p, int *len)

　　④将原第二十行的len=0;改为*len=0;

　　二、编程题

　　#include

　　#include

　　main( )

　　{int i ,k;float e1,e,fat,pa=1,term=1,j=2;

　　FILE *fp;

　　if((fp=fopen("A:\\myf2.out","w"))= =NULL)exit(1);

　　e1=1;e=2;fat=2;i=3;

　　while(fabs(e-e1)>1e-6)

　　{e1=e; e+=1.0/fat;

　　fat*=i ++; }

　　for(k=1;k<=1000;k++)

　　{term=j/(2*k-1)*j/(2*k+1);

　　pa*=term; j+=2; }

　　fprintf(fp,"e=%f\n i =%d\n",e, i -1);

　　fprintf(fp,"pi=%f\nj=%f\n",pa*2,j);

　　fclose(fp); }