全國2024年全國計算機三級網(wǎng)絡(luò)技術(shù)上機真題100道常規(guī)題

2024年全國計算機三級網(wǎng)絡(luò)技術(shù)上機真題100道常規(guī)題四位數(shù)各位上的數(shù)字均是0或2或4或6或8,則統(tǒng)計出滿意此條件

的個數(shù)ent,并把這些四位數(shù)按從大到小的依次存入數(shù)組b中。最終

☆題目1main()函數(shù)調(diào)用寫函數(shù)wrileDat。把結(jié)果ent以及數(shù)組b中符合條件

函數(shù)KcadDat()實現(xiàn)從文件IN.DA1中讀取一篇英文文章存入到字符的四位數(shù)輸出到OU1.DAT文件中。

串?dāng)?shù)組xx中；請編制函數(shù)StrOR(),其函數(shù)的功能是：以行為單位依voidjsVal()

次把字符串中全部小寫字母。左邊的字符串內(nèi)容移到該串的右邊存{intij,qwjiw,sw,gw;

放，然后把小寫字母。刪除，余下的字符串內(nèi)容移到已處理字符串的for(i=0;i<MAX;i++)

左邊存放，之后把己處理的字符串仍按行重新存入字符串?dāng)?shù)組xx中。{qw=a|i]/1000;bw=a[i]/100%10;

最終main。函數(shù)調(diào)用函數(shù)WriteDatO把結(jié)果xx輸出到文件sw=a|i]%100/10;gw=aliJ%10;

OUT5.DAT中if(qw&&qw%2==0&&bw%2==0&&sw%l==0&&gw%2==0)

b|cnt++]=a[ij;

voidStrOR(void)}

{inti,rightoj,s,k;for(i=0;i<cnt-l;i++)

chartem[80];for(j=i+1;j<cnt;j++)

for(i=0;i<maxline;i++)if(bli]<bU]){qw=b[i];b[i]=b[j];b[j]=qw;}

for(j=strlen(xx|iJ)-l;j>=0;j-)

}

(k=0；★題目3(字符型題)

memset(tem,0,80);

請編寫一個函數(shù)jsValuc(intm,intk,int該函數(shù)的功能是：將大

if(xx皿]==*)

{righto=j;于整數(shù)m且緊靠m的k個素數(shù)存入數(shù)組xx傳回。

for(s=righto+l;s<strlcn(xx[ij);s++)最終調(diào)用函數(shù)writeDatO讀取10組數(shù)據(jù)，分別得出結(jié)果且把結(jié)果

tem[k++]=xx[i][s];輸出到文件。ut.dat中。

for(s=0;s<righto;s++)部分源程序存在文件progl.c中。

if(xx[i][s]!='o,)例如：若輸入175則應(yīng)輸出：19,23,29,31,37。

tem|k++]=xxfi][s|;請勿改動主函數(shù)main。和寫函數(shù)writeDat。的內(nèi)容。

strcpv(xx|i],tem);

intisP(intm)

}

elsecontinue;(

}}inti;

題目2for(i=2;i<in;i++)

己知數(shù)據(jù)文件IN.DAT中存有200個四位數(shù)，并弓調(diào)用讀函數(shù)rcadDatOif(m%i?0)r€turn0;

把這些數(shù)存入數(shù)組a中，請考生編制一函數(shù)jsVal(),其功能是：假如return1;

}for(m=l;m<=k;m++)

voidnumfintni,intk,intxx[])str|s++]=xx[i][j+ni];

{ints=();str[s]='\O';

for(ni=m+l;k>O;m++)strcpy(xx[i],str);}

if(isP(m)){xx[s++]=m;k-;)

☆題目5(整數(shù)排序題)

}

在文件in.dat中有200個正整數(shù)，且每個數(shù)均在1000至9999之間.

★題目4(字符處理一發(fā)序輸出)函數(shù)ReadDatO讀取這200個數(shù)存放到數(shù)組aa中，請編制函數(shù)JsSorl。,

