★題目22
�牐犝�(qǐng)編寫(xiě)函數(shù)countvalue()，它的功能是：求n以內(nèi)（不包括n）同時(shí)能被3與7整除的所有自然數(shù)之和的平方根s，并作為函數(shù)值返回，最后結(jié)果s輸出到文件out.dat中。
�牐� 例如若n為1000時(shí)，函數(shù)值應(yīng)為：s=153.909064。
�牐� 部分源程序存在文件prog1.c中。
�牐� 請(qǐng)勿改動(dòng)主函數(shù)main()和輸入輸出數(shù)據(jù)函數(shù)progreadwrite()的內(nèi)容。
�牐�#include
�牐�#include
�牐�#include
�牐�
�牐燿ouble countvalue(int n)
�牐爗 int i;
�牐� double s=0.0;
�牐� for(i=1;i�牐� if(i%21==0) s+=i;
�牐� return sqrt(s);
�牐爙
�牐�
�牐爉ain()
�牐爗
�牐� clrscr();
�牐� printf("自然數(shù)之和的平方根=%f\n",countvalue(1000));
�牐� progreadwrite();
�牐爙
�牐�
�牐爌rogreadwrite()
�牐爗
�牐� file *fp,*wf;
�牐� int i,n;
�牐� float s;
�牐�
�牐� fp=fopen("in.dat","r");
�牐� if(fp==null){
�牐� printf("數(shù)據(jù)文件in.dat不存在!");
�牐� return;
�牐� }
�牐� wf=fopen("out.dat","w");
�牐� for(i=0;i<10;i++){
�牐� fscanf(fp,"%d\n",&n);
�牐� s=countvalue(n);
�牐� fprintf(wf,"%f\n",s);
�牐� }
�牐爁close(fp);
�牐爁close(wf);
�牐爙