已知数据文件1N68.DAT中存有200个4位数,并已调用读函数readDat()把这些数存入数组a中,清编制一函
已知数据文件1N68.DAT中存有200个4位数,并已调用读函数readDat()把这些数存入数组a中,清编制一函数JsVal(),其功能是:如果4位数各位上的数字均是奇数,则统计出满足此条件的个数cnt,并把这些4位数按从大到小的顺序存入数组b中。最后调用函数writeDat()把结果cnt及数组b中符合条件的4位数输出到 OUT68.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("IN68.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 Iii );
printf ("\n");
writeDat ();
}
writeDat ()
{
FILE *fp;
iht i;
fp=fopen ("out68.dar","w");
fprintf (fp,"%d\n",cnt);
for (i=0; i<cnt; i++)
fprintf {fp,"%d\n",b Iii );
fclose (fp);
}
void jsVal() { iht i, thou, hun, ten, data, j; for (i=0;i200;i++) { thou=a [i] /1000; /*求四位数的千位数字*/ hun=a [i] %1000/100; /*求四位数的百位数字*/ ten=a [i] %100/10; /*求四位数的十位数字*/ dat a=a [i] %10; /*求四位数的个位数字*/ if (thou%2 !=0 && hun%2!=0 && ten%2!=0 && data%2!=0) /*如果4位数各位上数字均是奇数*/ { b [cnt] =a [i]; /*将满足条件的数存入数组b中*/ cnt++; /*统计满足条件的数的个数*/ } } for (i=0; i for (j=i+l; 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取余所得的数不等于0,则此数是奇数。题中要求将符合条件的4位数按从大到小的顺序存入数组b中,我们可以先将符合条件的4位数存入数组b,然后对b中的数进行排序。排序使用“选择排序法
选出每组单词中划括号部分读音不同的一项.1.A:t(o)day.B:t(o)morrow.C:st 英语 2020-04-26 …
已知字母组合成英语单词1、e e t t i n h r 2、e e r a t w h 3、o 英语 2020-05-14 …
matlab 求解二元非线性方程组本人初次接触MATLAB,望大虾赐教!r=r0*((tsa-t) 其他 2020-05-16 …
高中生物DNA问题.麻烦帮帮忙噶.谢谢.在DNA双螺旋中,两链间碱基配对成氢键,其配对关系是A=T 政治 2020-05-17 …
在传统的集合运算中,关系R和关系S的差的结果可表示为(t表示元组)______。A.{t|t∈R∨t 计算机类考试 2020-05-24 …
s.d.n.a.t组成英语单词 英语 2020-06-11 …
帮忙解一个方程组..貌似有点难度我是高中生,物理老师训练我们解字母方程组的能力出了几个题其中有一个 数学 2020-08-02 …
一道线性代数题,与向量表示有关,见问题补充,确定常数a,使向量组a1=(1,1,a)t,a2=(1, 数学 2020-10-31 …
甲图表示果蝇某正常基因片段控制合成多肽的过程.a~d表示4种基因突变.a丢失T/A,b由T/A变为C 语文 2020-11-29 …
已知α1=(1,0,1)Tα2=(0,1,1)Tα3=(1,3,5)T不能由β1=(1,1,1)T, 数学 2020-12-23 …