函數(shù)ReadDat()實現(xiàn)從文件IN.DAT中讀取一篇英文文章存入到字符其函數(shù)的功能是：要求按每個數(shù)的后三位的大小進行升序排列，然后

串?dāng)?shù)組xx中，請編制函數(shù)StrOL(),其函數(shù)的功能是：以行為單位對取出滿意此條件的前10個數(shù)依次存入數(shù)組bb中，假如后三位的數(shù)值

行中以空格或標點符號為分隔的全部單詞進行倒排。最終把己處理的相等，則按原先的數(shù)值進行降序排列。最終調(diào)用函數(shù)WrileDat。把結(jié)

字符串(應(yīng)不含標點符號)仍按行重新存入字符串?dāng)?shù)組xx中，最終調(diào)果bb輸出到文件ouldal中。

用函數(shù)writeDatO把結(jié)果xx輸出到文件OUT6.DAT中。例：史理前601250999012702580h?

例如：原文：YouHeMe史理后901260127?25808850緲

Iamastudent.voidjsSort()

結(jié)果：MeHeYou{intij,data;

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

voidStrOL(void)for(j=i+1y<2(H);j++)

{intij,k,s,m,strl;ir(aa[i]%100()>aa[j]%1000||aa[i]%1(MM)==aa|j]%1000&&aa[iJ<aa|j])

charstr[80];{data=aa[i;aa|i]=aa(j];aa(j|=data;}

for(i=0;i<niaxline;i++)for(i=0;i<10;i++)

{strl=strlen(xx|il);

bb[i]=aa[i];

memset(str.0,80);

s=k=0;|

for(j=strl-ly>=Oy-)☆題目6正整數(shù)排序

{if(isalpha(xx[i][j]))k++;在文件in.dat中有200個正整數(shù)，且每個數(shù)均在1000至9999之間。

else{for(ni=l;ni<=k;m++)函數(shù)ReadDatO讀取這200個數(shù)存放到數(shù)組aa中，請編制函數(shù)jsSorlO,

str[s++]=xx[i][j+m];其函數(shù)的功能是：要求按每個數(shù)的后三位的大小進行降序排列，然后

k=0;取出滿意此條件的前10個數(shù)依次存入數(shù)組b中,假如后三位的數(shù)值相

)等,則按原先的數(shù)值進行升序排列。最終調(diào)用函數(shù)WriteDatO把結(jié)果

if(!isalpha(xxfinjD)

bb輸出到文件oul.dat中。

str[s++|='

例：處理前90125099601270258088

處理后5099808X702560129012調(diào)用函數(shù)WrileDatO把結(jié)果xx輸出到文件PS1.DAT中。

voidjsSort()替代關(guān)系：f(p)=p*llmod256(p是數(shù)組中某一個字符的ASCII

{intiJ,data;值，f(p)是計算后新字符的ASCII值)，假如計算后f(p)值小于等于32

for(i=0;i<199;i++)或大于130,則該字符不變，否則將f(p)所對應(yīng)的字符進行替代。(留

for(j=i+l;j<200;j++)意中間變量用無符號整型)，部分源程序存在文件progLc中。原始數(shù)

if(aa|i]%100()<aa[j]%1000||aa[i]%1000==aa[j]%1000&&aa[i]>aa[j])據(jù)文件存放的格式是：每行的寬度均小于80個字符。

{data=aa|i|;au[i]=aa(j];aa(j]=data;}voidencryptChar()

f()r(i=0;i<10;i++){intij;

bb[ij=aa|i);}for(i=0;i<maxline;i++)

☆題目7(結(jié)構(gòu)體操作題》for(j=i)y<strlen(xx[i])y++)

已知在文件IN.DAT中存有100個產(chǎn)品銷售記錄，每個產(chǎn)品銷售記錄if(xxli||j|*ll%256<=32||xxli||j]*ll%256>130)continue;

由產(chǎn)品代碼dm(字符型4位)，產(chǎn)品名稱me(字符型10位)，單價dj(整elsexxlil|jj=xx[ij|jj*11%256;

型)，數(shù)量3(整型)，金額je(長整型)五部分組成。其中：金額=單價*}

數(shù)量計算得出。函數(shù)ReadDat。是讀取這100個銷售記錄并存入結(jié)構(gòu)★☆題目9(字符串排序題)

數(shù)組sell中。請編制函數(shù)SorlDat。，其功能要求：按產(chǎn)品代碼從大到函數(shù)ReadDatO實現(xiàn)從文件IN.DAT中讀取一篇英文文章存入到字符

小進行排列，若產(chǎn)品代碼相同，則按金額從大到小進行排列，最終排串?dāng)?shù)組xx中，請編制函數(shù)SortCharDO,其函數(shù)的功能是：以行為單

列結(jié)果仍存入結(jié)構(gòu)數(shù)組sell中，最終調(diào)用函數(shù)WriteDatO把結(jié)果輸出位對字符按從大到小的依次進行排序，排序后的結(jié)果仍按行重新存入

到文件OUT6.DAT中。字符串?dāng)?shù)組xx中，最終調(diào)用函數(shù)writeDatO把結(jié)果xx輸出到文件

voidSortDatf)OUT2.DAT中。

