已知数据文件IN69.DAT中存有200个4位数,并已调用读函数readDat()把这些数存入数组a中,请编制一函
已知数据文件IN69.DAT中存有200个4位数,并已调用读函数readDat()把这些数存入数组a中,请编制一函数JsVal(),其功能是:把一个4位数的千位数上的值减百位数上的值再减十位数上的值最后减个位数上的值,如果得出的值大于等于零且此4位数是奇数,则统计出满足此条件的数的个数cnt并把这些4位数存入数组b中,然后对数组b的4位数按从小到大的顺序进行排序,最后调用函数writeDat()把结果cnt及数组b中的符合条件的4位数输出到out69.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 *fp;
fp=fopen ("IN69. DAT" , "r");
for(i=0; i<MAX; i++)
fscanf(fp, "%d",&a[i]);
fclose(fp);
}
void main( )
{
int i;
readDat ( );
jsVal ();
printf ("满足条件的数=%d\n", cnt);
for (i=0; i<cnt; i++)
printf ("%d",b[i]);
printf ("\n");
writeDat ( );
}
writeDat ( )
{
FILE *fp;
int i;
fp=fopen ( "out69.dat","w")
fprintf (fp, "%din", cnt);
for (i=0; i<cnt; i++)
fprintf (fp, "%d\n" ,b [i]);
fclose(fp);
}
void jsVal() { int i,thou,hun,ten,data,j; for(i=0;iMAX;i++) { thou=a[i]/1000; /*求四位数的千位数字*/ hun=a[i]%1000/100; /*求四位数的百位数字*/ ten=a[i]%100/10; /*求四位数的十位数字*/ data=a[i]%10; /*求四位数的个位数字*/ if((thou-hun-ten-data>0) &&a[i]%2==1) /*如果千位数减百位数再减十位数最后减个位数得出的值大于等于零且此4位数是奇数*/ { b[cnt]=a[i]; /*则将该数存入数组b中*/ cnt++; /*统计满足条件的数的个数*/ } } for(i=0;icnt-1;i++) /*对数组b的4位数按从小到大的顺序进行排序*/ for(j=i+1;jcnt;j++) if(b[i]>b[j]) { data=b[i]; b[i]=b[j]; b[j]=data; } } 解析:本题考查的知识点如下:
(1)“%”与“/”的使用。
(2)循环结构与判断结构的使用。
(3)数据的排序。
本题中,首先借助“%”与“/”将4位数各位上的数拆成独立的数字:将1个4位数整除1000则可得到其千位上的数字,除以1000取余再整除100则可得百位上的数字,除以100取余再整除10则可得十位上的数字,除以10取余则得个位上的数字。1个数除以2取余所得的数等于1,则此数是奇数。利用循环结构实现对200个数据的判断。题中要求将符合条件的4位数按从小到大的顺序存入数组b中,我们可以先将符合条件的4位数存入数组b,然后对b中的数进行排序。排序使用“选择排序法”。
由代数式的乘法法则类比推导向量的数量积的运算法则:①“mn=nm”类比得到“a·b=b·a”;②“ 数学 2020-05-14 …
求助MATLAB符号计算:%声明符号变量syms c w t b a D n T v Q x y; 其他 2020-05-16 …
将字母组成单词,并译成汉语1.m,e,r,m,u,s,汉语2.u,l,t,e,c,u,r,汉语3. 英语 2020-06-04 …
设A是n阶矩阵,若存在正整数k,使线性方程组A^kX=0有解向量t,且A^(k-1)t不等于零,证 数学 2020-07-31 …
方程组(Ab^T)x=0与方程组Ax=0是同解方程组的充要条件是A^Ty=b有解方程组(Ab^T) 数学 2020-07-31 …
数列an满足递推式(a(n+2))*an-(a(n+1))^2=(t^n)*(t-1),a1=1, 数学 2020-08-01 …
设n元线性方程组Ax=b,其中A=2a10a22a⋱⋱⋱10a22an×n,x=(x1,…,xn) 其他 2020-08-02 …
字母组词1.e,t,n,l,a,c,r2.h,e,c,p,a3.t,a,e,r,w4.i,t,a,a 英语 2020-10-31 …
线性代数特征向量问题求解1)设a是n阶矩阵A的特征向量,T是n阶可逆矩阵,B=T-1AT,求B的一个 数学 2020-12-05 …
lingo求救急MODEL:SETS:ID/1..4/;NO(ID):a,b,n;endsetsma 其他 2020-12-19 …