１.*PROG1 已知在文件IN.DAT中存有若干個（個數(shù)<200）四位數(shù)字的正整數(shù)，函數(shù)ReadDat()是讀取這若干個正整數(shù)并存入數(shù)組XX中。請編制函數(shù)CalValue()，其功能要求：1、求出這文件中共有多少個正整數(shù)totNum；２、求出這些數(shù)中的各位數(shù)字之和是偶數(shù)的數(shù)的個數(shù)totCnt，以及滿足此條件的這些數(shù)的算術(shù)平均值totpjZ，最后調(diào)用函數(shù)WriteDat()把所求的結(jié)果輸出到文件OUT2.DAT中。注意：部分部分源程序存放在PROG1.C中。請勿改動主函數(shù)main()，讀數(shù)據(jù)函數(shù)ReacdDat()和輸出數(shù)據(jù)函數(shù)WriteDat()的內(nèi)容。*/
#include
#include
#define MAXNUM 200
int xx[MAXNUM] ;
int totNum = 0 ; /* 文件IN.DAT中共有多少個正整數(shù) */
int totCnt = 0 ; /* 符合條件的正整數(shù)的個數(shù) */
double totPjz = 0.0 ; /* 平均值 */
int ReadDat(void) ;
void WriteDat(void) ;
void CalValue(void)
{ int i;
int a,b,c,d;
double sum=0;
for (i=0;iif (xx[i]>0)
{
totNum++;
a=xx[i]/1000;
b=xx[i]/100-a*10;
c=xx[i]/10-a*100-b*10;
d=xx[i];
if((a+b+c+d)%2==0)
{totCnt++;
sum=sum+xx[i];
}
}
totPjz=sum/totCnt;
}
void main()
{
clrscr() ;
if(ReadDat()) {
printf("數(shù)據(jù)文件IN.DAT不能打開!\007\n") ;
return ;
}
CalValue() ;
printf("文件IN.DAT中共有正整數(shù)=%d個\n", totNum) ;
printf("符合條件的正整數(shù)的個數(shù)=%d個\n", totCnt) ;
printf("平均值=%.2lf\n", totPjz) ;
WriteDat() ;
}
int ReadDat(void)
{
FILE *fp ;
int i = 0 ;
if((fp = fopen("in.dat", "r")) == NULL) return 1 ;
while(!feof(fp)) {
fscanf(fp, "%d,", &xx[i++]) ;
}
fclose(fp) ;
return 0 ;
}
void WriteDat(void)
{
FILE *fp ;
fp = fopen("OUT2.DAT", "w") ;
fprintf(fp, "%d\n%d\n%.2lf\n", totNum, totCnt, totPjz) ;
fclose(fp) ;
}
2./*PROG2 已知在文件IN.DAT中存有若干個（個數(shù)<200）四位數(shù)字的正整數(shù)，函數(shù)ReadDat()是讀取這若干個正整數(shù)并存入數(shù)組XX中。請編制函數(shù)CalValue()，其功能要求：1、求出這文件中共有多少個正整數(shù)totNum；２、求出這些數(shù)右移1位后，產(chǎn)生的新數(shù)是偶數(shù)的數(shù)的個數(shù)totCnt，以及滿足此條件的這些數(shù)（右移前的值）的算術(shù)平均值totpjZ，最后調(diào)用函數(shù)WriteDat()把所求的結(jié)果輸出到文件OUT4.DAT中。
注意：部分部分源程序存放在PROG2.C中。
請勿改動主函數(shù)main()，讀數(shù)據(jù)函數(shù)ReacdDat()和輸出數(shù)據(jù)函數(shù)WriteDat()的內(nèi)容。*/
#include
#include
#define MAXNUM 200
int xx[MAXNUM] ;
int totNum = 0 ; /* 文件IN.DAT中共有多少個正整數(shù) */
int totCnt = 0 ; /* 符合條件的正整數(shù)的個數(shù) */
double totPjz = 0.0 ; /* 平均值 */
int ReadDat(void) ;
void WriteDat(void) ;
void CalValue(void)
{ int i,s;
double sum=0;
for (i=0;iif (xx[i]>0)
{ totNum++;
s=xx[i];
s=s>>1;
if ((s%2)==0)
{
totCnt++;
sum=sum+xx[i];
}
}
totPjz=sum/totCnt;
}
void main()
{
clrscr() ;
if(ReadDat()) {
printf("數(shù)據(jù)文件IN.DAT不能打開!\007\n") ;
return ;
}
CalValue() ;
printf("文件IN.DAT中共有正整數(shù)=%d個\n", totNum) ;
printf("符合條件的正整數(shù)的個數(shù)=%d個\n", totCnt) ;
printf("平均值=%.2lf\n", totPjz) ;
WriteDat() ;
}
int ReadDat(void)
{
FILE *fp ;
int i = 0 ;
if((fp = fopen("in.dat", "r")) == NULL) return 1 ;
while(!feof(fp)) {
fscanf(fp, "%d,", &xx[i++]) ;
}
fclose(fp) ;
return 0 ;
}
void WriteDat(void)
{
FILE *fp ;
fp = fopen("OUT4.DAT", "w") ;
fprintf(fp, "%d\n%d\n%.2lf\n", totNum, totCnt, totPjz) ;
fclose(fp) ;
}
3./*PROG3 已知在文件IN.DAT中存有若干個（個數(shù)<200）四位數(shù)字的正整數(shù)，函數(shù)ReadDat()是讀取這若干個正整數(shù)并存入數(shù)組XX中。請編制函數(shù)CalValue()，其功能要求：1、求出這文件中共有多少個正整數(shù)totNum；２、求出這些數(shù)中的個位數(shù)位置上的數(shù)字是3.6和9的數(shù)的數(shù)的個數(shù)totCnt，以及滿足此條件的這些數(shù)的算術(shù)平均值totpjZ，最后調(diào)用函數(shù)WriteDat()把所求的結(jié)果輸出到文件OUT5.DAT中。
注意：部分部分源程序存放在PROG3.C中。請勿改動主函數(shù)main()，讀數(shù)據(jù)函數(shù)ReacdDat()和輸出數(shù)據(jù)函數(shù)WriteDat()的內(nèi)容。*/
#include
#include
#define MAXNUM 200
int xx[MAXNUM] ;
int totNum = 0 ; /* 文件IN.DAT中共有多少個正整數(shù) */
int totCnt = 0 ; /* 符合條件的正整數(shù)的個數(shù) */
double totPjz = 0.0 ; /* 平均值 */
int ReadDat(void) ;
void WriteDat(void) ;
void CalValue(void)
{ int i,gw;
double sum=0;
for(i=0;iif (xx[i]>0)
{ totNum++;
gw=xx[i];
if((gw==3)||(gw==6)||(gw==9))
{
totCnt++;
sum=sum+xx[i];
}
}
totPjz=sum/totCnt;
}
void main()
{
clrscr() ;
if(ReadDat()) {
printf("數(shù)據(jù)文件IN.DAT不能打開!\007\n") ;
return ;
}
CalValue() ;
printf("文件IN.DAT中共有正整數(shù)=%d個\n", totNum) ;
printf("符合條件的正整數(shù)的個數(shù)=%d個\n", totCnt) ;
printf("平均值=%.2lf\n", totPjz) ;
WriteDat() ;
}
int ReadDat(void)
{
FILE *fp ;
int i = 0 ;
if((fp = fopen("in.dat", "r")) == NULL) return 1 ;
while(!feof(fp)) {
fscanf(fp, "%d,", &xx[i++]) ;
}
fclose(fp) ;
return 0 ;
}
void WriteDat(void)
{
FILE *fp ;
fp = fopen("OUT5.DAT", "w") ;
fprintf(fp, "%d\n%d\n%.2lf\n", totNum, totCnt, totPjz) ;
fclose(fp) ;
}