{intij;例：原文：dAe,BfC.

PROxy;CCbbAA

for(i=0;i<99;i++)組果：fcdCBA.

for(j=i+l;j<100;j++)bbCCAA

if(strcmp(se)l[i].dm^ell[j].din)<O||strcmp(seU[i].dm^ell(j].dm)==O&&voidSortCharD(void)

sell[i).je<sell(j].je){intij,k,strl;

{xy=sell|ij;sell[i]=sell[j];sell[j]=xy;}}charch;

★題目8(字符替換題)for(i=0;i<niaxline;i++)

函數(shù)RcadDa")實現(xiàn)從文件ENG.IN中讀取一篇英文文章，存入到字(strl=strlen(xx(ij);

符串?dāng)?shù)組xx中；請編制函數(shù)cncryptChar(),或給定的替代關(guān)系對數(shù)for(j-Oj<strl-ly11)

組xx中的全部字符進行替代，仍存入數(shù)組XX的對應(yīng)的位置上，最終for(k=j+l;k<strl;k++)

if(xx[i][j]<xx[i][k])(intI;

{ch=xx[injl；xx[iHj]=xx[i]|kj;xx|iHk|=ch;}}}for(I=0;I<strlen(s);I++)

★☆題目10(替換字符題)if(s[i]=='力網(wǎng)i]=='Z')s[i]-=25;

函數(shù)ReadDatO實現(xiàn)從文件1N.DAT中讀取一篇英文文章存入到字符elseif(Mil>='a'&&Mi]<='y'lh[i]>='A,&&Mi|<=，V)?|i|+=l；

串?dāng)?shù)組xx中，請編制函數(shù)ConvertCharAO,其函數(shù)的功能是：以行}

為單位把字符串中的全部小寫字母改寫成該字時的下一個字母，假如★☆題目12(結(jié)構(gòu)體運算題題)

是字母z,則改寫成字母a。大寫字母仍為大寫字母，小寫字母仍為小已知在文件IN.DAT中存有】00個產(chǎn)品銷售記錄，每個產(chǎn)品銷售記錄

寫字母，其他字符不變。把己處理的字符串仍按行重新存入字符串?dāng)?shù)由產(chǎn)品代碼dm(字符型4位)，產(chǎn)品名稱me(字符型10位)，單價可(整

組xx中，最終調(diào)用函數(shù)wrileDatO把結(jié)果xx輸出到文件OUT1.DAT型)，數(shù)量si(整型)，金額je(長整型)五部分組成。其中：金額=單價*

