- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
1
1
11、(27—1)已知数据文件IN.DAT中存有300个四位数,并已调用读函数ReadDat()把这些数存入数组a中,
请编制一函数jsvalue(),其功能是:求出千位数上的数减百位数减十位数上的数减个位数上的数大于零的个
数cnt,再求出所有满足此条件的四位数平均值pjz1,以及不满足此条件的
四位数平均值pjz2,最后调用写函数writeDat()把结果输出到OUT.DAT文件。例如:
9123,9-1-2-30,则该数满足条件计算平均值pjz1,且个数cnt=cnt+1。
9812,9-8-1-20,则该数不满足条件计算平均值pjz2.
注意:部分源程序已给出。
程序中已定义数组:a[300],已定义变量:cnt
请勿改动主函数main()、读函数ReadDat()和写函数writeDat()的内容。
void jsValue() /*标准答案*/
{int I,thou,hun,ten,data,j;
for(I=0;I300;I++)
{thou=a[I]/1000; hun=a[I]%1000/100;
ten=a[I]%100/10; data=a[I]%10;
if (thou-hun-ten-data0){b[cnt]=a[I];cnt++;}
}
for(I=0;Icnt-1;I++)
for(j=I+1;jcnt;j++)
if(b[I]b[j])
{data=b[I]; b[I]=b[j]; b[j]=data;}
}
2
2
22、下列程序的功能是:找出所有100以内(含100)满足I,I+4,I+10都是素数的整数I(I+10也在100以内)的个
数cnt以及这些I之和sum。请编写函数countvalue()实现程序要求,最后调用函数writeDat()把结果cnt和
sum输出到文件out.dat中。
注意:部分源程序已给出。
请勿改动主函数main()和函数writeDAT()的内容。
类型:素数。
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;Icount;I++)
if (isPrime(xx[I]+4)isPrime(xx[I]+10))
{cnt++;sum+=xx[I];}
}
3
3
33、已知在文件in.dat中存有若干个(个数200)四位数字的正整数,函数readdat()读取这若
干个正整数并存入数组xx中。请编制函数calvalue(),其功能要求:1、求出这文件中共有多
少个正整数totnum;2、求出这些数中的各位数字之和是奇数的数的个数totcnt,以及满足此
条件的这些数的算术平均值totpjz,最后调用函数writedat()把所求的结果输出到文件
out.dat中。
注意:部分源程序已给出。
请勿改动主函数main()、读数据函数readdat()和输出数据函数writedat()的内容。
void CalValue(void) /*标准答案*/
{int I,thou,hun,ten,data;
for(I=0;IMAXNUM;I++)
{if (!xx[I]) break;
if (xx[I]0) totNum++;
thou=xx[I]/1000;
hun=xx[I]%1000/100;
ten=xx[I]%100/10;
data=xx[I]%10;
if ((thou+hun+ten+data)%2)
{totCnt++;totPjz+=xx[I];} }
totPjz/=totCnt;
}
4 21-5
4 21-5
44、(2211--55)下列程序的功能是:利用发下所示的简单迭代方法求方程:cos(x)-x=0的一个实根。
xn+1=cos(xn)
迭代步骤如下:
(1)取X1初值为0.0;
(2)X0=X1,把X1的值赋给X0;
(3)X1=COS(X0),求出一个新的X1;
(4)若X0-X1绝对值小0.000001,执行步骤(5),否则执行步骤(2);
(5)所求X1就是方程cos(X)-X=0的一个实根,作为函数值返回。
请编写函数countvalue()实现程序的要求,最后调用函数WRITEDAT()把结果输出到文件
OUT17.DAT中。
注意:部分源程序已给出。
请勿改动主函数main()和输出数据函数writeDAT()的内
您可能关注的文档
最近下载
- 1.2.4绝对值 课件 2025-2026学年人教版数学七年级上册.pptx VIP
- QGDW 11651.13-2017 变电站设备验收规范-第13部分:穿墙套管.pdf VIP
- 电子商务客服教案课程.doc VIP
- 客服培训课程小游戏.pptx
- QGDW 11651.12—2017变电站设备验收规范-第12部分:母线及绝缘子.pdf VIP
- 中国食用油行业现状分析-小包装食用油市场潜力巨大
- 分散式风电工程施工组织设计.doc VIP
- 定价策略与渠道价格管理8.doc VIP
- 透析患者高磷血症的控制37页PPT.pptx VIP
- QGDW 11651.10-2017 变电站设备验收规范-第10部分:干式电抗器.pdf VIP
文档评论(0)