当前所在位置:珠峰网资料 >> 计算机 >> 计算机等级考试 >> 正文
  全国计算机等级四级机试试题及答案九
发布时间:2010/9/24 11:08:04 来源:www.xue.net 编辑:城市总裁吧

  14./* 程序PROG1.C的功能是:利用以下所示的简单迭代方法求方程:

  cos(x)-x=0的一个实根。

  Xn+1=cos(Xn)

  迭代步骤如下:

  (1) 取x1初步值为0.0;

  (2) x0=x1,把x1,把x1的值赋给x0;

  (3) x1=cos(x0),求出一个新的x1;

  (4) 若x0-x1的绝对值小于0.000001,执行步骤(5),否则执行步骤(2);

  (5) 所求x1就是方程cos(x)-x=0的一个实根,作为函数值返回。

  请编写函数countValue()实现程序的要求,最后调用函数writeDAT()把结果输出到文件out4.dat中。

  注意:部分源程序存在文件PROG1.C中,请勿改动主函数main()和输出数据函数WriteDAT()的内容。 */

  #include

  #include

  #include

  float countValue()

  {

  }

  main()

  {

  clrscr();

  printf("实根=%f\n", countValue());

  printf(" %f\n",cos(countValue())-countValue());

  writeDAT();

  }

  writeDAT()

  {

  FILE *wf ;

  wf=fopen("out4.dat","w") ;

  fprintf(wf, "%f\n", countValue()) ;

  fclose(wf) ;

  }

  15./* 已知在文件IN.DAT中存有若干个(个数<200)四位数字的正整数,函数ReadDAT()读取这些正整数并存入数组xx中。请编制函数CalValue()其功能要求是:

  1.求出这个文件中共有多少个正整数totNum;2.求出这些数中的各位数字之和是奇数的数的个数totCnt,以及不满足此条件的所有数的算术平均值totPjz,最后调用函数WriteDAT()把所求的结果输出到文件OUT8.DAT中。

  注意:部分源程序存放在PROG1.C中。

  请勿改动主函数main(),读数据函数ReadDAT()和输出数据函数WriteDAT()的内容。 */

  #include

  #include

  #define MAXNUM 200

  int xx[MAXNUM] ;

  int totNum = 0 ; /* 文件IN.DAT中共有多少个正整数 */

  int totCnt = 0 ; /* 符合条件的正整数的个数 */

  double totPjz = 0.0 ; /* 平均值 */

  int ReadDat(void) ;

  void WriteDat(void) ;

  void CalValue(void)

  {

  }

  void 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() ;

  }

  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("OUT8.DAT", "w") ;

  fprintf(fp, "%d\n%d\n%.2lf\n", totNum, totCnt, totPjz) ;

  fclose(fp) ;

  }

广告合作:400-664-0084 全国热线:400-664-0084
Copyright 2010 - 2017 www.my8848.com 珠峰网 粤ICP备15066211号
珠峰网 版权所有 All Rights Reserved