中。數(shù)量計算得出。函數(shù)ReadDatO是讀取這100個銷售記錄并存入結(jié)構(gòu)

例：原文：Adb.Bcdza數(shù)組sell中。請編制函數(shù)SorlDat。，其功能要求：

abck.LLhj按產(chǎn)品名稱從小到大進行排列，若產(chǎn)品名稱相等，則按金額從小到大

結(jié)果：Aec.Bdcab進行排列，最終排列結(jié)果仍存入結(jié)構(gòu)數(shù)組sell中，

bcdl.LLikvoidSoriDat。

voidConvertCharA(void){intij；

(intij;PROxy;

for(i=0;i<maxline;i++)for(i=0;i<99;i++)

{fonj=0;j<strlen(xx|iJ)y++)for(j=i+ly<100y++)

if(xxli]Ul=='z')xx[i][j]=3;if(strcmp(sell[i].mc^ell[j].mc)>O||strcmp(sell[i].mc^sell(jJ.mc)=O&&se

elseif(xx[i]U]>='a'&&xxliJU]<=,y')xx[i][jj+=l;ll(i].je>sell[j].je)

1I{xy=sel][i];sell[i]=sell[j]^ell[j]=xy;}

☆題目11(字符串字母移位題)}

程序progl.c的功能是：把s字符串中的全部字母改寫成該字母的下題目13(結(jié)構(gòu)體運算題)

一個字母，字母z改寫成字母a。要求大寫字母仍為大寫字母，小寫已知在文件IN.DAT中存有100個產(chǎn)品銷售記錄，每個產(chǎn)品銷售記錄

字母仍為小寫字母，其它字符不做變更。由產(chǎn)品代碼dm(字符型4位)，產(chǎn)品名稱me(字符型10位)，單價dj(整

請考生編寫函數(shù)chg(char*s)實現(xiàn)程序要求，最終調(diào)用函數(shù)型)，數(shù)量4(整型)，金額je(長整型)五部分組成。其中：金額=單價*

rcadwritcDAT()把結(jié)果輸出到文件beLout中。數(shù)量計算得出。函數(shù)RcadDaU)是讀取這100個銷售記錄并存入結(jié)構(gòu)

例如：s字符串中原有的內(nèi)容為：Mn.l23Zxy,則調(diào)用該函數(shù)后，數(shù)組sell中.請編制函數(shù)SortDatO,其功能

結(jié)果為：No.l23Ayz.要求：按產(chǎn)品代碼從小到大進行排列，若產(chǎn)品代碼相等，則按金額從

voidchg(char*s)大到小進行排列，最終排列結(jié)果仍存入結(jié)構(gòu)數(shù)組sell中，最終調(diào)用函

數(shù)\VriteDal()把結(jié)果輸出到文件OUT9.DAT中?！镱}目15(整數(shù)各位數(shù)字運算排序題)

voidSortDat()已知數(shù)據(jù)文件IN.DAT中存有200個四位數(shù)，并已調(diào)用讀函數(shù)readDatO

{intij;把這些數(shù)存入數(shù)組a中，請考生編制一函數(shù)jsVal(),其功能是：若一

PROxy;個四位數(shù)的千位數(shù)字上的值小于等于百位數(shù)字上的值，百位數(shù)字上的

for(i=0;i<99;i++)值小于等于十位數(shù)字上的值，以及十位數(shù)字上的值小于等于個位數(shù)字

for(j=i+l;j<100;j++)上的值，并且原四位數(shù)是偶數(shù)，則統(tǒng)計出滿意此條件的個數(shù)ent并把

if(strcnipisell|i].dm^*ell(j].dm)>O||strcinp(seII[il.dm,sell|j|.dni)==O&&s這些四位數(shù)按從小到大的依次存入數(shù)組b中，最終調(diào)用寫函數(shù)

ell[i].je<sell[j].je)writeDal()把結(jié)果ent以及數(shù)組b中符合條件的四位數(shù)輸出到

