C語言考試題庫(一)

1-1請編寫函數(shù)countValue。，它的功能是：求n以內(nèi)(不包括n)同時能被3與7整除的所

有自然數(shù)之和的平方根s,并作為函數(shù)值返回，最后結(jié)果s輸出到文件out.dat中。

doublecountUalue(intn)

<

doubledata=0.0;

doubles;

inti;

For(i=1;i<n;i++)/臉歷從1到n中的每個數(shù)據(jù)*/

if(i%3==G&&i砥7==0)/*若i同時能破3和7整除*/

data+=i;/*將i累加的臨時變量data中*/

s=sqrt(data);/*求平方根*/

returns;|/噠回s值*/

>

doublecountUalue(intn)

<

inti;

doubledate=0.0;

For(i=1;i<n;i++)

iF(i%3==0&&iV==O)

date+=i;

date=sqrt(date);

returndate;|

>

l-2請編寫函數(shù)countValue(),它的功能是：求出l到1000之內(nèi)能被7或II整除但不能同

時被7或II整除的所有整數(shù)放在數(shù)組a中，并通過n返回這些數(shù)的個數(shù)。

voidcountUalue(int*a,int*n)

<

inti;

*n=0;

for(i=1;i<=1000;i++)

iF((i%7==1)||(i%76&i%11==0))

a[(*n)++]=i;

>

2-1"請編制程序，從文件IN.DAT中讀取200個整數(shù)至數(shù)組xx中，求出最大數(shù)max及最大

數(shù)的個數(shù)ent和數(shù)組xx中能被3整除或能被7整除的算術(shù)平均值pj(保留2為小數(shù))。結(jié)果

max、ent、pj輸出到OUT.DAT中。

nax=xx[0];

for(i=1,k=0;i<N;i++)

<

if(xx[i]>max)max=xx[i];/喏^X[i]大于max,就將xx[i]賦給max*/

if(xx[i]%3==0||xx[i]V==0)/喏xx[i]能被3或7密除署/

<

j+=xx[i];k++;

>/關(guān)將xx[i]累加到j(luò)中，并且計數(shù)值增1關(guān)/

》

pj=(float)(j*180/k)/180;求平均值Pj*/

For(i=0,cnt=O;i<N;i++)/*統(tǒng)計數(shù)組xx中，最大值的個數(shù)關(guān)/

if(xx[i]==nax)cnt++;

/??*???***?**********???*****?**********??*??/

/*關(guān)關(guān)關(guān)**署關(guān)*關(guān)**關(guān)*芟關(guān)*關(guān)關(guān)**關(guān)關(guān)關(guān)*關(guān)WWW芟關(guān)**/

nax=xx[i];

For(i=0,k=0;i<N;i++)<

if(xx[i]>nax)

nax=xx[i];

if(xx[i]%3==0||xx[i]%7==8)

j+=xx[i];

k++;

>

pj=(Float)(j*10O/k)/100;

For(i=O,cnt=0;i<N;i++)

iF(xx[i]=nax)

cnt++;

/關(guān)*關(guān)**買關(guān)關(guān)關(guān)關(guān)弁**關(guān)關(guān)***關(guān)w關(guān)關(guān)關(guān)*關(guān)***弁關(guān)*關(guān)關(guān)關(guān)關(guān)弁關(guān)(*關(guān)

2-2請編制程序，從文件in.dat中讀取200個整數(shù)至數(shù)組xx中，求出奇數(shù)的個數(shù)cntl和偶

數(shù)的個數(shù)cnt2以及數(shù)組xx值為偶數(shù)的算術(shù)平均值pj(保留2位小數(shù))。結(jié)果cntl、cnt2、

pj輸出到out.dat中。

/***?********-M*******-K********-M-??****/

pj=o；

For(i=0,cnt1=0,cnt2=0;i<N;i++)

<

if(xx[i]%2)cnt1**;/詰xx[i]為奇數(shù)，cntl增1*/

else/唔xx[i]為懵數(shù)，cnt2增1,將xx[i]累加到pj中*/

<

cnt2++;

pj+=xx[i];

>

>

「上=41<?3卬：1*1。。/(:門2)“。0；/*注意保留兩位小數(shù)的話需要先乘1。哂除10。*/

/*署M*買關(guān)關(guān)****關(guān)**關(guān)關(guān)關(guān)**關(guān)關(guān)*署M*關(guān)關(guān)弁蕓*/

Pj=0；

For(i=0,cnt1=0,cnt2=0;i<N;i++)<

if(xx[i]%2)

cnt1++;

else

<

cnt2++;

pj+=xx[i];

pj=(Float)(pj*100/cnt2)/1OO;

/M關(guān)關(guān)頭*蓑*關(guān)關(guān)關(guān)■關(guān)*關(guān)*關(guān)**關(guān)頭關(guān)蕓關(guān)頭**關(guān)關(guān)關(guān)關(guān)**/

2?3請編制程序，從文件IN.DAT中讀取200個整數(shù)至數(shù)組xx中，不計數(shù)組xx中值最大和

最小的數(shù)(若有重復(fù)，則都不計)，再求出最大數(shù)max及最大數(shù)的個數(shù)cntl、最小數(shù)

min及最小數(shù)的個數(shù)cnt2和所剩下的200-cntl-cnt2個數(shù)的算術(shù)平均值pj(保留2為小

數(shù))。將結(jié)果max、cntl>min^cnt2>pj輸出到OUT.DAT中。

/************?*******************************/

maxG=minG=xx[G];

max=min=xx[0];

PJ=0；

cnt1=cnt2=0;

For(i=1;i<N;i++)

<

if(maxO<xx[i])

maxO=xx[i];

elseif(nin0>xx[i])

ninO=xx[i];

>

for(i=0;i<N;i++)

<

if(n)ax<xx[i]&&xx[i]<naxO)

