1.已知在文獻IN１.DAＴ中存有10０個產品銷售記錄,每個產品銷售記錄由產品代碼dm（字符型4位)、產品名稱mc(字符型１０位）、單價dｊ(整型）、數量sl(整型）、金額jｅ（長整型）五部分組成。其中：金額＝單價×數量。函數ＲｅaｄDaｔ()的功能是讀取這10０個銷售記錄并存入結構數組ｓelｌ中。請編制函數SortDａt（），其功能規定：按產品名稱從小到大進行排列,若產品名稱相同，則按金額從小到大進行排列,最終排列結果仍存入結構數組selｌ中，最后調用函數WｒiｔeDat()把結果輸出到文獻OUT1.DＡT中。注意：部分源程序已給出。請勿改動主函數main()、讀數據函數ReaｄＤaｔ（)和輸出數據函數WriteDａｔ（)的內容。【參考答案】vｏidSoｒｔDａt(){inti,j;ＰROｘy;for(ｉ=0;i<99；i++)ｆｏr(j=i+1;j<1００;ｊ＋+)｛if（stｒcmｐ(seｌl[i].mc,sell[j].mc)>0）/*按產品名稱從小到大進行排列*/{xy=ｓelｌ[i];ｓelｌ[i］＝sell［j］；ｓeｌｌ［j］＝xｙ;}ｅlｓeif(strcmp(sell［i]．mc，seｌl[j]．mc)＝=0）/*若產品名稱相同*/if(seｌl[i］.ｊｅ>sell[j].je)／*則按金額從小到大進行排列*／{xy=seｌｌ[ｉ];sell[i]=ｓｅlｌ［j］;sell[j]=xy;｝}}2.已知在文獻IN2.ＤＡT中存有10０個產品銷售記錄,每個產品銷售記錄由產品代碼ｄｍ(字符型4位）、產品名稱mｃ（字符型１0位)、單價dｊ(整型）、數量sｌ(整型)、金額je(長整型)五部分組成。其中:金額=單價×數量。函數ReadDat()的功能是讀取這100個銷售記錄并存入結構數組ｓell中。請編制函數SorｔDat(),其功能規定:按產品名稱從大到小進行排列，若產品名稱相同,則按金額從小到大進行排列，最終排列結果仍存入結構數組ｓelｌ中,最后調用函數ＷriteDat()把結果輸出到文獻OUT２.DＡT中。注意：部分源程序已給出。請勿改動主函數maｉn()、讀數據函數ReaｄDaｔ（）和輸出數據函數WriteDat()的內容。【參考答案】ｖoiｄSorｔＤat(){intｉ，ｊ;PROｘｙ;fｏr(i=0；i<MAＸ-1；i++)fｏr(ｊ=i+1;ｊ＜ＭＡX;j++)｛if(sｔrｃmp（sell[i]．mｃ，sell［j].ｍc)＜0)/*按產品名稱從大到小進行排列*/{xy=ｓell[i］;ｓell［i]=ｓell［j];selｌ［j]＝ｘｙ;｝elseif(ｓtrcmp（sｅlｌ［i］．mｃ,sｅll[j].mｃ)＝=0)/*若產品名稱相同＊/iｆ(seｌl[i].je>sell[j].je)/*則按金額從小到大進行排列*/{xy＝selｌ［i]；sｅll[i］＝sｅｌl[j];sell[j]＝xy;}}}３.已知在文獻IＮ3.DＡＴ中存有１０0個產品銷售記錄,每個產品銷售記錄由產品代碼dｍ(字符型4位)、產品名稱mc(字符型10位）、單價dj（整型）、數量sl（整型)、金額je（長整型)五部分組成。其中：金額=單價×數量。函數ReadDat()的功能是讀取這100個銷售記錄并存入結構數組seｌｌ中。請編制函數SorｔDat(),其功能規定：按產品代碼從大到小進行排列，若產品代碼相同,則按金額從大到小進行排列，最終排列結果仍存入結構數組sell中，最后調用函數WriteDaｔ(）把結果輸出到文獻OＵT3．DAＴ中。注意:部分源程序已給出。請勿改動主函數mａｉn（）、讀數據函數ＲeａdDａt()和輸出數據函數ＷriteＤat（)的內容。【參考答案】voidＳoｒｔDat(）{iｎti,j;ＰＲOxy;fｏr(i=0;i＜99;ｉ＋＋)for(ｊ＝ｉ+1；j<1０0;j++){if（sｔｒcmp(seｌｌ[ｉ］．dm,sｅｌl［j］.dm)<0)/*按產品代碼從大到小進行排列＊/{ｘy＝sｅll［i];sｅll［i］＝selｌ[ｊ］;sell［j]=ｘy；}eｌsｅｉf(ｓtrcｍp(seｌl[ｉ]．ｄm，ｓｅlｌ[j].dｍ)==0）/*若產品代碼相同*/if(sell[i].je<sell[j］.je）/*則按金額從大到小進行排列*／{ｘy=ｓell[i]；seｌl[i]=ｓell［j];ｓell[j]=ｘｙ；}}}4.已知在文獻IN４.DAT中存有10０個產品銷售記錄，每個產品銷售記錄由產品代碼dm(字符型4位)、產品名稱mc(字符型１0位）、單價ｄj（整型）、數量sl（整型）、金額je(長整型)五部分組成。其中：金額＝單價×數量。函數ＲeａdDat（)的功能是讀取這1０0個銷售記錄并存入結構數組seｌｌ中。請編制函數SｏrｔDat（)，其功能規定：按產品名稱從大到小進行排列，若產品名稱相同,則按金額從大到小進行排列，最終排列結果仍存入結構數組sell中,最后調用函數WriteDat（）把結果輸出到文獻OＵT４．ＤAT中。注意:部分源程序已給出。請勿改動主函數mａin（)、讀數據函數ReadDａt()和輸出數據函數WｒiｔeDaｔ(）的內容。【參考答案】voｉdSｏrtDaｔ(){ｉnti，j;PRＯxy；for(i＝0;i＜99;i++)for(j=ｉ＋1；j<１00；j+＋){ｉf（strcmｐ(sｅll[i］.mｃ,sｅｌｌ［j].ｍｃ)<0)/*按產品名稱從大到小進行排列＊/{xy=sell[i]；sｅll[ｉ］=sell[j];sell[j]=ｘy;}elｓeiｆ(strcmp（ｓｅｌｌ[i].ｍc,sell[j].mc)＝=0）／＊若產品名稱相同*／ｉf(ｓeｌl［i].je＜sｅll[j].jｅ)/＊則按金額從大到小進行排列*/｛ｘy=sｅll[i]；ｓell[i］=sell[j];sｅlｌ[j]=xｙ；｝}}5.已知在文獻IN5.DＡＴ中存有100個產品銷售記錄,每個產品銷售記錄由產品代碼dｍ（字符型4位)、產品名稱mc(字符型10位)、單價dj(整型)、數量ｓl(整型）、金額je(長整型）五部分組成。其中：金額=單價×數量。函數ＲeadDat（）的功能是讀取這１0０個銷售記錄并存入結構數組ｓｅlｌ中。請編制函數SortDaｔ(),其功能規定:按金額從大到小進行排列,若金額相等,則按產品代碼從小到大進行排列,最終排列結果仍存入結構數組sｅll中,最后調用函數WriteDat（)把結果輸出到文獻OUT5.ＤＡＴ中。注意：部分源程序已給出。請勿改動主函數ｍaｉn(）、讀數據函數ReadDat()和輸出數據函數ＷｒitｅDat(）的內容。【參考答案】voidSortDat(）{ｉntｉ,j;PRＯxy;ｆor(i=0;i＜MAＸ-１;i+＋)for(j=i+1;j<MAX；j++){ｉｆ(seｌl[ｉ].je<seｌｌ[j]．je)/*按金額從大到小進行排列＊/{xy＝sell[i]；seｌl[i]=sell[j]；selｌ［j]=xy;｝elseiｆ(sell[ｉ]．ｊe==ｓell［j］.je)/＊若金額相同＊/iｆ(strcmp(ｓeｌl[i].dm,ｓｅll[ｊ].ｄｍ)>0）／*則按代碼從小到大進行排列*/{xy=sｅll［i];seｌl［ｉ]=seｌl[j];sell[ｊ]=xｙ;}}}6.已知在文獻IN6.ＤAT中存有100個產品銷售記錄，每個產品銷售記錄由產品代碼dm(字符型４位)、產品名稱mc（字符型10位)、單價ｄｊ(整型)、數量sl(整型）、金額je(長整型）五部分組成。其中：金額=單價×數量。函數ReadDａt()的功能是讀取這100個銷售記錄并存入結構數組sell中。請編制函數SoｒtＤat（)，其功能規定:按產品代碼從小到大進行排列,若產品代碼相同，則按金額從小到大進行排列，最終排列結果仍存入結構數組sell中,最后調用函數WrｉteＤat（)把結果輸出到文獻ＯUT6.DAT中。注意:部分源程序已給出。請勿改動主函數mａiｎ()、讀數據函數ReadＤat()和輸出數據函數WriteDａｔ()的內容【參考答案】vｏiｄSorｔDａt(){inti,j；PROxy;for(ｉ＝０;i<ＭAX－１;i+＋）for（j＝i＋１;j<ＭAX;ｊ＋+){ｉf(strcmｐ(ｓell[i］.dm,sｅll[j］.dｍ）>0)／＊按代碼從小到大進行排列＊/{xy=sell[i];sｅlｌ[i]＝seｌｌ［ｊ];sｅｌｌ[ｊ］＝xy;}eｌseif(ｓｔｒｃmｐ(seｌl[i]．ｄm，seｌl[j］.dｍ)=＝0)/＊若代碼相同＊/if(selｌ[i].je＞sｅll[j].je）/*則按金額從小到大進行排列*/{xy=sｅll[i]；sell[i]=ｓｅll[j];ｓell[j］=xy;｝}}7.已知在文獻ＩN7.DAT中存有100個產品銷售記錄,每個產品銷售記錄由產品代碼dm（字符型4位)、產品名稱ｍｃ（字符型10位）、單價dj(整型）、數量ｓl（整型）、金額ｊe（長整型）五部分組成。其中：金額=單價×數量。函數ReadDaｔ()的功能是讀取這100個銷售記錄并存入結構數組sｅll中。請編制函數SortＤat(），其功能規定：按金額從大到小進行排列,若金額相同，則按產品代碼從大到小進行排列，最終排列結果仍存入結構數組sell中,最后調用函數WrｉｔeDat（)把結果輸出到文獻OUT7.DＡT中。

注意:部分源程序已給出。請勿改動主函數main()、讀數據函數ＲeａdDaｔ()和輸出數據函數ＷrｉtｅＤat()的內容。【參考答案】voidＳorｔDａｔ(){iｎｔi,j;PROxｙ;fｏr(i=0；i＜９9；i++)fｏr(j＝ｉ+1;j<10０;j+＋){iｆ(selｌ[ｉ].ｊe<sell［j]．ｊe)／*按金額從大到小進行排列*／{ｘy=selｌ[i];seｌｌ[i]=sｅｌｌ[j］;selｌ[j］=ｘy;}eｌseｉf(selｌ[ｉ].je==sell[j］.je)/*若金額相同*/if(ｓtｒcmp(sell［i]．dm,sｅll[j].dm)<0)／*則按代碼從大到小進行排列*／{xy=ｓell[ｉ]；seｌｌ[i］=seｌl[j］;sell[ｊ]=xy;｝}}8．已知在文獻IN8.DAT中存有１０0個產品銷售記錄，每個產品銷售記錄由產品代碼dｍ（字符型４位）、產品名稱ｍc（字符型10位)、單價ｄｊ（整型)、數量sl(整型）、金額ｊe(長整型）幾部分組成。其中，金額=單價×數量。函數RｅaｄＤat()的功能是讀取這１00個銷售記錄并存入數組sｅll中。請編制函數SoｒtDａt()，其功能規定:按金額從小到大進行排列，若金額相同,則按產品代碼從大到小進行排列,最終排列結果仍存入結構數組seｌl中，最后調用函數WｒiteDat()把結果輸出到文獻OUＴ８．DAT中。注意：部分源程序已給出。請勿改動主函數maiｎ(）、讀數據函數ReadDat()和輸出數據函數WriｔeDaｔ()的內容。【參考答案】voiｄSortＤat(){ｉｎｔi,ｊ;PRＯxｙ;ｆor（i＝0;i＜99;i++)fｏｒ(j=i+1;j<10０;j++){iｆ(ｓeｌｌ[i].je>sell[ｊ］.ｊe）／*按金額從小到大進行排列*／{xy=ｓell[i］;selｌ[ｉ]=sell[j];sell[j]=xｙ;｝elseif(sell[i］.je==sｅlｌ[j]．ｊe)/*若金額相同*/if(ｓtrcmp（seｌl［i].dm,sell［ｊ].dm)＜0)/＊則按代碼從大到小進行排列*/{xy=sｅll[ｉ];ｓｅｌl[i]＝seｌl[ｊ］;sell[ｊ］=ｘy;｝}}９．已知在文獻ＩN9.DAT中存有100個產品銷售記錄，每個產品銷售記錄由產品代碼dｍ（字符型４位)、產品名稱mｃ（字符型10位)、單價ｄj（整型）、數量sl（整型)、金額je(長整型)五部分組成。其中,金額=單價×數量。函數ＲeaｄDａt()的功能是讀取這１00個銷售記錄并存入數組seｌl中。請編制函數ＳｏrtDat(),其功能規定:按金額從小到大進行排列，若金額相同，則按產品代碼從小到大進行排列，排列結果仍存入結構數組sell中,最后調用函數WｒitｅＤaｔ()把結果輸出到文獻OＵＴ9.ＤAT中。注意：部分源程序已給出。請勿改動主函數main(）、讀數據函數ReａdＤat(）和輸出數據函數WｒiｔｅDat()的內容。【參考答案】ｖｏidSortDaｔ(){ｉntｉ,j;PROｘy;ｆor（i=0;ｉ<9９；i＋+)for(j＝i+1;ｊ<100;ｊ++){ｉf（sell［i］.je＞sell[j].ｊｅ）/*按金額從小到大進行排列*/{xy=sｅll[ｉ];sell[ｉ]＝seｌl[j];sell[j]=xy;}ｅlseif(sell[i］.jｅ==ｓell[j］.je)/*若金額相同*/if(strcmp(sｅll[i]．dｍ,sｅll［j].dｍ）>0)/*則按代碼從小到大進行排列*／｛xｙ=sell［i];selｌ[i]=seｌｌ［j]；sell[j]＝xy;｝}｝１0.已知數據文獻IＮ１0.ＤＡＴ中存有３００個四位數,并已調用讀函數reaｄDat(）把這些數存入數組a中，請編制一個函數ｊsＶalue(）,其功能是:求出千位數上的數減百位數上的數減十位數上的數減個位數上的數大于零的個數cnt,再把所有滿足此條件的四位數依次存入數組ｂ中,然后對數組b中的四位數按從小到大的順序進行排序,最后調用寫函數writeDat(）把數組b中的數輸出到OＵT１０.DAT文獻。例如：912３，9-１-2-３>0，則該數滿足條件存入數組b,且個數cｎt=ｃnt+１。9812，９-8-1-２<０，則該數不滿足條件,忽略。注意：部分源程序已給出。程序中已定義數組:a[3００]，b[30０];已定義變量:cｎt。請勿改動主函數main(）、讀函數rｅａdDａt(）和寫函數writeDat()的內容。【參考答案】ｊsValue(){iｎti,thou,hｕn,ｔen，datａ,ｊ;fｏr(i=０；i<30０；i＋+){tｈou=a［i］／1０００;/*取得四位數的千位數字*/hun＝a[i]%1000／100;/*取得四位數的百位數字＊/teｎ=a[ｉ]%10０/１0;/*取得四位數的十位數字*／data=ａ［i］%10;/*取得四位數的個位數字*/ｉf(thou－hun-teｎ-dａｔa＞0){b[ｃｎt］=a[i];ｃnt++；}}foｒ（ｉ=0;i<cnt－1;i＋+）/＊將數組ｂ中的四位數按從小到大的順序進行排序*/ｆor（j=ｉ＋１;ｊ<cnt;ｊ++)iｆ(b[i]>ｂ[ｊ]){data=b[i];b[ｉ］=b[j]；b[j]=ｄaｔa;}}11．已知數據文獻ＩN11.DAＴ中存有3０0個四位數，并已調用讀函數reaｄDaｔ(）把這些數存入數組ａ中。請編制一個函數ｊｓValｕe(),其功能是:求出千位數上的數加個位數上的數等于百位數上的數加十位數上的數的個數cnt，再把所有滿足條件的四位數依次存入數組ｂ中,然后對數組b中的四位數按從小到大的順序進行排序,最后調用寫函數writeDａt()把數組b中的數輸出到ＯUT11．DＡT文獻。例如：67１2，6+2=7+1,則該數滿足條件存入數組bb中，且個數cnｔ=cｎｔ＋1。８１29,8+9≠1＋２,則該數不滿足條件,忽略。注意:部分源程序已給出。程序中已定義數組:ａ［3０0]，b[300];已定義變量：cｎt。請勿改動主函數main（）、讀函數readDａt(）和寫函數writeDaｔ()的內容。【參考答案】voidjsVaｌｕｅ(）{ｉntｉ,ｔｈou,hun,ten,data，j;for(ｉ=0;i<3０0;i++)｛ｔhｏu=a[i]/１０００;/*取得四位數的千位數字＊/ｈun=a[i］%10０0/100；/*取得四位數的百位數字*/ｔen=a[i]%10０／10;/*取得四位數的十位數字*/data＝ａ[i］%10;／*取得四位數的個位數字*/ｉf(thou+ｄaｔa==hun＋ten){b[cnt]=a[i］;cｎt++;}}for（i=0;i<cnｔ-1;ｉ++)/＊將數組b中的四位數按從小到大的順序進行排序＊/ｆｏr（ｊ=i+1;j<cnt;j++）if（b［i]>b[ｊ]){ｄaｔa=b[i];b[ｉ］＝b[j];b［j]=ｄata;}}12.已知數據文獻IN１2.DAT中存有30０個四位數,并已調用讀函數readDaｔ()把這些數存入數組a中,請編制一個函數jｓVａｌｕe(),其功能是:求出個位數上的數減千位數上的數減百位數上的數減十位數上的數大于零的個數cnｔ，再把所有滿足此條件的四位數依次存入數組ｂ中,然后對數組b中的四位數按從大到小的順序進行排序,最后調用寫函數wｒiｔｅＤat(）把數組ｂ中的數輸出到ＯUT12．DAT文獻。例如：１2３9，９-1-２-３>0，則該數滿足條件，存入數組b中，且個數ｃnt＝ｃｎt+1。8129,9-8－1-2<0，則該數不滿足條件，忽略。注意:部分源程序已給出。程序中已定義數組:a[300],ｂ[30０]；已定義變量:ｃnt。請勿改動主函數mａｉｎ()、讀函數readDaｔ()和寫函數wrｉｔｅDat（）的內容。【參考答案】ｖoidjｓＶaluｅ（){inti，ｔhｏｕ,ｈun,teｎ,dａta,j;foｒ（i＝０；i＜300;i＋＋){thou＝a[i]/１0０0;/*取得四位數的千位數字*／ｈｕｎ＝ａ[i］%1000/100;/*取得四位數的百位數字＊/ｔen=a[i]%100／10；/*取得四位數的十位數字*/ｄata=a[i]％１0;/*取得四位數的個位數字*/if(dａｔa-ｔhｏu-hun-ｔen＞0){ｂ[cnt]=a[i］;ｃnt＋+；}}ｆor(i=0;ｉ<ｃnt－1;i++)／*將數組ｂ中的四位數按從大到小的順序進行排序*/for(ｊ=ｉ＋１;j＜cnt；ｊ++)ｉf（b[ｉ]<b[j］){data=b［ｉ];b[ｉ]＝ｂ[j];ｂ[j]=dａtａ;}}13.已知數據文獻IＮ1３．DAT中存有３00個四位數，并已調用讀函數ｒeadDat()把這些數存入數組a中,請編制一個函數ｊsVaｌue(），其功能是:求出千位數上的數加百位數上的數等于十位數上的數加個位數上的數的個數cｎt，再把所有滿足條件的四位數依次存入數組b中，然后對數組ｂ中的四位數按從大到小的順序進行排序,最后調用寫函數writeＤaｔ(）把數組ｂ中的數輸出到OUT13.DAT文獻。例如：7153，7+1=5+３,則該數滿足條件存入數組ｂ中,且個數cnt=cnt＋1。８1２9，8＋1≠2+9，則該數不滿足條件，忽略。注意：部分源程序已給出。程序中已定義數組：a[3０0]，b[300];已定義變量：ｃnt。請勿改動主函數ｍaiｎ()、讀函數reaｄＤat()和寫函數writeDａt()的內容。【參考答案】voidjsValｕe(){inti，tｈou，hun,tｅn，datａ，j;for(ｉ=0;ｉ<30０;ｉ+＋){thou＝a[i]/1００0；/*取得四位數的千位數字*/hｕn=a[i]%1000/1０0；/*取得四位數的百位數字＊/ｔen=a[ｉ］%100/10；/*取得四位數的十位數字*/datａ＝ａ[i]％10;/＊取得四位數的個位數字*/if(tｈoｕ+hun=＝ｄata＋ｔeｎ){b[cnt]＝a［i];cｎｔ++;}｝ｆoｒ(i=０;ｉ<cｎt-1;i++）/＊將數組ｂ中的四位數按從大到小的順序進行排序*/ｆor(j=i+1;ｊ<cｎt；j++）if(ｂ[i］<ｂ[j］){datａ=b[i];b[i]=b[j];b[ｊ]=datａ；}}１4已知數據文獻ＩＮ14.ＤAＴ中存有30０個四位數，并已調用讀函數reａｄＤａt()把這些數存入數組a中。請編制一個函數jsValuｅ（)，其功能是:求出所有這些四位數是素數的個數ｃnt,再把所有滿足此條件的四位數依次存入數組b中,然后對數組ｂ中的四位數按從小到大的順序進行排序，最后調用寫函數writeＤａt()把結果輸出到OUT14．ＤＡT文獻。例如:５591是素數,則該數滿足條件存入數組b中，且個數cnｔ＝cｎt+1。9812是非素數,則該數不滿足條件，忽略。注意:部分源程序已給出。程序中已定義數組：a[3０0]、ｂ［30０]；已定義變量:cnｔ。請勿改動主函數ｍain()、讀函數readDat()和寫函數wriｔeＤat(）的內容。【參考答案】voidｊｓVaｌuｅ(）｛intｊ,i,ｖaｌue；for（i=0;ｉ＜3０0;i＋+）ｉf(isP(a[i])){b［cｎｔ]=a[i]；cnt++;}fｏｒ(i=0;i<ｃｎt-1;i＋+)/*將數組b中的四位數按從小到大的順序進行排序*／fｏr(j=ｉ+1；ｊ<cnｔ；j+＋)ｉf（b[i]＞b［ｊ］){vaｌue=ｂ[i］；b［i]=ｂ[j]；b[j]=ｖａluｅ；｝｝15已知數據文獻IＮ１5.DAＴ中存有30０個四位數，并已調用讀函數readDat()把這些數存入數組ａ中,請編制一個函數jsVａlue(),其功能是：求出千位數上的數減百位數上的數減十位數上的數減個位數上的數大于零的個數cnｔ，再求出所有滿足此條件的四位數的平均值pjz1,以及不滿足此條件的四位數的平均值pjz2,最后調用寫函數ｗriteDat()把結果輸出到OUＴ１５.DAT文獻。例如:９1２3，9-1-2－3>0,則該數滿足條件，計算平均值pjｚ1,且個數ｃnt=cnt+1。９8１2，9－8-1-2＜０,則該數不滿足條件,計算平均值pｊｚ2。注意：部分源程序已給出。程序中已定義數組:a[３00],已定義變量：cｎt。請勿改動主函數mａｉｎ（)、讀函數ｒeadDａｔ()和寫函數writｅDat()的內容。【參考答案】jｓＶalｕe(){ｉｎtｉ,thoｕ,hun,ten,data,n＝0;fｏr(ｉ=0；i＜300;i+＋)｛tｈoｕ＝ａ[ｉ］/100０;/*求四位數的千位數字*/hun=a[i］%1000/100;/＊求四位數的百位數字＊/ｔen=a[ｉ]%100／1０;/*求四位數的十位數字*/ｄａta=a[i]%1０;/*求四位數的個位數字*／if（ｔhｏu-huｎ-ｔen-daｔａ>0){cnt＋＋；pｊz1+=ａ[i］;}/＊記錄滿足條件的數的個數并求和*／elsｅ{ｎ+＋;pjz2+＝a[i];}/*記錄不滿足條件的數的個數并求和*/}pjz1/=cｎｔ;/＊求滿足條件的數的平均值*/pjz2／=ｎ；/＊求不滿足條件的數的平均值＊/}1６已知數據文獻IN16.ＤAT中存有３00個４位數，并已調用函數readDａt()把這些數存入數組a中，請編制一個函數jsVaｌue()，其功能是:求出個位數上的數減千位數上的數減百位數上的數減十位數上的數大于0的個數cｎｔ,再求出所有滿足此條件的4位數平均值pjz1,以及所有不滿足此條件的4位數平均值pjｚ2,最后調用函數writeＤat()把結果ｃnt、pjz1、pjz2輸出到OＵT1６.DAT文獻。例如:１2３9,９－１-2－3>0，則該數滿足條件,計算平均值ｐjz1，且個數cnｔ=cnｔ+１。８１２9,９－８-１-２<0,則該數不滿足條件，計算平均值pjｚ２。注意：部分源程序已給出。程序中已定義數組:a[300]，已定義變量：ｃnｔ、pｊz１、ｐjz2。請勿改動主函數maｉn(）、讀函數reａdDat(）和寫函數wｒiteDat（)的內容。【參考答案】ｖoiｄjsＶalue（){intｉ,thｏu，ｈｕｎ，teｎ,ｄata，n=0;foｒ(ｉ＝０;i<30０;i++)｛thoｕ=ａ［i]／1０00;/＊求四位數的千位數字*/hｕn=a[i]％1000／1０0;/＊求四位數的百位數字*/ten＝a［ｉ］%100／1０;/*求四位數的十位數字*/data=a［i]％10;/*求四位數的個位數字＊/if(dａta－thou－hｕn-ｔen＞0){ｃnt++;ｐｊz1＋=a[i];}/＊記錄滿足條件的數的個數并求和*/elｓe{n+＋;pjz2+=ａ［i];}／*記錄不滿足條件的數的個數并求和*／}pjz１/＝cｎt;/*求滿足條件的數的平均值*/ｐjｚ２/=n;/＊求不滿足條件的數的平均值*/}1７已知數據文獻IＮ1７．DAT中存有300個4位數，并已調用函數reaｄDat(）把這些數存入數組a中，請編制一個函數jsVaｌuｅ(），其功能是：求出千位數上的數加百位數上的數等于十位數上的數加個位數上的數的個數cnｔ，再求出所有滿足此條件的4位數的平均值pｊz1,以及所有不滿足此條件的4位數的平均值ｐｊz２,最后調用函數writeDat(）把結果cｎt、pｊｚ１、pjｚ2輸出到OUT17.DAT文獻。例如:71５3，7+1＝5+3,則該數滿足條件,計算平均值pjz１，且個數cnt=cnt＋1。８129,8+1≠2+9，則該數不滿足條件,計算平均值pjz2。注意：部分源程序已給出。程序中已定義數組:a［3０0]，已定義變量：cnt,ｐjｚ1,pjz2。請勿改動主函數ｍain()、讀函數ｒeａdDaｔ()和寫函數wriｔeDat()的內容。【參考答案】voｉdｊsＶaｌuｅ（){iｎti,tｈou,hｕn，tｅn,ｄaｔａ,n=0;for(i=0;i<3０0;i＋+){ｔhou＝a［i]/1000；/＊求四位數的千位數字＊/ｈun＝a[ｉ]%1００0/１00;/*求四位數的百位數字*/tｅn=a[i]%１０0/10；/*求四位數的十位數字*／dａta=a[i]%１0;/*求四位數的個位數字*/if(thoｕ＋hun==ten+ｄata){ｃnt++；pjz1+=a［i]；}/*記錄滿足條件的數的個數并求和*／ｅｌｓe｛n+＋；pjz２+=ａ[i];｝/*記錄不滿足條件的數的個數并求和*/}pｊz1/=cnt;／*求滿足條件的數的平均值*/pｊz2／=n;／*求不滿足條件的數的平均值*/}18已知數據文獻IＮ１8.ＤAT中存有3０0個4位數,并已調用函數readDａt()把這些數存入數組ａ中，請編制一個函數jsValｕe(）,其功能是:求出千位數上的數加個位數上的數等于百位數上的數加十位數上的數的個數cｎｔ，再求出所有滿足此條件的４位數平均值pjz1,以及所有不滿足此條件的4位數的平均值ｐjz2，最后調用函數wriｔeDat(）把結果cｎt、pjz1、ｐjz2，輸出到OUＴ18.DAT文獻中。例如:6712,６+2=７＋1，則該數滿足條件,計算平均值ｐｊz１，且個數ｃnt=cnt＋1。8129,8+9≠1＋2，則該數不滿足條件，計算平均值pjｚ2。注意:部分源程序已給出。程序中已定義數組:a[30０]，已定義變量:ｃｎt、pｊz1、pjz2。請勿改動主函數maｉn()、讀函數ｒｅadDａt()和寫函數wrｉtｅＤａt(）的內容。【參考答案】vｏidｊsVａｌuｅ（)｛inti,thou,ｈun，tｅn，data,n＝0;for(ｉ=0;i<３00；ｉ+＋){thou=a［i］/1000;/*求四位數的千位數字*/hｕn=a[i]%1000/100;/*求四位數的百位數字＊/tｅｎ＝a[ｉ]%１00/10；/*求四位數的十位數字*/datａ=a[i]％１0;／＊求四位數的個位數字*／if（thｏu＋daｔa＝=ｈun＋ten)｛cnt++;pjz１+=a[i];｝/*記錄滿足條件的數的個數并求和*/elｓe｛n＋+;ｐjz2+=a［i];｝/*記錄不滿足條件的數的個數并求和*／｝ｐjz1/＝cｎt；／＊求滿足條件的數的平均值*／pjz2／＝ｎ;/＊求不滿足條件的數的平均值*/}19已知數據文獻IN19.DAＴ中存有30０個4位數,并已調用函數rｅａdＤaｔ(）把這些數存入數組a中，請編制一個函數jsVaｌｕe（)，其功能是：求出這些4位數是素數的個數cnt,再求出所有滿足此條件的4位數的平均值pjz1,以及所有不滿足此條件的4位數的平均值ｐjｚ2，最后調用函數wｒiteDat()把結果ｃnt、pjz1、ｐjz2輸出到ＯUＴ1９.DAT文獻中。例如：559１是素數,則該數滿足條件,計算平均值pｊz１,且個數ｃnt=ｃnt+1。98１2是非素數,則該數不滿足條件,計算平均值pｊz2。注意:部分源程序已給出。程序中已定義數組:ａ[3０0]，已定義變量:cnt、ｐｊz1、pjz2。請勿改動主函數main()、讀函數readDaｔ()和寫函數wrｉteDaｔ（)的內容。【參考答案】voidjsＶａｌｕｅ（)｛inｔi;for（i=0;i<300;i++)iｆ（ｉsP（a[i]))/＊判斷該數是否為素數*/{pjz1＋=a[i];ｃnt++；}/*計算所有素數的和并記錄其個數*／ｅlsepjz2+=ａ[i];/*計算所有不是素數的數的和*／pｊz1＝pjz1／ｃnｔ;/＊求所有素數的平均值＊/pjｚ２=pjz２／(30０-ｃnt）;/*求所有不是素數的平均值*/｝２0已知數據文獻IN20.DAT中存有２00個四位數，并已調用讀函數readＤaｔ()把這些數存入數組a中,請考生編制一個函數jｓVal(）,其功能是:把千位數字和十位數字重新組成一個新的兩位數aｂ(新兩位數的十位數字是原四位數的千位數字，新兩位數的個位數字是原四位數的十位數字),以及把個位數字和百位數字組成另一個新的兩位數ｃｄ（新兩位數的十位數字是原四位數的個位數字,新兩位數的個位數字是原四位數的百位數字),假如新組成的兩個兩位數ab－ｃd>=0且aｂ-cd<=10且兩個數均是奇數，同時兩個新數的十位數字均不為零,則將滿足此條件的四位數按從大到小的順序存入數組b中,并要計算滿足上述條件的四位數的個數cnt。最后，maｉn()函數調用寫函數writeDａt（）把結果ｃnt以及數組ｂ中符合條件的四位數輸出到OUT20.DＡT文獻中。注意：部分源程序已給出。程序中已定義數組：a［200]、b[２00];已定義變量:cnt。請勿改動數據文獻IＮ.DAT中的任何數據、主函數main()、讀函數reaｄDaｔ（)和寫函數wriｔeDａt()的內容。【參考答案】voidjsVａl(){intｉ,ｔhｏu，hun，ｔen,daｔａ，ｊ;intab，cd;foｒ(i=0；ｉ＜2０0;i＋+){thｏu=a[i]/１000;/*求四位數的千位數字*/huｎ=a［i］%１000/10０；／*求四位數的百位數字*/ten=ａ［i]%１00/10；/*求四位數的十位數字*/ｄａtａ＝a［i］%10;／*求四位數的個位數字*/ab=10＊thou+ten;cd=10*dａta+ｈｕn;iｆ((ab-cｄ）>＝0&&(ａb-cｄ)<=10&&aｂ％２＝=1&&cd%２==1&＆ab／1０!=０＆＆ｃｄ/1０!＝0){ｂ［cnt]=a[ｉ];cｎt+＋;}}for(i=0;i<cnｔ-1;i++)/＊將數組ｂ中的數降序排列＊/for(j＝i+1;j<cnt;ｊ++）if(b[i]<b[j]){data=b[i];ｂ[i］=b[j]；b[ｊ]=daｔa；}}21已知數據文獻IN２1.DAT中存有２00個四位數，并已調用讀函數reａdDaｔ()把這些數存入數組a中，請編制一個函數ｊsVａl()，其功能是:把千位數字和十位數字重新組成一個新的兩位數ａｂ（新兩位數的十位數字是原四位數的千位數字,新兩位數的個位數字是原四位數的十位數字）,以及把個位數字和百位數字組成另一個新的兩位數cｄ（新兩位數的十位數字是原四位數的個位數字,新兩位數的個位數字是原四位數的百位數字),假如新組成的兩個兩位數ab-cd＞=10且aｂ-cｄ<=20且兩個數均是偶數,同時兩個新數的十位數字均不為零,則將滿足此條件的四位數按從大到小的順序存入數組b中，并要計算滿足上述條件的四位數的個數cｎt。最后，mａｉn(）函數調用寫函數wriｔeDat()把結果cnt以及數組b中符合條件的四位數輸出到OＵT2１.DＡＴ文獻中。注意:部分源程序已給出。程序中已定義數組:a［2０0]、b[２０0］；已定義變量:cnｔ。請勿改動數據文獻IN.DAT中的任何數據、主函數main(）、讀函數readDａt（)和寫函數ｗrｉteDat(）的內容。【參考答案】ｖoidjsVal(){iｎti,j,gｗ,sw,bw，qw,teｍp，ab，cd;foｒ(i=0;ｉ<2０0;i++）{qw=a［i］/１００0;／＊求四位數的個位數字*/bw＝a[ｉ］/１0０％1０;／*求四位數的百位數字＊/sｗ＝a[i］/１０%１0;/*求四位數的十位數字*/gw=a[i]％１0；/＊求四位數的千位數字*/ａb=1０*ｑw＋sw;ｃd=1０*gw+bw;if((ab-cｄ＞=10)&&(ab-cd<=20)&&ａb%2＝=0&＆ｃｄ%2==0&＆ab/10!=０&&cd/10!=０){b［cnｔ]＝a[i]；cnt++;}}foｒ(i=0;i<cnt－1;i＋+)／*將數組b中的數降序排列*/ｆor(ｊ=i＋1;ｊ＜cnt;ｊ++)iｆ（b［i］<b［ｊ］){teｍp＝b[i];b[i]=b[ｊ]；b[j]=tｅmp;｝｝22已知數據文獻ＩN22.DAT中存有200個四位數,并已調用讀函數readDaｔ()把這些數存入數組a中,請編制一個函數jsVal()，其功能是：把千位數字和十位數字重新組成一個新的兩位數ab（新兩位數的十位數字是原四位數的千位數字，新兩位數的個位數字是原四位數的十位數字),以及把個位數字和百位數字組成另一個新的兩位數cd(新兩位數的十位數字是原四位數的個位數字，新兩位數的個位數字是原四位數的百位數字）,假如新組成的兩個兩位數均是素數,同時兩個新數均不為零,則將滿足此條件的四位數按從大到小的順序存入數組b中,并要計算滿足上述條件的四位數的個數cｎt。最后,maｉn（）函數調用寫函數writeＤat（)把結果cnt以及數組b中符合條件的四位數輸出到ＯUＴ2２．DＡT文獻中。注意：部分源程序已給出。程序中已定義數組:ａ［200]、b［2０0］;已定義變量：cnｔ。請勿改動數據文獻IN.DAＴ中的任何數據、主函數ｍaiｎ()、讀函數ｒeadDａt(）和寫函數writeＤat()的內容。【參考答案】vｏidjsVal()｛ｉnｔi,thｏu，hｕｎ,ten,data,j;iｎｔａb,cd;for（ｉ=0；i<2０0;ｉ＋+）{ｔhoｕ=a［i]／１００0;/＊求四位數的千位數字*/hｕn=a[ｉ]%1０00/100;/*求四位數的百位數字*/ten=ａ[i］％１0０/1０;/*求四位數的十位數字*/ｄata=a［i］％1０;／＊求四位數的個位數字*/ab=１０*thou＋ten;cd=10*data+hun;iｆ（isprime(ａb)&&iｓprｉme（ｃd)&&ab!=0&＆ｃd!＝0）{b[cｎt]=a［i];cnt++;｝}foｒ(i=０;i＜cnt-1；ｉ++）/*將數組ｂ中的數降序排列*／for(j=i＋1;ｊ<cnt;ｊ＋+)if(ｂ［ｉ]<ｂ［ｊ］){dａta=b[ｉ]；ｂ[ｉ]=b[j];ｂ［j]=dａtａ;}}23已知數據文獻IＮ23．DAT中存有２00個四位數，并已調用讀函數rｅadDａt()把這些數存入數組a中,請編制一個函數jsＶal(),其功能是：把千位數字和個位數字重新組成一個新的兩位數(新兩位數的十位數字是原四位數的千位數字，新兩位數的個位數字是原四位數的個位數字），以及把十位數字和百位數字組成另一個新的兩位數（新兩位數的十位數字是原四位數的百位數字，新兩位數的個位數字是原四位數的十位數字)，假如新組成的兩個兩位數均是奇數并且兩個兩位數中至少有一個能被5整除，同時兩個新數均不為零，則將滿足此條件的四位數按從大到小的順序存入數組b中，并要計算滿足上述條件的四位數的個數cｎｔ。最后，ｍain（）函數調用寫函數writeDaｔ(）把結果cnt以及數組ｂ中符合條件的四位數輸出到ＯＵＴ23．DAT文獻中。注意：部分源程序已給出中。程序中已定義數組：a［２00]、b[20０]；已定義變量：ｃnt。請勿改動數據文獻ＩＮ.DAT中的任何數據、主函數maｉn()、讀函數reaｄDat（)和寫函數wｒiｔeＤaｔ(）的內容。【參考答案】jｓVal(){inti,thoｕ，ｈun,teｎ，data，j;intab,ｃd;for（ｉ=0;i<200;ｉ+＋){ｔhoｕ＝a[i]/10０0；/*求四位數的千位數字*／ｈun＝a[i]%１００0/1００;/*求四位數的百位數字*/ｔen＝ａ［ｉ]%100/１0;／*求四位數的十位數字*/data=a［ｉ]%10;/＊求四位數的個位數字＊/ab＝10＊thou+dａｔａ;ｃd=10＊ｈun+ｔen;if(ａb%2==１&&ｃd％2＝=1&&（ａb%5==0||cd%５＝=0)&&ab！=0&&cｄ!=0）{b[cｎt］=a[i];cｎt+＋；}}for（i=0；ｉ<ｃnt-1;ｉ+＋)/*將數組ｂ中的數降序排列*/fｏr(j=i+1；ｊ<cnt;j++)if(b[i]<b[j]){data=b[ｉ];b［i］=b[j];b[j]=dａtａ;}｝2４已知數據文獻IN２4.DAT中存有200個四位數，并已調用讀函數reaｄDat（)把這些數存入數組ａ中,請編制一個函數jｓVal(),其功能是：把千位數字和十位數字重新組成一個新的兩位數ａb(新兩位數的十位數字是原四位數的千位數字,新兩位數的個位數字是原四位數的十位數字）,以及把個位數字和百位數字組成另一個新的兩位數ｃd（新兩位數的十位數字是原四位數的個位數字，新兩位數的個位數字是原四位數的百位數字），假如新組成的兩個兩位數ａb<ｃd,ａb必須是奇數且不能被5整除,cd必須是偶數,同時兩個新數的十位數字均不為零，則將滿足此條件的四位數按從大到小的順序存入數組ｂ中,并計算滿足上述條件的四位數的個數cnｔ。最后，main（)函數調用寫函數wｒiteDat()把結果cnt以及數組b中符合條件的四位數輸出到OＵT24．DAT文獻中。注意:部分源程序已給出。程序中已定義數組:ａ[20０］、ｂ[２0０]；已定義變量:cｎt。請勿改動數據文獻IN.DAT中的任何數據、主函數maｉｎ（）、讀函數reａｄDａt()和寫函數wriｔeDaｔ()的內容。【參考答案】jsVal(）{inｔｉ,tｈｏu,hun,ten,daｔa,j；iｎtab,cd；fｏr（i=0;i＜2０0;i++){thoｕ＝ａ［ｉ］/1000;/*求四位數的千位數字*/hｕｎ＝a[i]%1０0０/100;／*求四位數的百位數字*/ｔen=ａ[i］％１０0/１0；/*求四位數的十位數字*/data＝a[ｉ］%10;/*求四位數的個位數字＊／ab=10*thou+ｔｅn；cｄ=10*ｄatａ+ｈuｎ;iｆ（((ab－cd)<0&&ab%2=＝1＆＆ab%5!=0)＆&cd%2!=1&&ab/１0!=０&&cd/1０!＝０){b[cnt]＝a[i];cｎt++;｝｝ｆｏr（i=0;i<cnt－1;i++)/＊將數組b中的數降序排列*／for（j=ｉ＋１;ｊ＜ｃｎt;j++)if（b［i］<b[j]){dａta=b［ｉ］;b[i]=ｂ[j]；b[j］=ｄａta;}}25已知數據文獻IN25.ＤAT中存有２0０個4位數，并已調用讀函數reａdDａｔ()把這些數存入數組a中,請編制一個函數jsＶal(),其功能是：把個位數字和千位數字重新組合成一個新的十位數ab(新十位數的十位數字是原４位數的個位數字,新十位數的個位數字是原4位數的千位數字），以及把百位數字和十位數字組成另一個新的十位數ｃd（新十位數的十位數字是原4位數的百位數字，新十位數的個位數字是原4位數的十位數字),假如新組成的兩個數均為偶數且兩個十位數中至少有一個數能被9整除，同時兩個新數均不為零，則將滿足此條件的４位數按從大到小的順序存入數組b中,并計算滿足上述條件的4位數的個數ｃｎt，最后，調用寫函數ｗriｔeDat()把結果ｃｎｔ及數組b中符合條件的4位數輸出到OUT２5.DＡT文獻中。注意：部分源程序已給出。程序中已定義數組:a[200]、b[200];已定義變量:cｎt。請勿改動數據文獻IN.DAT中的任何數據、主函數mａiｎ()、讀函數rｅadDat()和寫函數wrｉｔｅDａt（)的內容。【參考答案】voidjｓVal(){inｔi，tｈou,hun,tｅｎ，data,j;intaｂ,cd;fｏr（i=０;i<200;ｉ＋+){ｔhoｕ=a[i]/10０0；/*求四位數的千位數字＊/huｎ=a［i］%１０0０/100;／*求四位數的百位數字*/ten=a［ｉ]%１00/1０;/*求四位數的十位數字*/daｔａ=a[i］%10；/＊求四位數的個位數字*/ab=datａ*10＋ｔhou；cｄ=huｎ*10+ｔen;if((ab%9＝=０|｜cd%9==0)&＆(ab％2!=1）&&(cd％2！＝1）&&ab!=0＆&cd!＝0){ｂ[cnt]=ａ[i]；ｃｎt++；}}for（ｉ=０;ｉ<cnt－1；i++)/＊將數組b中的數降序排列*/foｒ(j＝ｉ+１；ｊ<ｃnt;j+＋)if(b[ｉ]<b[j］)｛data=b［i]；b[i]=ｂ［j]；b[ｊ]＝datａ;}}26已知數據文獻IN２６．DAＴ中存有2０0個4位數，并已調用讀函數rｅａdDａt()把這些數存入數組ａ中，請編制一個函數jsVaｌ(）,其功能是：把個位數字和千位數字重新組合成一個新的十位數ａｂ(新十位數的十位數字是原4位數的個位數字，新十位數的個位數字是原4位數的千位數字）,以及把百位數和十位數組成另一個新的十位數cd(新十位數的十位數字是原4位數的百位數字，新十位數的個位數字是原4位數的十位數字)，假如新組成的兩個十位數必須是一個奇數、另一個為偶數且兩個十位數中至少有一個數能被１7整除，同時兩個新數均不為0，則將滿足此條件的４位數按從大到小的順序存入數組b中，并要計算滿足上述條件的４位數的個數cnt，最后，調用寫函數writｅＤat（）把結果cｎｔ及數組b中符合條件的4位數輸出到OＵT26.DAT文獻中。注意:部分源程序已給出。程序中已定義數組:a［２００］、b［200];已定義變量：cnt。請勿改動數據文獻IＮ.ＤＡT中的任何數據、主函數maｉｎ()、讀函數readDat()和寫函數writeＤat（)的內容。【參考答案】vｏiｄjsVal（)｛ｉnti，tｈou,hun,ten,ｄata，ｊ;iｎtab，ｃd;ｆｏr(ｉ＝0；i<200;i+＋){thｏu=a[i］／1000;/＊求四位數的千位數字*/hｕｎ=a[i]%1００0/10０;/＊求四位數的百位數字*／tｅn=a[i]％１０0／1０;/*求四位數的十位數字*／ｄａta=a[i]%10；/*求四位數的個位數字＊/ab=data*10+thou;cd=ｈun*10+tｅn;ｉf((aｂ%１７==0|｜cd%17=＝0）&&（(ａb%２！=1＆＆cｄ%2==1)｜｜(ａｂ%2==1&&cd％2！＝1))＆&aｂ!=0&&cｄ!＝0)｛ｂ[cnｔ]＝ａ[i]；ｃnt＋+;｝｝fｏr(i=0;i＜ｃｎt-1;i＋＋)/*將數組b中的數降序排列*/for(ｊ=i+1;j＜cｎt;j++)iｆ(b［i]<b［j]）{dａｔa=b[i];ｂ[i]=ｂ［j］；b[j]＝datａ;｝｝２7已知數據文獻IＮ２7.DAＴ中存有2０0個4位數,并已調用讀函數rｅaｄDat(）把這些數存入數組a中，請編制一個函數jsVａl(),其功能是：把千位數字和十位數字重新組合成一個新的十位數ab(新十位數的十位數字是原4位數的千位數字，新十位數的個位數字是原4位數的十位數字）,以及把個位數字和百位數字組成另一個新的十位數cd（新十位數的十位數字是原４位數的個位數字,新十位數的個位數字是原4位數的百位數字）,假如新組成的兩個十位數ａb＞cd，ab必須是偶數且能被５整除,cd必須是奇數，同時兩個新數均不為0,則將滿足此條件的４位數按從大到小的順序存入數組ｂ中,并要計算滿足上述條件的4位數的個數cnt,最后,調用寫函數wrｉteＤat()把結果cｎｔ及數組b中符合條件的4位數輸出到OUT2７.ＤＡT文獻中。注意：部分源程序已給出。程序中已定義數組：a[2０0]、b[200];已定義變量：cnｔ。請勿改動數據文獻IＮ.DAＴ中的任何數據、主函數ｍａin()、讀函數readＤａｔ()和寫函數writｅDat（）的內容。【參考答案】ｖoiｄjｓＶaｌ(）{ｉｎti,ｔｈｏｕ，hｕｎ,teｎ,data，ｊ;iｎtａb,cd;for(ｉ=0;ｉ<２00;i＋＋){tｈou=ａ[ｉ]／1０0０;/＊求四位數的千位數字＊/huｎ=a[i］%１00０/１00;／*求四位數的百位數字*／tｅn＝a[ｉ]%1０0/1０;/*求四位數的十位數字*/data=ａ［i］%10；/*求四位數的個位數字*/ab=thou＊10+ｔen;cd＝ｄaｔa*１0+ｈｕn；if((ａb-ｃd>0)&＆（aｂ%2!=1＆&ａb%5＝=0）＆&cd%２==1&&ab!=0&&cd!＝０){ｂ[cnt]＝a[i];cnｔ+＋；}}for（i＝０；i<cnt－1;ｉ＋＋)／*將數組b中的數降序排列*/ｆｏr(j=i+1;ｊ<cnt;j＋+)ｉf（ｂ[i]＜ｂ[j]){dａｔa＝b［i];ｂ[i］=b［j];b[j]＝ｄaｔa;}}28已知數據文獻IN28．DAＴ中存有20０個四位數,并已調用讀函數reａdDat()把這些數存入數組a中,請考生編制一個函數jsＶaｌ(),其功能是：依次從數組ａ中取出一個四位數,假如該四位數連續大于該四位數以后的5個數,且該數是奇數,則把這個四位數按從小到大的順序存入數組b中,并計算滿足上述條件的四位數的個數ｃnt。最后,調用寫函數wrｉteDａt（）把結果cnt以及數組b中符合條件的四位數輸出到ＯUＴ２8.DAT文獻中。注意:部分源程序已給出。程序中已定義數組:ａ[2０0]、b［200]；已定義變量:cnt。請勿改動數據文獻IＮ．DAT中的任何數據、主函數ｍaｉｎ(）、讀函數readDａt(）和寫函數writｅDat（）的內容。【參考答案】voiｄｊsＶaｌ(){inti,ｊ,teｍp;ｆor（i=0;i<MＡX-5；ｉ++)if(a[i］>a[i＋1］&&a[i]>a[ｉ+2]&＆a［i]>a[i＋3］&&a[i]>a[i+4]＆&a[ｉ]>a[ｉ＋5]&&a[ｉ]%2!=0){b[cnt］=a［i];cｎt++；}/*將滿足條件的數存入數組b中并記錄其個數*/for（ｉ＝0;i<cnt-1；i＋+)／*對b數組進行升序排列*/foｒ（j=i+1;j<cnｔ;ｊ+＋)if（b[i］>b[j]){temp=ｂ[i]；b［i］=b[j];ｂ［j]=tｅmp;}}29已知數據文獻IN29.DAT中存有20０個四位數,并已調用讀函數readDat()把這些數存入數組a中，請考生編制一個函數ｊｓＶal(),其功能是:依次從數組a中取出一個四位數,假如該數連續小于該四位數以后的5個數，且該數是偶數，則記錄出滿足此條件的個數cnt,并把這些四位數按從小到大的順序存入數組ｂ中。最后,ｍain()函數調用寫函數ｗritｅＤat()把結果cnt以及數組b中符合條件的四位數輸出到OUＴ29.DＡT文獻中。注意:部分源程序已給出。程序中已定義數組:ａ[200］、b[2０0];已定義變量:ｃnt。請勿改動數據文獻IＮ.ＤAＴ中的任何數據、主函數main()、讀函數readＤaｔ()和寫函數writeDａｔ()的內容。【參考答案】voidjsＶaｌ(){iｎｔi,j,ｆlag=0;fｏｒ(i=0;i<MAX-５；i++)ｉｆ（ａ[i]<a[i+1]&&a[i]＜ａ[i+2]&&a[i］<a[i+3]&&a［i]<ａ[ｉ+４]＆&a[i]<a[i＋5]＆&a[i]%2==0）b[cnｔ+＋]=a[i];／*將滿足條件的數存入數組b中并記錄其個數*/ｆｏr(ｉ＝0;ｉ<cnｔ-1;i++)/*對b數組進行升序排列＊／fｏr（j=ｉ+1；j<cｎt；j++)ｉｆ(b[ｉ]>ｂ[j]){fｌag=ｂ[ｉ］;b［ｉ］=b[j］;b[j]=flag；}}30已知數據文獻IN30.DAT中存有2０0個四位數，并已調用讀函數readDat()把這些數存入數組ａ中,請考生編制一個函數jsVal（),其功能是:依次從數組a中取出一個四位數，假如該數連續大于該四位數以前的5個數,且該數是偶數，則記錄出滿足此條件的個數cnt,并把這些四位數按從大到小的順序存入數組ｂ中。最后，main(）函數調用寫函數wｒiｔｅDａt()把結果ｃｎｔ以及數組ｂ中符合條件的四位數輸出到OＵT３0．DAT文獻中。注意:部分源程序已給出。程序中已定義數組：a[２00]、b［200]；已定義變量:cnt。請勿改動數據文獻ＩＮ.DＡT中的任何數據、主函數main()、讀函數readDat()和寫函數writeDaｔ()的內容。【參考答案】ｖoidjｓＶal(）{inti,j，flaｇ＝0;for(i=5;i<MAX;i++)iｆ(a[i]>a[i-５]＆&a[i]>a[i-４]&＆a[i］>a[i-3]&&a[i]>a[i－2]&&a[ｉ]>a[i-1]&＆ａ［i]%2＝＝0){ｂ［cｎｔ]＝ａ[i］;ｃnt++;}／*將滿足條件的數存入數組b中并記錄其個數*/foｒ(i=０；ｉ<cnt-1；i＋+)/*對b數組進行降序排列*/for(j=ｉ+1;j＜cnt;ｊ＋＋）if(b[i]<ｂ[j］）{flａg=ｂ[i］；b[i]=ｂ[j］；b[j]=flａg；}}31已知數據文獻IN31．DＡT中存有20０個四位數,并已調用讀函數readＤat()把這些數存入數組a中，請考生編制一個函數jｓVａl()，其功能是:依次從數組a中取出一個四位數,假如該數連續大于該四位數以前的5個數,且該數是奇數,且該數必須能被7整除,則記錄出滿足此條件的個數cnt,并把這些四位數按從大到小的順序存入數組b中。最后，maiｎ(）函數調用寫函數writeDaｔ(）把結果ｃnt以及數組b中符合條件的四位數輸出到OUT31.DAT文獻中。注意：部分源程序已給出。程序中已定義數組:a[２00]、b[20０]；已定義變量:ｃnｔ。請勿改動數據文獻IN.DＡＴ中的任何數據、主函數ｍain(）、讀函數readDat()和寫函數writｅDat(）的內容。【參考答案】vｏidｊsVal（)｛iｎti,j，flag＝0；for(ｉ＝5;i<MAX；i+＋)if(a[ｉ]>a[i-５]＆＆a［i］>a［i-4］&&a[i]>a[i－3］&&ａ［ｉ]>ａ［i-２]&&a[ｉ］＞a［ｉ-１]&&ａ［i]%２!=0&＆ａ［ｉ]%７==0）b[ｃnt++]=ａ［i];/＊將滿足條件的數存入數組b中并記錄其個數*／ｆor(i=0;i<cnt－1;ｉ+＋)/*對b數組進行降序排列＊/ｆor(j=i+1;ｊ＜cnt;ｊ++)iｆ(b[ｉ]<ｂ［ｊ]）｛fｌaｇ=b［i］;b[ｉ]=b［j］;b［j]=fｌag;}}32已知數據文獻ＩＮ32.DＡT中存有2００個四位數,并已調用讀函數readDat(）把這些數存入數組a中，請考生編制一個函數jsVaｌ(),其功能是：若一個四位數的千位數字上的值小于等于百位數字上的值，百位數字上的值小于等于十位數字上的值,十位數字上的值小于等于個位數字上的值，并且此四位數是偶數，則記錄出滿足此條件的個數ｃnt，并把這些四位數按從小到大的順序存入數組b中。最后,調用寫函數writeDat(）把結果cnt以及數組ｂ中符合條件的四位數輸出到ＯUT32．DAＴ文獻中。注意:部分源程序已給出。程序中已定義數組：ａ［200]、b[200]；已定義變量：ｃnｔ。請勿改動主函數ｍaｉn()、讀函數reａdDａｔ（)和寫函數wriｔeDaｔ()的內容。【參考答案】voidjｓVａｌ(){ｉｎti,j；intqw，bw,sw,gw，t;for(ｉ＝0;ｉ<MAX;i＋+）/*求每個四位數的每位數字*/｛ｑｗ＝a[i]/１000;bｗ=a[ｉ］%10０0/１0０；ｓw=a［i]%１0０／１0；gw=a[ｉ]%10；if((qw＜＝ｂw)&&(ｂw<＝sw)&&(sｗ<＝gw)&&(a[ｉ]%２==0)）{b[cnt］=a［i];ｃnｔ+＋；}}foｒ（i=0;i＜cｎt-1;i++）/*對數組b進行升序排列*/ｆor(ｊ＝ｉ＋1;j<ｃｎt;j++)ｉf(b［i]>b[j]){t=b[i]；ｂ[ｉ]=b[j]；b[j]=ｔ;｝}33已知數據文獻IN33．ＤAT中存有200個4位數,并已調用讀函數readDat()把這些數存入數組a中,請編制一個函數jsVal(),其功能是:把一個4位數的千位數上的值減百位數上的值再減十位數上的值最后減個位數上的值，假如得出的值大于零且此4位數是奇數，則記錄出滿足此條件的數的個數cｎｔ,并把這些4位數存入數組b中，然后對數組b的4位數按從小到大的順序進行排序。最后,調用函數writeDａｔ(）把結果ｃnｔ及數組b中的符合條件的4位數輸出到OＵT33.DAT文獻中。注意：部分源程序已給出。程序中已定義數組：ａ[２00]、b［２00]；已定義變量：cnｔ。請勿改動主函數main（)、讀函數ｒｅadDａt()和寫函數ｗriｔeDａｔ（）的內容。【參考答案】vｏidjsVａl(）{iｎti,ｑw,bw,sw,gｗ,j，ｔ；for(ｉ＝０;ｉ＜MAX;i＋+)／*求每個四位數的每位數字*／{qｗ=a[ｉ］/10０0；bw=a[i]%１0０0/100;ｓw＝a[i]%100/10;gw=a[ｉ]%10;iｆ((ｑw-ｂw－sw-gw＞0)&&ａ[ｉ]%２==１){ｂ[cnt]＝a[ｉ]；cnt+＋;}}fｏｒ(ｉ=0;i<ｃnｔ-1;i+＋）／*對數組ｂ進行升序排列*／for（j=i+１;j＜cnｔ;j++）iｆ(b[ｉ]>b[ｊ]){t＝b［i];ｂ［i]=b[j];b[j］=t;}}34已知數據文獻ＩN34.DＡT中存有200個4位數，并已調用讀函數reａdDat()把這些數存入數組a中,請編制一個函數jｓVal(),其功能是:假如一個4位數的千位數字上的值加十位數字上的值恰好等于百位數字上的值加上個位數字上的值,并且此4位數是偶數，則記錄出滿足此條件的數的個數cnｔ，并把這些4位數按從小到大的順序存入數組b中。最后,調用寫函數ｗrｉteDat（)把結果ｃｎt及數組ｂ中符合條件的4位數輸出到OUT34．DAT文獻中。注意:部分源程序已給出。程序中已定義數組：a[200]、b[200];已定義變量:ｃnt。請勿改動主函數maｉn(）、讀函數reaｄDaｔ()和寫函數wriｔｅＤat()的內容。【參考答案】ｖoidｊｓVal(){inti,qw,ｂｗ,ｓｗ,gw,j,t；fｏr(i＝0;ｉ<MAX;ｉ+＋)/*求每個四位數的每位數字＊/{ｑw＝ａ[ｉ］/100０；bw＝ａ[i］%10０0/1０0;sw＝a[i]％100/10;gw＝a［i]％10;ｉｆ((qw+sw==bw+ｇw)&&ａ[i]％2!=1){b[ｃｎt]＝a［i］;cｎｔ＋+;}}for（i=0;ｉ<cnｔ－１;ｉ+＋)/*對數組b進行升序排列*／ｆoｒ(ｊ=i+1;j<cnt;ｊ++）ｉf(b[i]>b[j]）{t＝b[ｉ];ｂ[ｉ]=ｂ［j];b[j]=t；}｝35已知數據文獻IＮ35.DＡT中存有２0０個4位數,并已調用讀函數readDaｔ（)把這些數存入數組ａ中，請編制一個函數jsVal（)，其功能是：假如一個4位數的千位數字上的值大于等于百位數字上的值，百位數字上的值大于等于十位數字上的值，十位數字上的值大于等于個位數字上的值,并且此4位數是奇數，則記錄出滿足此條件的數的個數cnt，并把這些4位數按從小到大的順序存入數組ｂ中。最后，調用寫函數ｗriｔｅＤat（)把結果cnt及數組ｂ中符合條件的4位數輸出到ＯUT35．DAT文獻中。注意：部分源程序已給出。程序中已定義數組:a[200]、ｂ［200］;已定義變量：cnt。請勿改動主函數ｍａin（)、讀函數ｒeaｄＤat()和寫函數writeDat(）的內容。【參考答案】vo