{xy=sell|i];sell|ij=sell[j|;selllj]=xy;}OUT.DAT文件中。

}voidjsVal()

★☆題目14(整數(shù)統(tǒng)計排序題){intij;

已知數(shù)據(jù)文件IN.OAT中存有200個四位數(shù)，并三調(diào)用讀函數(shù)readDaK)intqw,bw^?w,gw;

把這些數(shù)存入數(shù)組a中，請考生編制一函數(shù)jsVal。，其功能是：依次for(i=0;i<MAX;i++)

從數(shù)組a中取出一個四位數(shù)，假如該四位數(shù)連續(xù)大于該四位數(shù)以后的(qw=a|iJ/10()();bw=a[iJ%1000/l(M);

五個數(shù)且該數(shù)是奇數(shù)(該四位數(shù)以后不滿五個數(shù)，則不統(tǒng)計)，則統(tǒng)計sw=ali]%100/10;gw=aliJ%10;

出滿意此條件的個數(shù)ent并把這些四位數(shù)按從小到大的依次存入數(shù)組if((qw<=bw)&&(bw<=sw)&&(sw<=gw)&&(a[i]%2==0))

b中，最終調(diào)用寫函數(shù)writeDat()把結(jié)果ent以及數(shù)組b中符合條件b|cnt++]=a[i];

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

voidjsVal()for(i=0;i<cnt-l;i++)

{intijjlae;;for(j=i+ly<cnt;j++)

for(i=0;i<MAX-5;i++)if(blij>b|jj){qw=b[i];b|i|=b[j];blj]=qw;}

{for(j=i+1;j<=i+5;j++)}

if(a|i]>a|j]&&a[i]%2)Hag=l;★☆題目16(字符替換題)

else{flag=O;break;}函數(shù)ReadDatO實現(xiàn)從文件IN.DAT中讀取一篇英文文章存入到字符

if(flag==l)b(cnt++]=a|i);串?dāng)?shù)組xx中，請編制函數(shù)StrCharJRO,其函數(shù)的功能是：以行為單

}位把字符串中全部字符的ASCII值右移4位,然后把右移后的字符

for(i=0;i<cnt-l;i++)ASCII值再加上原字符的ASCII值，得到新的字符仍存入原字符串對

for(j=i+l;j<cntd++)應(yīng)的位置上.最終把己處理的字符串仍按行重新存入字符串?dāng)?shù)組XX

if(b[i]>b[j])(nag-b[i]；b[i]-bU]；b[j]-nag;]中，最線調(diào)用函數(shù)writcDatO把結(jié)果xx輸出到文件OUT8.DAT中。

}voidStrCharJRO

{intij;調(diào)用函數(shù)WriteDat()把結(jié)果xx輸出到文件PS10.DAT中。

for(i=0;i<niaxline;i++)替代關(guān)系：f(p)=p*llmod256(p是數(shù)組中某一個字符的ASCII

for(j=l);j<strlen(xx|i]);j++)值，f(p)是計算后新字符的ASCII值)，假如原字符的ASCII值是偶

xx[ij(j]?"(xx|iJUJ?4);(右移四位的表達方式)數(shù)或計算后f(p)值小于等于32,則該字符不交，否則將f(p)所對應(yīng)的

}字符進行善代。

☆題目17(字符替換題)voidencryptChar()

函數(shù)READDAT()實現(xiàn)從文件IN.DAT中讀取一篇英文文章存入到(intij;

字符串?dāng)?shù)組XX中;請編制函數(shù)CHA。,其函數(shù)功能是:以行為單位把字for(i=0;i<maxline;i++)

符串中的第一個字符的ASCH值加其次個字符的ASCII值，得到第一for(j=()j<strlen(xx|i])y++)

個親朋字符，其次個字符的ASCII值加第三個字符的ASCII值，得到if(xx|i||j]*ll%256<=32||xxli]|j]%2==0)continue;