nax=xx[i];

iF(nin>xx[i]&&xx[i]>minO)

nin=xx[i];

>

For(i=0;i<N;i++)

if(xx[i]==max)

cnt1++;

elseif(xx[i]==nin)

cnt2++;

else

pj+=xx[i];

pj=(Float)((long)pj/(2O0-cnt1-cnt2));

/關(guān)*買W關(guān)*M**關(guān)關(guān)頭MM*關(guān)關(guān)關(guān)關(guān)關(guān)關(guān)關(guān)關(guān)關(guān)關(guān)關(guān)關(guān)關(guān)**關(guān)關(guān)關(guān)買頭?買MWMM/

/********************************************/

naxO=min0=xx[0];

nax=nin=xx[6];

Pj=0；

cnt1=cnt2=0;

For(i=0;i<N;i++)<

iF(nax8<xx[i])

nax0=xx[i];

elseiF(min0>xx[i])

nin0=xx[i];

>

for(i=0;i<N;i++)<

if(max<xx[i]&&max<maxO)

max=xx[i];

iF(min>xx[i]&&min>nin0)

nin=xx[i];

>

for(i=0;i<N;i++)<

iF(xx[i]==nax)

cnt1++;

if(xx[i]==nin)

cnt2++;

else

pj+=xx[i];

>

pj=(Float)((long)pj/(200-cnt1-cnt2));

/********************************************/

2-4請編制程序，從文件IN.DAT中讀取200個整數(shù)至數(shù)組xx中，選出數(shù)組中絕對值最

大的數(shù)(若存在多個，則全部選出)，再求出絕對值次大的數(shù)max及絕對值最大數(shù)的個

數(shù)ent和剩下200-cnt個數(shù)的算術(shù)平均值pj(保留2為小數(shù))。結(jié)果max、ent、pj輸出到

OUT.DAT中。

/WM*M****?■關(guān)W**關(guān)關(guān)*署**W***關(guān)**M關(guān)關(guān)**關(guān)關(guān)關(guān)**關(guān)關(guān)**關(guān)*關(guān)*/

nax0=nax=abs(xx[0]);

Pj=8；

cnt=0;

For(i=1;i<N;i++)

iF(naxO<abs(xx[i]))

maxO=abs(xx[i]);

For(i=9;i<N;i++)

if(abs(xx[i])<maxO&&abs(xx[i])>max)

max=abs(xx[i]);

For(i=0;i<N;i++)

if(abs(xx[i])==nax0)

cnt++;

else

pj+=xx[i];

pj=(Float)((long)pj*100/(200-cnt))/100;

/關(guān)關(guān)*關(guān)*關(guān)關(guān)***買*關(guān)*關(guān)關(guān)關(guān)*關(guān)*關(guān)*關(guān)**關(guān)蓑關(guān)*關(guān)關(guān)關(guān)*關(guān)關(guān)關(guān)*關(guān)關(guān)關(guān)/

2-5已知在文件IN.DAT中存有若干個(<200)四位數(shù)字的正整數(shù)，函數(shù)ReadDat。讀取這

若干個正整數(shù)并存入數(shù)組xx中。請編制函數(shù)CalValue(),其功能要求：(1)求出這個

文件中共有多少個正整數(shù)totNum：(2)求這些數(shù)右移1位后，產(chǎn)生的新數(shù)是偶數(shù)的數(shù)

的個數(shù)totCnt,以及滿足此條件的這些數(shù)(右移前的值)的算術(shù)平均值totPjz,最后調(diào)

用函數(shù)writeDat()把所求的結(jié)果輸出到文件OUT.DAT中。

<

inti,data;

for(i-0;i<MAXNUH;i**)

<

if(?xx[i])break;/喏xx[i]為。，則跳出遁環(huán)*/

