63：下列程序的功能是:把S字符串中的所有字符左移一个位置,串中的第一个字符移到最后.请编写函数CHG(CHAR *S)实现程序要求,最后调用函数READWRITEDAT()把结果输出到OUT.DAT文件中.

例如:S字符串中原有内容为:Mn.123xyZ,则调用函数后,结果为:n.123xyZM.

  void chg(char*s) /*标准答案*/

{int I,strl;

 char ch;

 strl=strlen(s);

 ch=*s;

 for(I=0;I<strl1;I++)

 *(s+I)=*(s+I+1);

 *(s+strl1)=ch;

}

64：下列程序的功能是：找出所有100以内(含100)满足I，I+4，I+10都是素数的整数I(I+10也在100以内)的个数cnt以及这些I之和sum。请编写函数countvalue()实现程序要求，最后调用函数writeDat()把结果cnt和sum输出到文件out.dat中。

void countValue() /*标准答案*/

{int I,count=0,xx[30];

 int j,k,m;

 cnt=0;

 sum=0;

 for(I=1;I<=90;I++)

 if(isPrime(I)) {xx[count]=I;count++;}

 for(I=0;I<count;I++)

  if (isPrime(xx[I]+4)&&isPrime(xx[I]+10))

   {cnt++;

sum+=xx[I];}

}

79：请编写函数void countvalue(int *a, int *n)，它的功能是：求出1到1000之内能被7或11整除但不能同时被7和11整除的所有整数放在数组a中，并通过n返回这些数的个数。

void countValue(int *a,int *n) /*标准答案*/

{int I;

*n=0;

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

 if(I%7==0&&I%11){*a=I;*n=*n+1;a++;}

 else if(I%7&&I%11==0) {*a=I;*n=*n+1;a++;}

}

90：下列程序的功能是：将一正整数序列{K1,K2,...,K9}重新排列成一个新的序列。新序列中，比K1小的数都在K1的左面(后继的再向U左存放)，比K1大的数都在K1的右面(后续的再向右存放)，从k1想右扫描。要求编写函数jsvalue()实现此功能，最后调用writeDat()函数所新序列输出到文件out.dat中。

  说明：在程序中已给出了10个序列，每个序列有9个正整数，并存入数组a[10][9]中，分别求出这10个新序列。

  例：序列{6,8,9,1,2,5,4,7,3}

  经重排后成为{3,4,5,2,1,6,8,9,7}

 jsValue(int a[10][9]) /*标准答案*/

{int value,I,j,k,num;

 for(I=0;I<10;I++)

 {value=a[I][0];

  for(j=0;j<9;j++)

  if (a[I][j]<value)

  {num=a[I][j];

   for(k=j;k>0;k)

   {num=a[I][j];

for(k=j;k>0;k)

a[I][k]=a[I][k1];

a[I][0]=num;   }

 }}

}

92：请编制程序，从文件in.dat中读取200个整数至数组xx中，求出最大数max及最大数的个数cnt和数组xx中值能被3整除或能被7整除的算求增均值pj(保留2位小数)。结果cnt1,cnt2,pj输出到out.dat中。

       max=xx[0]; /*标准答案*/

   for(I=1,k=0;I<N;I++)

   {if (xx[I]>max) max=xx[I];

    if (xx[I]%3==0||xx[I]%7==0)

     {j+=xx[I];k++;}

   }

   for(I=0,cnt=0;I<N;I++)

   if (xx[I]==max) cnt++;   pj=(float)(j*100/k)/100;