其次個新字符，依此類推始終處理到最終其次個字符，最終一個字符elsexx[illjl=xx[i][jj*ll%256;

的ASCII值加原第一個字符的ASCII值，得到最終一個新的字符，得}

到的新字符分別存放在原字符串對應(yīng)的位置上.最終把己處理的字符☆題目19(單詞個數(shù)統(tǒng)計題)

串逆轉(zhuǎn)后按行重新存入字符串?dāng)?shù)組XX中,最終調(diào)用函數(shù)WRITEDATO編寫一個函數(shù)findStr(char*str,char*substr),該函數(shù)統(tǒng)id■一個長度為

把結(jié)果XX輸出到文件0UT9.DAT中.原始數(shù)據(jù)文件存放的格式是:每2的子字符串在另一個字符串中出現(xiàn)的次數(shù)。例如，假定輸入的字符

行的寬度均小于80個字符，含標點符號和空格.串為"asdasasdfgasdaszx67asdmklo",子字符串為"as",函數(shù)返回

voidChA(void)值是6。(表明白返回值是整數(shù)型)

{intij;函數(shù)RcadWriteO實現(xiàn)從文件in.dat中讀取兩個字符串，并調(diào)用

charch;函數(shù)findStrO，最終把結(jié)果輸出到文件out.dat中。

for(i=0;i<niaxline;i++)intHndStr(char*str,char*substr)

{ch=xx[i][0];{intiJ,lenl,len2,cnt=O,flag;

for(j=0;j<strlen(xx[i])-l;j++)lenl=strlen(str);

XK[iJUJ+=xxliJU+lJ;Ien2=strlen(substr);

xx[i][strlen(xx[i])-l]+=ch;for(i=0;i<lenl;i++)

strrev(xx[i]);{for(j=0^j<len2;j++)

}}if(str|i+j]==substr[jj)flag=l;

☆題目18else{flag=O;break;}

函數(shù)RcadDa")實現(xiàn)從文件ENG.IN中讀取一篇英文文章，存入到字if(flag==l)cnt++;

符串?dāng)?shù)組xx中；請編制函數(shù)cncryptChar(),於給定的替代關(guān)系對數(shù))

組xx中的全部字符進行替代，仍存入數(shù)組XX的對應(yīng)的位置上，最終returnent;

}do(x0=xl;

★題目20(Fibonacci數(shù)列題)xl=€()s(x0);

編寫函數(shù)jsV'alue,它的功能是：求Fibonacci數(shù)列中大于I的最小的}while(labs(x0-x1)>=0.()00001);

一個數(shù)，結(jié)果由函數(shù)返回。其中Fibonacci數(shù)列F(n)的定義為；returnxl;}

F(0)=0,F(l)=l注：本題在無憂或捷成模擬盤中，需定義doublex0,xl;才能通過，據(jù)

F(n)=F(n-l)+F(n-2)事實上機拍到該題的考生反映，事實上機需按上面解法的定義方能通

過，特此說明，供參考。

最終調(diào)用函數(shù)wrileDat。讀取50個數(shù)據(jù)tt分別得出結(jié)果且把結(jié)

果輸出到文件out.dat中?！镱}目22(平方根問題)

例如：當(dāng)1=1000時，函數(shù)值為：1597.請編寫函數(shù)counlValue(),它的功能是：求n以內(nèi)(不包括n)同時能

intjsValue(intt)被3與7整除的全部自然數(shù)之和的平方根s,并作為函數(shù)值返回，最

{intro=0Jl=l,fn;終結(jié)果s輸出到文件。ut.dat中。

fn=fi)+fl;例如若n為1000時，函數(shù)值應(yīng)為：s=153.<W9064o

while(fn<=t)doublecountValue!intn)

{ro=n；{inti;

fl=fn;doubles=0.0;

fn=f?+fl;for(i=l;i<n;i++)

}returnfn;}if(i%21==0)s+=i;

☆題目21(迭代方法求方程題)returnsqrt(s);}