iF(xx[i]>0)totNun++;/喏xx[ij大于0,讓數(shù)值增1*/

data=xx[i]?1;/*xx[i語移一位后賦給變量data*/

訐(data%2==G)/*若、'[對右移一位后為偶數(shù)”

<

totCnt++;totPjz*=xx[i];/*偶數(shù)計數(shù)值增1,并將xx[i]累加到變量totPjz中*/

totPjz/=totCnt;/*計算平均值共/

inti,date;

For(i=0;i<MAXNUM;i++)<

iF(xx[i]==0)

break;

iF(xx[i]>0)

<

totNun++;

date=xx[i]>>1;

>

iF(date%2==8){

totCnt++;

totPjz+=xx[i];

totPjz=totPjz/totCnt;

3-1已知在文件1N.DAT中存有若干個(<200)的四位數(shù)字的正整數(shù)，函數(shù)ReadDat()

讀取若干個正整數(shù)并存入數(shù)組xx中。請編制函數(shù)CalValue(),其功能要求：(1)

求出這文件中共有所少個正整數(shù)totNum；(2)求這些數(shù)中的各位數(shù)字之和是奇數(shù)

的數(shù)的個數(shù)totCnt,以及滿足此條件的這些數(shù)的算術(shù)平均值totPjz,最后調(diào)用函數(shù)

writeDat()把所求的結(jié)果輸出到文件OUT.DAT中。

inti.data;

inta1,a2,a3,a4;

For(i=0;i<MfiXNUM;i++)

if(?xx[i])break;/喏xx⑴為&則鞅出整環(huán)*/

iF(xx[i]>0)totNun++;/*若xx[i達(dá)于O,計數(shù)值增1*/

a1=xx[i]/1000;/*分離出元差xx[i]的平位*/

a2=xx[i]%1OOO/100;/?分離出元素xx[i]的百位*/

a3=xx[i]%1O0/1O;/吩離出無素的十位*/

a4=xx[i]%10;/吩高出元素xx[i]的個位*/

if((a1+a2+a3+a4)%2)/*若元素xx[i]的各位數(shù)字之和是奇數(shù)*/

totCnt++;

totPjz+=xx[i];

totPjz/=totCnt;/*篩選完畢后，將滿足條件數(shù)的累加和除以這些數(shù)的個數(shù)得平均值*/

3-2已知在文件IN.DAT中存有若干個(<200)四位數(shù)字的正整數(shù)，函數(shù)ReadDat。讀

取若干個正整數(shù)并存入數(shù)組xx中。請編制函數(shù)CalValue(),其功能要求：(I)求

出這文件中共有所少個正整數(shù)totNum；(2)求這些數(shù)中的各位數(shù)字之和是偶數(shù)的

數(shù)的個數(shù)totCnt,以及滿足此條件的這些數(shù)的算術(shù)平均值totPjz,最后調(diào)用函數(shù)

writeDat()把所求的結(jié)果輸出到文件OUT.DAT中。

inti,a1,a2,a3,a4;

for(i=O;xx[i]>0&&i<MfiXNUM;i++)

<

totNum++;

a1=xx[i]/18O0;

a2=xx[i]%1000/10B;

a3=xx[i]%100/10;

a4=xx[i]%10;

if((a1+a2+a3+a4)%2==0)

totCnt++;

totPjz+=xx[i];

totPjz/=totCnt;/*篩選完?

3-3已知數(shù)據(jù)文件in.dat中存有300個四位數(shù)，并已調(diào)用讀函數(shù)ReadDat。把這些數(shù)存入數(shù)

組a中。請編制函數(shù)jsValue(),其功能是：求出千位數(shù)上的數(shù)減百位數(shù)上的數(shù)減十位數(shù)上的

數(shù)減個位數(shù)上的數(shù)小于零的個數(shù)ent,再求出所有滿足此條件的四位數(shù)平均值pjzl,以及不

滿足此條件的四位平均數(shù)平均值pjz2,最后調(diào)用寫函數(shù)writeDat。把結(jié)果輸出到out.dat文件。

inti,k=0,a1,a2,a3,a4;

For(i=0;i<3O0;i++)

<

a1=a[i]/1080;

a2=a[i]%1000/10B;

a3=a[i]%100/10;

a4=a[i]%10;

if(a1-a2-a3-a4<0)

<

cnt++;

pjz1+=a[i];

>

else

<

k++;

pjz2*=a[i];

pjz1/=cnt;

pjz2/=k;|

3-4已知數(shù)據(jù)文件in.dat中存有300個四位數(shù)，并已調(diào)用讀函數(shù)ReadDat()把這些數(shù)存入數(shù)組

a中。請編制函數(shù)jsValue(),其功能是：求出個位數(shù)上的數(shù)減千位數(shù)上的數(shù)減百位數(shù)上的數(shù)

減十位數(shù)上的數(shù)大于零的個數(shù)ent,再求出所有滿足此條件的四位數(shù)平均值pjzl,以及不滿

足此條件的四位數(shù)平均值pjz2,最后調(diào)用寫函數(shù)writeDat。把結(jié)果輸出到out.dat文件

inti,k=09a1,a2,a3,a4;

for(i=0;i<3O0;i++)

a1=a[i]/1008;

a2=a[i]%1000/100;

a3=a[i]%100/10;

a4=a[i]%10;

iF(a4-a1-a2-a3>0)

cnt++;

pjz1+=a[i];

else

k++;

pjz2*=a[i];

>

pjz1/=cnt;

pjz2/=k;

3-5已知在數(shù)據(jù)文件in.dat中存有300個四位數(shù)，并已調(diào)用讀函數(shù)ReadDat()把這些數(shù)存入數(shù)

組a中，請編制一函數(shù)jsValue。，其功能是：求出千位數(shù)上的數(shù)減百位數(shù)減卜位數(shù)減個位數(shù)

上的數(shù)大于零的個數(shù)ent,再求出所有滿足此條件的四位數(shù)平均值pjzl,以及不滿足此條件

的四位數(shù)平均值pjz2,最后調(diào)用寫函數(shù)writeDat()把結(jié)果輸出到out.dal文件。

inti,k=0,a1,a2,a3,a4;

for(i=0;i<380;i++)

<

a1=a[i]/1080;

a2=a[i]%1008/100;

a3=a[i]%100/10;

ai?=a[i]%10;

iF(a1-a2-a3-a4>0)

(

cnt++;

pjz1*=a[i];

>

else

<

k++;

pjz2*=a[i];

>

>

pjz1/=cnt;

pjz2/=k;

>

4-1”已知在數(shù)據(jù)文件IN.DAT中存有300個四位數(shù)，并已調(diào)用讀函數(shù)ReadDat。把這些數(shù)存

入數(shù)組a中，請編制一函數(shù)jsValue(),其功能是：求出千位數(shù)上的數(shù)加百位數(shù)上的數(shù)

等于十位數(shù)上的數(shù)加個位數(shù)上的數(shù)的個數(shù)ent,再把所有滿足此條件的四位數(shù)依次存入

數(shù)組b中，然后對數(shù)組b的四位數(shù)按從大到小的順序進行排序，最后調(diào)用寫函數(shù)

writeDat()把結(jié)果輸出到OUT.DAT文件。

<'

inti,j,k;

inta1,a2,a3,a4;

for(i=8;i<30O;i++)

<

a1=a[i]/1800;

a2=a[i]%1000/100;

a3=a[i]%108/10;

a4=a[i]%10;

iF(a1+a2==a3+a4)

<

b[cnt]=a[i];cnt++;

For(i=0;i<cnt-1;i++)

For(j=i+1;j<cnt;j++)

if(b[i]<b[j])

<

k=b[i];b[i]=b[j];b[j]=k;

4-2”已知數(shù)據(jù)文件in.dat中存有300個四位數(shù)，并已調(diào)用讀函數(shù)ReadDat()把這些數(shù)存入數(shù)

組a中。請編制函數(shù)jsValue。，其功能要求求出千位數(shù)上的數(shù)減百位數(shù)上的數(shù)減卜位

數(shù)上的數(shù)減個位數(shù)上的數(shù)大于零的個數(shù)ent,再把所有滿足此條件的四位數(shù)依次存入數(shù)

組b中，然后對數(shù)組b的四位數(shù)按從小到大的順序進行排序，最后調(diào)用寫函數(shù)writeDat()

把結(jié)果輸出到out.dat文件。

<

inti,j,k;

inta1,a2,a3,a4;

For(i=0;i<300;i++)

<

a1=a[i]/1008;

a2=a[i]%1000/100;

a3=a[i]%100/10;

a4=a[i]%18;

iF(a1-a2-a3-ai*>0)

〈b[cnt]=a[i];cnt++;>

>

for(i=B;i<cnt-1;i++)

for(j=i+1;j<cnt;j++)

if(b[i]>b[j])

{

k=b[i];b[i]=b[j];b[j]=k;

}

>

4-3"已知數(shù)據(jù)文件IN.DAT中存有200個四位數(shù)，并已調(diào)用讀函數(shù)readDat()把這些數(shù)存入

數(shù)組a中，請考生編制一函數(shù)jsVal(),其功能是：若?個四位數(shù)的千位上的數(shù)字值小于等于

百位上的數(shù)字值，百位上的數(shù)字值小于等于十位上的數(shù)字值，以及十位上的數(shù)字值小于等于

個位上一的數(shù)字值，并且原四位數(shù)是偶數(shù)，則統(tǒng)計出滿足此條件的個數(shù)ent并把這些四位數(shù)按

從小到大的順序存入數(shù)組b中。最后調(diào)用寫函數(shù)writeDat()把結(jié)果ent以及數(shù)組b中符合條

件的四位數(shù)輸出到OUT.DAT文件中。

<

inti,j,k;

inta1,a2,a3,a4;

For(i=0;i<MAX;i++)

if(a[i]%2==0)

<

a1=a[i]/1800;

a2=a[i]%18OO/10O;

a3=a[i]%100/10;

a4=a[i]%10;

if((a1<=a2)&&(a2<=a3)&&(a3<=a4))

<b[cnt]=a[i];cnt++;>

>

For(i=8;i<cnt-1;i++)

For(j=i+1;j<cnt;j++)

if(b[i]>b[j])

(

k=b[i];b[i]=b[j];b[j]=k;

4-4"已知數(shù)據(jù)文件IN.DAT中存有200個四位數(shù)，并已調(diào)用讀函數(shù)ReadDat()把這些數(shù)存入

數(shù)組a中，請考生編制一函數(shù)jsVal(),其功能是：如果四位數(shù)各位上的數(shù)均是奇數(shù)，則統(tǒng)計

出滿足此條件的個數(shù)ent并把這些四位數(shù)按從大到小的順序存入數(shù)組b中。最后main。函數(shù)

調(diào)用寫函數(shù)writeDat。把結(jié)果ent及數(shù)組b中符合條件的四位數(shù)輸出到OUT.DAT文件中。

注意：部分源程序已經(jīng)給出。

inti,j,k.Flag;

intss[4];

For(i=B;i<200;i++)

(

ss[0]=a[i]/1O00;

ss[1]=a[i]%1800/100;

ss[2]=a[i]%108/10;

ss[3]=a[i]%18;

For(j=0;j<4;j++)

<

if(ss[j]%2)

flag=1;

else

{Flag=O;break;

>

if(Flag==1)

<

b[cnt]=a[i];cnt++;

For(i=0;i<cnt-1;i++)

For(j=i+1;j<cnt;j++)

iF(b[i]<b[j])

<

k=b[i];b[i]=b[j];b[j]=k;

inti,j,k;

inta1,a2,a3,a4;

For(i=0;i<MfiX;i++)<

a1=a[i]/1000;

a2=a[i]%1080/100;

a3=a[i]%100/10;

a4=a[i]%10;

if((a1%2)&&(a2%2)&&(a3%2)&&(aU%2))

<

b[cnt]=a[i];cnt++;

For(i=0;i<cnt-1;i++)

For(j=i+1;j<cnt;j++)

iF(b[i]<b[j]){

k=b[i];b[i]=b[j];b[j]=k;

>

4-5"已知數(shù)據(jù)文件IN.DAT中存有200個四位數(shù)，并已調(diào)用讀函數(shù)ReadDat()把這些數(shù)存

入數(shù)組a中，請考生編制一函數(shù)jsVal(),其功能是：如果四位數(shù)各位上的數(shù)均是0或

2或4或8,則統(tǒng)計出滿足此條件的個數(shù)ent并把這些四位數(shù)按從大到小的順序存入

數(shù)組b中。最后main()函數(shù)調(diào)用寫函數(shù)writeDat()把結(jié)果ent及數(shù)組b中符合條件的四

位數(shù)輸出到OUT.DAT文件中。

inti,j,k,Flag;

intss[4];

for(i=0;i<200;i++)

<

ss[0]=a[i]/1800;

ss[1]=a[i]%10O0/100;

ss[2]=a[i]%100/10;

ss[3]=a[i]%10;

For(j=0;j<4;j++)

<

if(ss[j]%2==0)

Flag=1;

else

{Flag=0;break;}

}

iF(Flag==1)

<

b[cnt]=a[i];cnt++;

for(i=0;i<cnt-1;i++)

For(j=i+1;j<cnt;j++)

if(b[i]<b[j])

<

k=b[i];b[i]=b[j];b[j]=k;

>

>

4-6"己知數(shù)據(jù)文件IN.DAT中存有200個四位數(shù)，并已調(diào)用讀函數(shù)readDat。把這些數(shù)存

入數(shù)組a中，請考生編制?函數(shù)jsVal(),其功能是：若一個四位數(shù)的千位上的數(shù)字值

小于等于百位上的數(shù)字值，百位上的數(shù)字值小于等于十位上的數(shù)字值，以及十位上的

數(shù)字值小于等于個位上的數(shù)字值，并且原四位數(shù)是奇數(shù)，則統(tǒng)計出滿足此條件的個數(shù)

ent并把這些四位數(shù)按從小到大的順序存入數(shù)組b中。最后調(diào)用寫函數(shù)writeDat。把結(jié)

果ent以及數(shù)組b中符合條件的四位數(shù)輸出到OUT.DAT文件中。

<

inti,j,k;

inta1,a2,a3,a4;

For(i=0;i<MAX;i++)

if(a[i]%2==1)

<

a1=a[i]/1000;

a2=a[i]%1000/108;

a3=a[i]%100/1B;

a4=a[i]%10;

iF((a1<=a2)&&(a2<=a3)&&(a3<=ai*))

{b[cnt]=a[i];cnt++;>

>

For(i=0;i<cnt-1;i++)

For(j=i+1;j<cnt;j++)

iF(b[i]>b[j])

k=b[i];b[i]=b[j];b[j]=k;

>

5-1"已知數(shù)據(jù)文件IN.DAT中存有200個四位數(shù)，并已調(diào)用讀函數(shù)readDat。把這些數(shù)存入

數(shù)組a中。請編制函數(shù)jsVal(),其功能是：把千位數(shù)字和十位數(shù)字重新組成一個新的

十位數(shù)ab(新十位數(shù)的十位數(shù)字是原四位數(shù)的千位數(shù)字，新十位數(shù)的個位數(shù)字是原四

位數(shù)的十位數(shù)字)，以及把個位數(shù)字和百位數(shù)字組成另?個新的十位數(shù)字cd(新十位數(shù)

的十位數(shù)字是原四位數(shù)的個位數(shù)字，新十位數(shù)的個位數(shù)字是原四位數(shù)的百位數(shù)字)，如

果新組成的兩個十位數(shù)ab-cd>=10且ab-cd<=20且兩個數(shù)均是偶數(shù)，同時兩個新數(shù)的

十位數(shù)字均不為零，則將滿足此條件的四位數(shù)按從大到小的順序存入數(shù)組b中，并要

計算滿足上述條件的四位數(shù)的個ent。

inti,j,k,ab,cd;

inta1,a2,a3,a4;

For(i=0;i<MfiX;i++)

<

a1=a[i]/1800;

a2=a[i]%1000/100;

a3=a[i]%100/10;

a4=a[i]%10;

ab=a1*1G+a3;

cd=aU*10+a2;

iF((ab-cd)>=0&&(ab-cd)<=10&&ab%2==0&&cd%2==0&&a1>O&&a4>0)

|<b[cnt]=a[i];cnt++;>

>

For(i=8;i<cnt-1;i++)

For(j=i+1;j<cnt;j++)

iF(b[i]<b[j])

<

k=b[i];b[i]=b[j];b[j]=k;

5-2”已知數(shù)據(jù)文件IN.DAT中存有200個四位數(shù)，并已調(diào)用讀函數(shù)readDat。把這些數(shù)存入

數(shù)組a中。請編制函數(shù)jsVal(),其功能是：把千位數(shù)字和十位數(shù)字重新組成一個新的

十位數(shù)ab(新十位數(shù)的十位數(shù)字是原四位數(shù)的千位數(shù)字，新十位數(shù)的個位數(shù)字是原四

位數(shù)的十位數(shù)字)，以及把個位數(shù)字和百位數(shù)字組成另一個新的十位數(shù)字cd(新十位數(shù)

的上位數(shù)字是原四位數(shù)的個位數(shù)字，新卜位數(shù)的個位數(shù)字是原四位數(shù)的百位數(shù)字)，如

果新組成的兩個十位數(shù)ab-cd>=0且ab-cd<=lO且兩個數(shù)均是奇數(shù)，同時兩個新數(shù)的十

位數(shù)字均不為零，則將滿足此條件的四位數(shù)按從大到小的順序存入數(shù)組b中，并要計

算滿足上述條件的四位數(shù)的個數(shù)ento最后main()函數(shù)調(diào)用寫函數(shù)writeDat。把結(jié)果ent

以及數(shù)組b中符合條件的四位數(shù)輸出到OUT.DAT文件中。

inti,j,k,ab9cd;

inta1,a2,a3,a4;

For(i=0;i<MAX;i++)

<

a1=a[i]/1900;

a2=a[i]%1O00/100;

a3=a[i]%1O0/10;

a4=a[i]%10;

ab=a1*10+a3;

cd=a4*10+a2;

iF((ab-cd)>=O&&(ab-cd)<=1O&&ab%2==1&&cd%2==1&&a1>0&&a4>0)

〈b[cnt]=a[i];cnt++;}

>

for(i=0;i<cnt-1;i++)

For(j=i+1;j<cnt;j++)

if(b[i]<b[j])

<

k=b[i];b[i]=b[j];b[j]=k;

5-3”已知數(shù)據(jù)文件IN.DAT中存有200個四位數(shù)，并已調(diào)用讀函數(shù)readDat()把這些數(shù)存入

數(shù)組a中。請編制函數(shù)jsVal(),其功能是：把千位數(shù)字和個位數(shù)字重新組成一個新的

十位數(shù)ab(新十位數(shù)的十位數(shù)字是原四位數(shù)的千位數(shù)字，新十位數(shù)的個位數(shù)字是原四

位數(shù)的個位數(shù)字)，以及把百位數(shù)字和十位數(shù)字組成另一個新的十位數(shù)字cd(新十位數(shù)

的卜位數(shù)字是原四位數(shù)的百位數(shù)字，新十位數(shù)的個位數(shù)字是原四位數(shù)的卜位數(shù)字)，如

果新組成的兩個十位數(shù)必須是一個奇數(shù)，另一個為偶數(shù)，同時兩個新數(shù)的十位數(shù)字均

不為零，則將滿足此條件的四位數(shù)按從大到小的順序存入數(shù)組b中，并要計算滿足上

述條件的四位數(shù)的個數(shù)cnto最后main。函數(shù)調(diào)用寫函數(shù)writeDat。把結(jié)果ent以及數(shù)組

b中符合條件的四位數(shù)輸出到OUT.DAT文件中。

<

inti,j,k,ab,cd;

inta1,a2,a3,a4;

For(i=0;i<MAX;i++)

<

a1=a[i]/1B0O;

a2=a[i]%1000/100;

a3=a[i]%100/10;

a4=a[i]%10;

ab=a4*10+a1;

cd=a2*10+a3;

iF(((ab%2?=1&&cd%2==1)||(ab%2==1&acd%2?=1))&&a4>06&a2>0)

{b[cnt]=a[i];cnt++;>

>

For(i=0;i<cnt-1;i++)

For(j=i+1;j<cnt;j++)

iF(b[i]<b[j])

<

k=b[i];b[i]=b[j]；b[j]=k；

5-4"已知數(shù)據(jù)文件IN.DAT中存有200個四位數(shù)，并已調(diào)用讀函數(shù)readDat。把這些數(shù)存入

數(shù)組a中。請編制函數(shù)jsVal(),其功能是：把千位數(shù)字和十位數(shù)字重新組成一

個新的二位數(shù)(新二位數(shù)的十位數(shù)字是原四位數(shù)的千位數(shù)字，新二位數(shù)的個位

數(shù)字是原四位數(shù)的十位數(shù)字)，以及把個位數(shù)字和百位數(shù)字組成另一個新的二位

數(shù)(新二位數(shù)的十位數(shù)字是原四位數(shù)的個位數(shù)字，新二位數(shù)的個位數(shù)字是原四

位數(shù)的百位數(shù)字)，如果新組成的兩個二位數(shù)均是素數(shù)且新數(shù)的十位數(shù)字均不為

零，則將滿足此條件的四位數(shù)按從大到小的順序存入數(shù)組b中，并要計算滿足

上述條件的四位數(shù)的個數(shù)cnt?最后main()函數(shù)調(diào)用寫函數(shù)writeDat。把結(jié)果ent

以及數(shù)組b中符合條件的四位數(shù)輸出到OUT.DAT文件中。

inti,j,k,ab,cd;

inta1,a2,a3,a4;

For(i=0;i<MAX;i++)

<

a1=a[i]/1008;

a2=a[i]%1080/100;

a3=a[i]%100/10;

aU=a[i]%18;

ab=a1*1@+a3;

cd=a4*10+a2;

iF(isprime(ab)&&isprime(cd)&&a1>0&&a4>0)

{b[cnt]=a[i];cnt++;>

>

For(i=0;i<cnt-1;i++)

For(j=i+1;j<cnt;j++)

iF(b[i]<b[j])

<

k=b[i];b[i]=b[j];b[j]=k;

23-1編制函數(shù)ReadDat。實現(xiàn)從文件IN.DAT中讀取1000個十進制整數(shù)到數(shù)組xx中；請編

制函數(shù)Compute。分別計算出xx中偶數(shù)的個數(shù)even,奇數(shù)的平均值avel,偶數(shù)

的平均值ave2以及方差totfc的值，最后調(diào)用函數(shù)writeDat。把結(jié)果輸出到

OUT.DAT文件中。

inti9aa[MAX];

For(i=0;i<1O00;i++)

iF(xx[i]%2)

<

odd++;

aue1+=xx[i];

>

else

<

euen++;

aue2+=xx[i];

aa[euen-1]=xx[i];

>

aue1/=odd;

aue2/=euen;

For(i=0;i<euen;i++)

totFc+=(aa[i]-aue2)*(aa[i]-aue2)/euen;

>

23-2請編制函數(shù)ReadDat()實現(xiàn)從文件IN.DAT中讀取1000個十進制整數(shù)到數(shù)組xx中：請

編制函數(shù)Compute。分別計算出xx中奇數(shù)的個數(shù)odd,奇數(shù)的平均值avel,偶數(shù)的平均

值ave2以及所有奇數(shù)的方差totfc的值,最后調(diào)用函數(shù)WriteDat。把結(jié)果輸出到OUT.DAT

文件中。

<

intivaa[MAX];

For(i=0;i<100O;i++)

if(xx[i]%2)

<

odd++;

aue1+=xx[i];

aa[odd-1]=xx[i];

>

else

<

euen++;

aue2+=xx[i];

>

aue1/=odd;

aue2/=euen;

for(i=0;i<odd;i++)

totFc+=(aa[i]-aue1)*(aa[i]-aue1)/odd;

>

6-1”在文件in.dat中有200個正整數(shù)，且每個數(shù)均在1000至9999之間。函數(shù)ReadDat()

讀取這200個數(shù)存放到數(shù)組aa中。請編寫一個函數(shù)jsSort(),其函數(shù)的功能是：要求按每個

數(shù)的后三位的大小進行升序排列，然后取出滿足條件的前10個數(shù)依次存入數(shù)組bb中，如果

后三位的數(shù)值相等，則按原先的數(shù)值進行降序排列。最后調(diào)用函數(shù)WriteDat()把結(jié)果bb輸

出到文件out.dat中。

int

for(i=0;i<199;i++)

For(j=i+1;j<200;j++)

(

ir(aa[i]%1000>aa[j]%1800)

<

t=aa[i];aa[i]=aa[j];aa[j]=t;

}

elseiF(aa[i]%1000==aa[j]%1000)

iF(aa[i]<aa[j])

<

t=aa[i];aa[i]=aa[j];aa[j]=t;

For(i=0;i<10;i++)

bb[i]=aa[i];

>

6-2"在文件in.dat中有200個正整數(shù)，且每個數(shù)均在1000至9999之間。函數(shù)ReadDat。讀

取這200個數(shù)存放到數(shù)組aa中。請編寫一個函數(shù)jsSort(),其函數(shù)的功能是：要求按每

個數(shù)的后兩位的大小進行降序排列，然后取出滿足條件的前I0個數(shù)依次存入數(shù)組bb中，

如果后兩位的數(shù)值相等，則按后三位的數(shù)值進行降序排列。最后調(diào)用函數(shù)WriteDat。把

結(jié)果bb輸出到文件out.dat中。

<

int

For(i=0;i<199;i++)

For(j=i+1;j<208;j++)

<

if(aa[i]%100<aa[j]%100)

{

t=aa[i];aa[i]=aa[j];aa[j]=t;

>

elseif(aa[i]%180==aa[j]%100)

iF(aa[i]%1000<aa[j]%1000)

<

t=aa[i];aa[i]=aa[j];aa[j]=t;

For(i=0;i<10;i++)

bb[i]=aa[i];

}

7-1”已知數(shù)據(jù)文件IN.DAT中存有200個四位數(shù)，并已調(diào)用讀函數(shù)readDat。把這些數(shù)存入

數(shù)組a中，請考生編制一函數(shù)jsVal(),其功能是：依次從數(shù)組a中取出一個四位數(shù)，

如果該四位數(shù)連續(xù)小于該四位數(shù)以后的5個數(shù)且該數(shù)是偶數(shù)(該四位數(shù)以后不滿五個

數(shù)，則不統(tǒng)計)，則統(tǒng)計出滿足此條件的個數(shù)ent并把這些四位數(shù)按從小到大的順序存

入數(shù)組b中，最后調(diào)用寫函數(shù)writeDat。把結(jié)果ent以及數(shù)組b中符合條件的四位數(shù)輸

出到OUT.DAT文件中。

inti,j,k;

For(i=0;i<MfiX-5;i++)

(

if(a[i]%2==0)

<

For(j=i+1;j<=i+5;j++)

iF(a[i]>a[j])

break;

iF(j==i+6)

<

b[cnt]=a[i];

cnt++;

for(i=0;i<cnt-1;i++)

for(j=i+1;j<cnt;j++)

if(b[i]>b[j])

<

k=b[i];b[i]=b[j]；b[j]=k;

>

>

7-2"J知數(shù)據(jù)文件IN.DAT中存有200個四位數(shù)，并已調(diào)用讀函數(shù)readDat()把這些數(shù)存入

數(shù)組a中，請考生編制一函數(shù)jsVal(),其功能是：依次從數(shù)組a中取出一個四位數(shù)，如果該

四位數(shù)連續(xù)大于該四位數(shù)以后的5個數(shù)且該數(shù)是奇數(shù)，則統(tǒng)計出滿足此條件的個數(shù)ent并把

這些四位數(shù)按從小到大的順序存入數(shù)組b中，最后調(diào)用寫函數(shù)writeDat。把結(jié)果ent以及數(shù)

組b中符合條件的四位數(shù)輸出到OUT.DAT文件中。

inti,j,k;

For(i=0;i<MfiX-5;i++)

<

if(a[i]%2?=0)

{

For(j=i+1;j<=i+5;j++)

iF(a[i]<a[j])

break;

iF(j==i+6)

<

b[cnt]=a[i];

cnt++;

For(i=0;i<cnt-1;i++)

For(j=i+1;j<cnt;j++)

if(b[i]>b[j])

<

k=b[i];b[i]=b[j];b[j]=k;

>

>

7-2"已知數(shù)據(jù)文件IN.DAT中存有200個四位數(shù)，并已調(diào)用讀函數(shù)readDat。把這些數(shù)存入

數(shù)組a中，請考生編制一函數(shù)jsV