2010計(jì)算機(jī)等考二級(jí)C：上機(jī)習(xí)題12套(8)

　　第八套C語(yǔ)言上機(jī)試題

　　一、改錯(cuò)題

　�、賹⒃�第六行的if(fp= =fopen("myf1.out","w"))= =NULL) EXIT(1);中第一個(gè)等號(hào)= =改為賦值號(hào)=

　�、趯⒃�第十二行的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); }