下列程序progl.c的功能是：利用以下所示的簡潔迭代方法求方程：題目23(實數(shù)運算題)

cos(x)-x=0的一個實根。已知在文件in.dat中存有N個(個數(shù)<200)實數(shù)，函數(shù)rcaddatO讀取

Xn+l=cos(Xn)這N個實數(shù)并存入數(shù)組xx中。請編制函數(shù)calvalucO,其功能要求：

迭代步驟如下：(1)取XI初值為0.0；1、求出這N個實數(shù)的平均值aver；

(2)X0=XL把XI的值賦給X0；(3)Xl=cos(X0),求出一個新的XI；2、分別求出這N個實數(shù)的整數(shù)部分之和sumint以及小數(shù)部分之和

(4)若X0-X1的確定值小于0.000001,執(zhí)行步驟(5),否則執(zhí)行步驟(2)；sumdec>最終調(diào)用函數(shù)writeda")把所求的結(jié)果輸出到文件out.dat中。

⑸所求XI就是方程cos(X)-X=0的一個實根，作為函數(shù)值返回。留意：部分源程序已給出。

請編寫函數(shù)countVahicO實現(xiàn)程序的要求，最終調(diào)用函數(shù)voidCalValue(void)

writcDatO把結(jié)果輸出到文件OUT17.DAT中。(inti;

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

{float\0^1;{sumint?"(long)xx[i];

x1=0.0;suindec+=xx[i]-(long)xx[i];

aver+=xx[i];for(i=0;i<half;i++)

}aver/=N;Jif(xy(i]!=xy[-strl])break;

題目24(完全平方數(shù)問題)if(i>=half)return1;

下列程序progLc的功能是；在三位整數(shù)(100至999)中找尋符合條elsereturn0;

件的整數(shù)并依次從小到大存入數(shù)組中；它既是完全平方數(shù)，又是兩位}

數(shù)字相同，例如144、676等?；蛘呦旅娴慕夥ǎ?/p>

請編制函數(shù)實現(xiàn)此功能，滿意該條件的整數(shù)的個數(shù)通過所編制的intjsVahie(longn)

函數(shù)返回。(longintS=0,k;

intjsVa)ue(intbb[J)k=n;

{intiJ,k=O;while(k)

inthun,ten,data;{s=s*10<-k%10;

for(i=10;i<32;i++)k/=10;

)

if(s==n)return1;

hum=j/100;if(s!=n)return0;

ten=j%100/10;)

data=j%10;輸出結(jié)果為：

if(hum==ten||hum==data||ten==data)m=121,m*m*m=1331

bb[k++]=j;)m=101,m*m=10201,m*m*m=1030301

returnk;}ni=lll,m*ni=12321,m*m*m=1367631

★題目25(回文數(shù)問題)★☆題目26(整數(shù)統(tǒng)計運算題)

下列程序的功能是：找尋并輸出n至999之間的數(shù)m,它滿意m,m2已知在文件IN.DAT中存有若干個(個數(shù)<200)四位數(shù)字的正整數(shù)，

和m3均為回文數(shù)。所謂回文數(shù)是指其各位數(shù)字左右對稱的整數(shù)，例函數(shù)ReadDat()讀取這若干個正整數(shù)并存入數(shù)組xx中。請編制函數(shù)

如121,676,94249等。滿意上述條件的數(shù)如m=ll,m2=121.n13=1331CalValueO,其功能要求：1、求出這文件中共有多少個正整數(shù)totNum；

皆為回文數(shù)。請編制函數(shù)intsvaluc(longm)實現(xiàn)此功能，假如是回文2、求這些數(shù)右移I位后，產(chǎn)生的新數(shù)是偶數(shù)的數(shù)的個數(shù)totCnt,以及

數(shù)，則函數(shù)返回1,反之則返回0。最終把結(jié)果輸出到文件。ut.dat中。滿意此條件的這些數(shù)(右移前的值)的算術(shù)平均值totPjz,最終調(diào)用函數(shù)

