第一套

　　�牐�

　　�牐�===============================================================================

　　�牐犜囶}說明 :

　　�牐�===============================================================================

　　�牐犚阎�在文件IN.DAT中存有若干個(個數<200)四位數字的正整數, 函數ReadDat( )編制函數CalValue( ), 其功能要求: 1. 求出這文件中共有多少個正整數totNum; 2.求出這些數中的各位數字之和是奇數的數的個數totCnt, 以及滿足此條件的這些數的算術平均值totPjz, 最后調用函數WriteDat()把所求的結果輸出到文件OUT1.DAT中。

　　�牐犠⒁�: 部分源程序存放在PROG1.C中。

　　�牐犝埼鸶膭又骱瘮祄ain( )、讀數據函數ReadDat()和輸出數據

　　�牐牶瘮礧riteDat()的內容。

　　�牐�===============================================================================

　　�牐牫绦� :

　　�牐�===============================================================================

　　�牐�#include

　　�牐�#include

　　�牐�#define MAXNUM 200

　　�牐�

　　�牐爄nt xx[MAXNUM] ;

　　�牐爄nt totNum = 0 ; /* 文件IN.DAT中共有多少個正整數 */

　　�牐爄nt totCnt = 0 ; /* 符合條件的正整數的個數 */

　　�牐燿ouble totPjz = 0.0 ; /* 平均值 */

　　�牐爄nt ReadDat(void) ;

　　�牐爒oid WriteDat(void) ;

　　�牐爒oid CalValue(void)

　　�牐爗

　　�牐�

　　�牐�

　　�牐�

　　�牐爙

　　�牐�

　　�牐爒oid main()

　　�牐爗

　　�牐� clrscr() ;

　　�牐� if(ReadDat()) {

　　�牐� printf("數據文件IN.DAT不能打開!\007\n") ;

　　�牐� return ;

　　�牐� }

　　�牐� CalValue() ;

　　�牐� printf("文件IN.DAT中共有正整數=%d個\n", totNum) ;

　　�牐� printf("符合條件的正整數的個數=%d個\n", totCnt) ;

　　�牐� printf("平均值=%.2lf\n", totPjz) ;

　　�牐� WriteDat() ;

　　�牐爙

　　�牐�

　　�牐爄nt ReadDat(void)

　　�牐爗

　　�牐� FILE *fp ;

　　�牐� int i = 0 ;