已知数据文件IN60.DAT中存有200个4位数,并已调用读函数readDat()把这些数存入数组a中,请编制一函
已知数据文件IN60.DAT中存有200个4位数,并已调用读函数readDat()把这些数存入数组a中,请编制一函数JsVal(),其功能是:把千位数字和十位数字重新组合成一个新的十位数ab(新十位数的十位数字是原4位数的千位数字,新十位数的个位数字是原4位数的十位数字),以及把个位数和百位数组成另一个新的十位数cd(新十位数的十位数字是原4位数的个位数字,新十位数的个位数字是原4位数的百位数字),如果新组成的两个十位数ab<cd,ab必须是奇数且不能被5整除,cd必须是偶数,同时两个新十位数字均不为零,则将满足此条件的4位数按从大到小的顺序存入数组b中,并要计算满足上述条件的4位数的个数cnt,最后调用写函数writeDat()把结果ont及数组b中符合条件的4位数输出到OUT60.DAT文件中。
注意:部分源程序已给出。
程序中已定义数组:a[200],b[200],已定义变量:cnt。
请勿改动主函数main()、读函数readDat()和写函数writeDat()的内容。
试题程序:
include<stdio.h>
define MAX 200
int a[MAX],b[MAX],cnt=0;
void jsVal( )
{
}
void readDat()
{
int i;
FILE rfp;
fp=fopen (" IN60. DAT", "r" );
for (i=0; i<MAX; i++)
fscanf (fp, "%d", &a Ii] );
fclose (fp);
}
main ( )
{
int i;
readDat ();
jsVal ();
printf ("满足条件的数=%d\n", cnt);
for (i=0; i<cnt; i++)
printf("%d\n",b[i]);
printf ("\n");
writeDat ();
}
writeDat ()
{
FILE *fp;
int i;
fp=fopen ("OUT60. DAT", "w");
fprintf (fp, "%dkn", cnt);
for (i=0; i<cnt; i++)
fprintf(fp, "%d\n",b[i]);
fclose(fp);
}
void jsVal( ) { int i, thou, hun, ten, data, j; int ab, cd; for (i=0; i200; i++) { thou=a [i] /1000; /*求四位数的千位数字*/ hun=a [i]%1000/100; /*求四位数的百位数字*/ ten=a [i] %10 0 / 10; /*求四位数的十位数字*/ data=a [i] % 10; /*求四位数的个位数字*/ ab=10*thou+ten; /*把千位数和十位数重新组合成一个新的十位数ab* / cd=10*data+hun; /*把个位数和百位数组成另一个新的十位数cd*/ if ((ab-cd0) && (ab%2==l) && (ab%5 ! =0 ) && (cd%2==0) &&ab ! =0&&cd ! =0 ) { /*如果abcd, ab是奇数且不能被5整除,cd是偶数,同时两个数字均不为零*/ b [cnt] =a [i]; /*将满足条件的数存入数组b中*/ cnt++; /*统计满足条件的数的个数*/ } } for (i=0; icnt-1; i++) /*将数组b中的4位数按从大到小的顺序*/ for (j=i+l; jcnt; j++) if(b[i]b[j]) { data=b [i]; b[i]=b[j]; b [j] =data; } } 解析:本题考查的知识点如下:
(1)将4位数各位上的数拆分为独立的数字。
(2)循环结构的使用。
(3)判断结构中多个条件的布尔运算。
在本题中,首先要将4位数各位上的数字拆分为独立的数字。这要借助运算符“%”(取余)与“/”
(整除)。将一个4位数整除1000则可得到其干位上的数字,除以1000取余再整除100则可得百位上的数字,除以100取余再整除10则可得十位上的数字,除以10取余则得个位上的数字。求得各位上的数字后,就可以重新组合进行比较。各条件必须同时满足,所以用“与”运算。题中要求将符合条件的数按从大到小的顺序存入数组b,可以先将符合条件的数存入数组b,再对数组b进行排序。排序使用“选择排序法”。
请高手编一个VB迭代程序,方程式为:lnP=A-B/T+C*lnT+D*P/T^2其中A、B、C、D 数学 2020-03-31 …
下图是自然界中能量转换示意图,下列有关化学反应T的叙述中,正确的是()来自太阳的能量→化学反应S储 语文 2020-06-04 …
已知函数f(x)=2x3-3x.(Ⅰ)求f(x)在区间[-2,1]上的最大值;(Ⅱ)若过点P(1, 其他 2020-07-19 …
已知函数f(x)=x^2+ax+b-2,其中x=t+1/t.已知函数f(x)=x^2+ax+b-2 数学 2020-07-21 …
若存在t∈R与正数m,使F(t-m)=F(t+m)成立,则称“函数F(x)在x=t处存在距离为2m 数学 2020-07-26 …
周期函数的周期是不唯一的吗?根据周期函数的定义,在y=f(x)的定义域内,存在T>0,使得所有x+ 数学 2020-08-02 …
已知{an}是正项无穷数列,满足1/(an*a(n+1))+1/(a(n+1)*a(n+2))+1 数学 2020-08-02 …
一质点在平面上做匀变速曲线运动,在时间t=1s,t=2s,t=3s时,------------一质点 其他 2020-11-08 …
初等数论问题若a,b是任意二整数,且b不等于0,证明:存在两个整数s,使得a=bs+t,t的绝对值小 数学 2020-11-17 …
考场求题…急…已知描述某LTI系统的微分方程如下.y''(t)+7y'(t)+10y(t)=2f'( 数学 2020-11-21 …