intjsValucdongn)writeDatO七所求的結(jié)果輸出到文件QUT.DAT中。

{inti^strkhalf;voidCalValue(void)

charxy[20];{inti,data;

ltoa(n,xy,10);/*留意這里不能運用itoa()函數(shù)，因為n是long型的*/for(i=0;i<MAXNUM;i++)

strl=strlen(xy);if(xx|i|>0)

half=strl/2;{totNum++;

data=xx[i]?l;字)，以及把個位數(shù)字和百位數(shù)字組成另一個新的十位數(shù)cd(新十位

if(data%2==0){totCnt++;totPjz+=xx[i];}數(shù)的十位數(shù)字是原四位數(shù)的個位數(shù)字，新十位數(shù)的個位數(shù)字是原四位

}數(shù)的百位數(shù)字)，假如新組成的兩個十位數(shù)ab-cd>=0且ab-ccl<=10且

if(totCnt==0)totrjz-O；兩個數(shù)均是奇數(shù)，同時兩個新數(shù)的十位數(shù)字均不為零，則將滿意此條

elsetotPjz/=totCnt;}件的四位數(shù)按從大到小的依次存入數(shù)組b中，并要計算滿意上述條件

題目27(整數(shù)各位數(shù)字運算題)的四位數(shù)的個數(shù)ento最終main。函數(shù)調(diào)用寫函數(shù)wrileDa")把結(jié)果

已知數(shù)據(jù)文件in.dat中存有300個四位數(shù)，并已調(diào)用讀函數(shù)ReadDal。ent以及數(shù)組I)中符合條件的四位數(shù)輸出到OUT.DAT文件中。

把這些數(shù)存入數(shù)組a中，請編制一函數(shù)jsVahieO,其功能是：求出千voidjsVal()

位數(shù)上的數(shù)減百位數(shù)上的數(shù)減十位數(shù)上的數(shù)減個位數(shù)上的數(shù)大于零的{intiJ,thou,hun,ten,data,ab,cd;

個數(shù)ent,再把全部滿意此條件的四位數(shù)依次存入數(shù)組b中，然后對for(i=0;i<200;i++)

數(shù)組b的四位數(shù)按從小到大的依次進行排序，最終調(diào)用寫函數(shù){thou=a[i]/1000;hun=a[i]%1000/100;

writeDalO把結(jié)果輸出到out.dat文件。ten=a|ij%100/10;data=aHJ%10;

例如：9123,9-1-2-3>0,則該數(shù)滿意條件存入數(shù)組b中，且個數(shù)ab=10*thou+ten;cd=10*data+hun;

cnt=cnt+l.9812,9-8-1-2M),則該數(shù)不滿意條件忽視。if((ab<d)>=0&&(ab-cd)<=10&&ab%2==l&&cd%2==l&&ab>=

jsValue()10&&cd>=10)

{intij,qw,bw^?w,gw;b|cnt++|=a(i|;

for(i=0;i<300;i++)}

{qw=ali]/1000;bw=aliJ/l(H)%10;for(i=0;i<cnt-l;i++)

sw=a|ij%100/10;gw=a|i|%10;for(j=i+ly<cnt;j++)

if(qw-bw-sw-gw>0)b[cnl++]=a[i];lf(bIi]<bUJ){thou=b[ij;b[i]=bU];b[j]=thou;}

}}

for(i=0：i<cnt-1;i++)☆題目29(整數(shù)各位打散組合運算題)

for(j=i+l;j<cnt^++)已知數(shù)據(jù)文件IN.DAT中存有200個四位數(shù)，并已調(diào)用讀函數(shù)rcadDatO

if(b[i]>b[j]){qw=b[ij;b[i]=b[j];b|j]=qw;}把這些數(shù)存入數(shù)組a中，請考生編制一函數(shù)JsVak),其功能是：把千

}