計算機三級網絡技術上機題庫《南開100題》

，題目1：下列程序的功能是：將大于整數m且緊靠m的k個素數存入數組xx。請編寫函

數num(intm,intk,intxx口)實現(xiàn)函數的要求，最后調用函數readwriteDAT。把結果輸出到文

件out.dat中。

例如：若輸入17,5,則應輸出：19,23,29,31,37。

注意：部分源程序已給出。

請勿改動主函數main。和函數readwriteDAT。的內容。

類型：素數。

voidnum(intm,intk,intxx[])

{intdata=m+1;

inthalf,n=0,I;

while(l)

{half^data/2;fbr(I=2；I<=half;I++)

ifl[data%I=O)break;

if(I>half)

{xx[n]=data;n++;}

if(n>=k)break;

data++；

}}

題目2：已知數據文件IN.DAT中存有200個四位數，并已調用讀函數readDat。把這些數存入

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

8,則統(tǒng)計出滿足此條件的個數ent,并把這些四位數按從大到小的順序存入數組.b中。最后

main。函數調用寫函數writeDat()把結果ent以及數組b中符合條件的四位數輸出到

OUT.DAT文件中。

注意：部分源程序存在文件PROG1.C文件中。

程序中已定義數組:a[200],b[200],已定義變量:ent

請勿改動數據文件IN.DAT中的任何數據、主函數main()、讀函數readDat。和寫函數

writeDat()的內容。

voidjsVal()

{intbb[4];

intI,j,k,flag;

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

{bb[0]=a[I]/1000;bb[l]=a[I]%l000/100;

bb[2]=a[I]%100/10;bb[3]=a[I]%10;

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

{if(bb[j]%2=0)

flag=l;

else

{flag=O;break;}

)

if(flag=l)

{b[cnt]=a[I];

cnt++;}}

fbr(I=O;I<cnt-l

fbr(j=I+l;j<cnt;j++)

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

{k=b[I];b[I]=bU];bU]=k;}

)

題目3：函數READDAT()實現(xiàn)從文件IN.DAT中讀取一篇英文文章存入到字符串數組

XX中;請編制函數STROR(),其函數功能是:以行為單位把字符串中的所有小寫字母O左邊的

字符串內容移到該串的右邊存放然后并把小寫字母0刪除，余下的字符串內容移到已處理字

符串的左邊存放.最后把已處理的字符串仍按行重新存入字符串數組XX中,最后調用函數

WRITEDAT()把結果XX輸出到文件OUT.DAT中.

例如:原文:Youcancreateanindexonanyfield.

youhavethecorrectrecord.

結果：nanyfield.Youcancreateanindex

rd.yuhavethecrrectrec

原始數據文件存放的格式是:每行的寬度均小于80個字符，含標點符號和空格.

類型：字符串(單詞)的倒置和刪除。

答案：

voidStrOR(void)

{intI,j,k,index,strl;

charch;

for(I=0;I<max1ine;I++)

{strl=strlen(xx[I]);

index=strl;

for(j=OJ<strl;j++)

if(xx[I][j]==,o,)

{for(k=j;k<strl-l火++)

xx[I][k]=xx[I][k+l];

xx[I][strLl]=r；

index寸}

fbr(j=strl-l;j>=index;j-)

{ch=xx[I][strl-l];

fbr(k=strl-1;k>0;k—)

xx[I][k]=xx[I][k-l];

xx[I][0]=ch;}

題目4：函數ReadDat()實現(xiàn)從文件IN.DAT中讀取一篇英文文章存入到字符串數組xx中；請

編制函數StrOL(),其函數的功能是：以行為單位對行中以空格或標點符號為分隔的所有單

詞進行倒排，同時去

除標點符號，之后把已處理的字符串(應不含標點符號)仍按行重新存入字符串數組xx中。

最后main。函數調用函數WriteDat。把結果xx輸出到文件OUT6.DAT中。

例如：原文:YouHeMe

Iamastudent.

結果:MeHeYou

studentaamI

原始數據文件存放的格式是：每行的寬度均小于80個字符，含標點符號和空格。

類型：字符串(單詞)的倒置和刪除。

答案：

voidStrOL(void)

{intIj,k,strl,l;charc;

fbr(I=O;I<maxline;I-H-)

fbr(j=O;j<strlen(xx[I]);j-H-)

{c=xx[I][j];

if((c>=,A,&&c<=,Z,)||(c>=,a'&&c<='z,)||c==,*);

elsexx[I][j]-*；}

fbr(l=0;l<inaxline;14-+)

{charch[80]={0};charpp[80]={0};

strl=strlen(xx[l]);

I=strl-1;k=l;

while(1)

{while(((xx[l][I]>='a,&&xx[l][I]<=,z,)||(xx[l][I]>=,A,&&xx[l][I]<=lz,))&&I>=0)

{for(j=k;j>=O;j-)

pp[j+l]=pp[j]；pp[0]=xx[l][I];k++;I??；}

strcat(ch,pp);strcpy(pp,MMnn);k=l;

if(I==-l)break;

while((xx[l][I]<'A,||xx[l][I]>,z')&&I>=0)

{for(j=k;j>=O;j-)

pp[j+l]=PPU]；pp[0]=xx[l][I];k++;I-;)

strcat(ch,pp);strcpy(ppj"””)；

k=0;

if(I==-l)break;}

strcpy(xx[l],ch);

}}

題H5：在文件in.dat中有200個正整數，且每個數均在1000至9999之間。函數ReadDat()讀

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

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

的數值相等，則按原先的數值進行降序排列。最后調用函數WriteDat()把結果bb輸出到文

件out.dat中。

例：處理前60125099901270258088

處理后90126012702580885099

注意：部分源程序已給出。

請勿改動主函數main()、讀數據函數ReadDat。和輸出數據函數WriteDat。的內容。

voidjsSort()

{intI,j,data;

fbr(I=0;I<199;I++)

fbr(j=I+l;j<200;j-H-)

{if(aa[I]%1000>aa[j]%1000)

{data=aa[I];aa[I]=aa[j];aa[j]=data;}

elseif(aa[I]%1000==aa[j]%1000)

if(aa[I]<aa[j])

{data=aa[I];aa[I]=aa[j];aa[j]=data;}

)

fbr(I=O;I<1

bb[I]=aa[I];

|

題目6：在文件in.dat中有200個正整數，且每個數均在1000至9999之間。函數ReadDat()讀

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

三位的大小進行降序排列，然后取出滿足此條件的前10個數依次存入數組b中，如果后三位

的數值相等，則按原先的數值進行升序排列。最后調用函數WriteDat()把結果bb輸出到文

件out.dat中。

例：處理前90125099601270258088

處理后50998088702560129012

注意：部分源程序已給出。

請勿改動主函數main。、讀數據函數ReadDat()和輸出數據函數WriteDat。的內容。

voidjsSort()

{intI,j,data;

fbr(I=0;I<199;I++)

fbr(j==I+l;j<200;j++)

{if(aa[I]%1000<aa[j]%1000)

{data=aa[I];aa[I]=aa[j];aa[j]=data;}

elseif(aa[I]%1OOO=aa[j]%1000)

if(aa[I]>aa[j])

{data=aa[I];aa[I]=aa[j];aa[j]=data;}

)

for(I=0;I<10;I++)

bb[I]=aa[I];

)

題目7：已知在文件IN.DAT中存有100個產品銷售記錄，每個產品銷售記錄由產品代碼dm(字

符型4位)，產品名稱me(字符型10位)，單價dj(整型)，數量sl(整型)，金額je(長整型)四部分

組成。其中：金額=單價*數量計算得出?函數ReadDat()是讀取這100個銷售記錄并存入結構

數組sell中。請編制函數SortDat(),其功能要求：按產品代碼從大到小進行排列，若產品代

碼相同，則按金額從大到小進行排列，最終排列結果仍存入結構數組sell中，最后調用函數

WriteDat()把結果輸出到文件OUT10.DAT中。

注意：部分源程序存放在PROG1.C中。

請勿改動主函數main()>讀數據函數ReadDat。和輸出數據函數WriteDat。的內容。

voidSortDat()

{intI,j;

PROxy;

fbr(I=0;lv99;I")

fbr(j=I+l；j<100;j-H-)

if(strcmp(sell[I].dm,sell[j].dm)<0)

{xy=sell[I];sell[I]=sell[j];sell[j]=xy;}

elseif(strcmp(sell[I].dm,sell[j].dm)==O)

if(sell[I].je<sellU].je)

{xy=sell[I];sell[I]=sell[j];sell[j]=xy;}

)

題目8：函數ReadDat。實現(xiàn)從文件ENGIN中讀取一篇英文文章，存入到字符串數組xx中；

請編制函數encryptChar(),按給定的替代關系對數組xx中的所有字符進行替代，仍存入數

組xx的對應的位置上，最后調用函數WriteDat。把結果xx輸出到文件PS1.DAT中。

替代關系：f(p)=p*llmod256(p是數組中某一個字符的ASCH值，f(p)是計算后新字符

的ASCII值)，如果計算后f(p)值小于等于32或大于130,則該字符不變，否則將f(p)所對應

的字符進行替代。

注意：部分源程序已給出。原始數據文件存放的格式是：每行的寬度均小于80個字符。

請勿改動主函數main()>讀數據函數RcadDat()和輸出數據函數WriteDat()的內容。

voidencryptChar()

{intI;

char*pf;

for(I=0;lvmaxline;I++)

{pf=xx[I];

while(*pf!=0)

ll%256>130||*pf*11%256<=32);

else

*pf==*pf*l1%256;

pf++;}

}

題目9：函數ReadDatQ實現(xiàn)從文件IN.DAT中讀取?篇英文文章存入到字符串數組xx中；請

編制函數SortCharD(),其函數的功能是：以行為單位對字符按從大到小的順序進行排序,

排序后的結果仍按行重新存入字符串數組xx中。最后main()函數調用函數WriteDat()把結果

xx輸出到文件OUT2.DAT中。

例：原文：dAe,BfC.

CCbbAA

結果：fedCBA.,

bbCCAA

原始數據文件存放的格式是：每行的寬度均小于80個字符，含標點符號和空格。

注意：部分源程序存放在PROG1.C中。

請勿改動主函數main()、讀數據函數ReadDat。和輸出數據函數WriteDat()的內容。

類型：字符串(單詞)的倒置和刪除。

答案：

voidSortCharD(void)

{intI,j,k,strl;

charch;

fbr(I=O;I<maxline;I++)

{strl=strlen(xx[I]);

fbr(j=Oj<strl-l;j++)

fbr(k=j+l;k<strl;k++)

if(XX[I][j]<XX[I][k])

{ch=xx[I][j]；xx[I][j]=xx[I][k];xx[I][k]=ch;}

}}

題目10：請編制函數ConvertCharA(),其函數的功能是：以行為單位把字符串中的所有小寫

字母改寫成該字母的下一個字母，如果是字母z,則改寫成字母a,大寫字母和其它字符保持

不變。把己處理的字符串仍按行重新存入字符串數組xx中。。最后main()函數調用函數

WriteDat()把結果xx輸出到文件OUT3.DAT中。

例：原文:Adb.Bcdza

abck.LLhj

結果:Aec.Bdeab

bcdl.LLik

原始數據文件存放的格式是：每行的寬度均小于80個字符，含標點符號和空格。

注意：部分源程序存放在PROG1.C中。

請勿改動主函數main()、讀數據函數ReadDat。和輸出數據函數WriteDat()的內容。

類型：字符串(單詞)的倒置和刪除。

答案：

voidConvertCharA(void)

{intI,j,str;

fbr(I=O;I<maxline;I-H-)

{str=strlen(xx[I]);

fbr(j=Oy<str;j++)

if(xx[I][j]=='z')xx[I]U]='a';

elseif(xx[I][j]>='a'&&xx[I][j]<=y)xx[I][j]+=l；

)

)

題目11：下列程序的功能是：把s字符串中的所有字母改寫成該字母的下一個字符，字母z

改寫成字母a。要求大寫字母仍為大寫字母，小寫字母仍為小寫字母，其他字符不做改變。

請編寫函數chg(char*s)實現(xiàn)程序的要求，最后調用函數readwriteDat()把結果輸出到文件

out.dat中o

例如：s字符串中原有的內容為：Mn.l23Zxy,則調用該函數后，結果為No.l23Ayz。

注意：部分源程序已給出。

請勿改動主函數main。和輸出數據函數readwriteDat()的內容。

voidchg(char*s)

{while(*s)

if(*s==,z,||*s=,Z,)

{*s-=25;s-H-;)

elseif(*s>=,a,&&*s<=,y,)

elseiflf*s>=,A,&&*s<=,Y,)

{*s+=];s++;}

elses++；

}

題目12：已知在文件IN.DAT中存有100個產品銷售記錄，每個產品銷售記錄由產品代碼

dm(字符型4位)，產品名稱me(字符型10位)，單價dj(整型)，數量si(整型)，金額je(長整型)

四部分組成。其中：金額=單價*數量計算得出。函數ReadDat()是讀取這100個銷售記錄并存

入結構數組sell中。請編制函數SortDat(),其功能要求：按產品名稱從小到大進行排列，若

產品名稱相同，則按金額從小到大進行排列.最終排列結果仍存入結構數組sell中，最后調用

函數WriteDat()把結果輸出到文件OUT5.DAT中。

注意：部分源程序存放在PROGLC中。

請勿改動主函數main()、讀數據函數ReadDat()和輸出數據函數WriteDat()的內容。

voidSortDat()

{intI,j;

PROxy;

fbr(I=0;I<99;I++)

for(j=I+l;j<100;j++)

if(strcnip(sell[I].dm,sell[j].dm)<0)

{xy=sell[I];sell[I]=sell[j];sell[j]=xy;}

elseif(strcmp(sel1[I].dm,sell[j].dm)==0)

if(sell[I].je<sell[j].je)

{xy=sell[I];sell[I]=sell[j];sell[j]=xy;}

題目13：已知在文件IN.DAT中存有100個產品銷售記錄，每個產品銷售記錄由產品代碼

dm(字符型4位)，產品名稱me(字符型10位)，單價dj(整型)，數量si(整型)，金額je(長整型)

四部分組成。其中：金額=單價*數量計算得出。函數ReadDat()是讀取這100個銷售記錄并存

入結構數組sell中。請編制函數SortDat(),其功能要求：按產品代碼從小到大進行排列，若

產品代碼相同，則按金額從大到小進行排列，最終排列結果仍存入結構數組sell中，最后調

用函數WriteDat()把結果輸出到文件OUT6.DAT中。

注意：部分源程序存放在PROG1.C中。

請勿改動主函數main()＞讀數據函數ReadDat。和輸出數據函數WriteDat。的內容。

voidSortDat()

{intI,j;

PROxy;

for(I=0;I<99;I++)

fbr(j=I+l;j<100;j++)

if(strcmp(sell[I].mc,sell[j].mc)>O)

{xy=sell[I];sell[I]=sell[j];sell[j]=xy;}

elseif(strcmp(sell[I].mc,sell[j].mc)==0)

if(sell[I].je<sellU].je)

{xy=sell[I];sell[I]=sell[j];sell[j]=xy;}

題目14：已知數據文件IN.DAT中存有200個四位數，并已調用讀函數readDat()把這些數存

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

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

些四位數按從小到大的順序存入數組b中。并要計算滿足上述條件的四位數的個數ento

最后main。函數調用寫函數writeDat()把結果ent以及數組b中符合條件的四位數輸出到

OUT.DAT文件中。

注意：部分源程序存在文件PROG1.C文件中。

程序中已定義數組:a[200],b[200],已定義變量:ent

請勿改動數據文件IN.DAT中的任何數據、主函數main。、讀函數readDat。和寫函數

writeDat()的內容。

voidjsVal()

{intIj,flag=0;

intk;

fbr(I=0;I<MAX-5;I++)

{fbr(j=I+l;jv=I+5;j++)

{if(a[I]>aU])

flag=l;

else{flag=O;break;}

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

flag=O;}

if(flag=l)

{b[cnt]=a[I];cnt++;}

fbr(I=O;I<cnt-l

fbr(j=I+l;j<cnt;j-H-)

if(b[I]>bU])

{k=b[I];b[I]=b[j];b[j]=k;}

題目15：已知數據文件IN.DAT中存有200個四位數，并已調用讀函數readDat()把這些數存

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

位數字上的值，百位數字上的值小于等于十位數字上的值，十位數字上的值小于等于個位數

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

到小的順序存入數組b中。最后main。函數調用寫函數writeDat()把結果ent以及數組b中

符合條件的四位數輸出到OUT.DAT文件中。

注意：部分源程序存在文件PROG1.C文件中。

程序中已定義數組:a[200],b[200],已定義變量:ent

請勿改動主函數main()^讀函數readDat。和寫函數writeDat。的內容。

voidjsVal()

{intI,j;

intal,a2,a3,a4,k;

for(I=0;I<MAX;I++)

{al=a[I]/1000;a2=a[I]%1000/100;

a3=a[I]%100/10;a4=a[I]%10;

if((aK=a2)&&(a2<=a3)&&(a3<=a4)&&(a[I]%2==0))

{b[cnt]=a[I];

cnt++;}

}

fbr(I=O;I<cnt-1;I++)

for(j=I+l;j<cnt;j++)

if(b[1]>bU])

{k=b[I];b[I]=bU];bU]=k;}

}

數ReadDatO實現(xiàn)從文件IN.DAT中讀取?篇英文文章存入到字符串數組XX中，請編制函數

StrCharJR(),其函數的功能是：以行為單位把字符串中所有字符的ASCII值右移4位，然后

把右移后的字符ASCII值再加上原字符的ASCII值，得到新的字符仍存入原字符串對應的

位置上。最后把已處理的字符串仍按行重新存入字符串數組xx中，最后調用函數writeDat。

把結果xx輸出到文件OUT8.DAT中。原始數據文件存放的格式是：每行的寬度均小于80個

字符，含標點符號和空格。

注意：部分源程序已給出。

請勿改動主函數main。、讀數據函數RcadDat()和輸出數據函數writeDat。的內容。

voidStrCharJR(void)

{intI,j,strl;

fbr(I=0;l<maxline;I++)

{strl=strlen(xx[I]);

for(j=Oj<strlJ++)

xx[I]U]+=xx[I]U]?4;

)

}

注：這個編程題比二級考得還簡單。

voidStrCharJR(void)

{intij;

for(i=O;i<maxline;i++)

fbr(j=O;xx[i][j]!=,\O,;j++)

xx[i][j]+=xx[i][j]?4;

}

題目17：函數READDAT()實現(xiàn)從文件IN.DAT中讀取一篇英文文章存入到字符串數組

XX中;請編制函數CHA(),其函數功能是:以行為單位把字符串中的第個字符的ASCII值加

第二個字符的ASCII值，得到第一個親朋字符,第二個字符的ASCH值加第三個字符的ASCII

值，得到第二個新字符，依此類推一直處理到最后第二個字符，最后?個字符的ASCII值

加原第一個字符的ASCII值，得到最后一個新的字符，得到的新字符分別存放在原字符串

對應的位置上。最后把已處理的字符串逆轉后按行重新存入字符串數組XX中，最后調用函

數WRITEDAT()把結果XX輸出到文件0UT9.DAT中.原始數據文件存放的格式是:每行的寬

度均小于80個字符，含標點符號和空格.

注意：部分源程序已給出。

請勿改動主函數main。、讀數據函數ReadDat。和輸出數據函數writeDat。的內容。

voidChA(void)

{intI,j,k,str;

charch;

fbr(I=O;I<maxline;I-H-)

{str=strlen(xx[I]);

ch=xx[I][0];

for(j=O;j<str-l;j++)

xx[I][j]+=xx[I][j+l];

xx[I][str-l]+=ch;

for(j=0,k=str-l;j<str/2;j++,k—)

{ch=xx[I][j];

xx[I][j]=xx[I][k];

xx[I][k]=ch;}

)

題目18：函數ReadDat。實現(xiàn)從文件ENGIN中讀取一篇英文文章，存入到字符串數組xx中；

請編制函數encryptChar(),按給定的替代關系對數組xx中的所有字符進行替代，仍存入數

組xx的對應的位置上，最后調用函數WriteDat()把結果xx輸出到文件PS10.DAT中。

替代關系：f(p)=p*11mod256(p是數組中某一個字符的ASCH值，f(p)是計算后新字符

的ASCH值)，如果原字符的ASCII值是偶數或計算后f(p)值小于等于32,則該字符不變，

否則將f(p)所對應的字符進行替代。

注意：部分源程序已給出。原始數據文件存放的格式是：每行的寬度均小于80個字符。

請勿改動主函數main。、讀數據函數ReadDat()和輸出數據函數WriteDat()的內容。

voidencryptChar()

{intI；

char*pf;

fbr(I=O;I<maxline;I++)

{pf=xx[l];

whiIe(*pf!=O)

{ifi(*pf%2=0||*pP|￡l1%256<=32)

else

*pf=*pf*l1%256;

}}

題目19：編寫一個函數findstrO,該函數統(tǒng)計一個長度為2的子字符串在另一個字符串中出現(xiàn)

的次數。例如：假定輸入的字符串為"asdasasdfgasdaszx67asdmklo",子字符串為"as",函數

返回值為6。

函數readwriteDat。的功能是實現(xiàn)從文件in.dat中讀取兩個字符穿4,并調用函數findstr。，

最后把結果輸出到文件out.dat中。

注意：部分源程序已給出。

請勿改動主函數main。和函數ReadWrite。的內容。

intfindStr(char*str,char*substr)

{intn;

char*p,*r;

n=0;

while(*str)

{P=str;

r=substr;

while(*r)

if(*r=*p){r-H-;p++;}

elsebreak;

if(*r=、0')

n++;

str++；}

returnn;

題目20：編寫函數jsvalue,它的功能是：求Fibonacci數列中大于t的最小的一個數，結果

山函數返回。其中Fibonacci數列F(n)的定義為：

F(0)=0,F(l)=l

F(n)=F(n-l)+F(n-2)

最后調用函數writcDat()讀取10個數據3分別得出結果且把結果輸出到文件out.dat中。

例如:當41000時，函數值為：1597。

注意：部分源程序已給出。

請勿改動主函數main。和寫函數writeDat。的內容。

intjsValue(intt)

{intfl=0,f2=l,fh;

fh=n+f2;

while(fh<=t)

f2=fh;

fh=fl+f2;}

returnfh;

題目21：下列程序的功能是：利用發(fā)下所示的簡單迭代方法求方程：cos(x)?x=0的一個實根。

xn+l=cos(xn)

迭代步驟如下：

(I)取XI初值為0.0；

(2)XOX1,把XI的值賦給X0；

(3)X1=COS(X0),求出一個新的XI；

(4)若X0-X1絕對值小0.000001,執(zhí)行步驟(5),否則執(zhí)行步驟(2);

(5)所求XI就是方程cos(X)-X=0的一個實根，作為函數值返回。

請編寫函數countvalue()實現(xiàn)程序的要求，最后調用函數WRITEDAT()把結果輸出到文

件OUT17.DAT中。

注意：部分源程序已給出。

請勿改動主函數main()和輸出數據函數writeDAT()的內容。

floatcountValue()

{floatx0,xl=0.0;

while(l)

{x0=xl;

xl=cos(x0);

if(fabs(xO-x1)<1e-6)break;

)

returnxl;

題目22：請編寫函數countvalue。，它的功能是：求n以內(不包括n)同時能被3和7整數

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

例如若n為1000時，函數值應為:s=153.909064,

注意：部分源程序已給出。

請勿改動主函數main()和輸入輸出數據函數progreadwrite。的內容。

doublecountValue(intn)

{doublexy=0.0;

intI;

fbr(I=l;I<n;I++)

if(I%3==0&&I%7=0)xy+=I;

xy=sqrt((double)xy);

returnxy;

}

doublecountvalue(intn)

{inti,j=0;

doublek;

fbr(i=0;i<n;i++)

iWi%3==0&&i%7==0)

j+=i；

k=sqrt(j)；

returnk;}

題目23:已知在文件in.dat中存有N個(個數<200)四位數字的正整數，函數readdat()讀取

這N個正整數并存入數組xx中。請編制函數calvahie。，其功能要求：1、求出這N個實數

的平均值aver；2、分別求出這N個實數的整數部分之和sumint以及小數部分之和sumdec,

最后調用函數writcdat()把所求的結果輸出到文件out.dat中。

注意：部分源程序已給出。

請勿改動主函數main()>讀數據函數readdat()和輸出數據函數writedat()的內容。

voidCalValue(void)

{intI;

doublex,sum=0;

for(I=0;KMAXNUM;R+)

{sumint=sumint-l-(int)xx[I];

x=xx[I]-(int)xx[I];

sumdec=sumdec+x;

sum=sum+xx[I];

)

aver=sum/MAXNUM;

)

題H24：在三位整數(100至999)中尋找符合條件的整數并依次從小到大存入數組中；它既是

完全平方數，又是兩位數字相同，例如144、676等。請編制函數實現(xiàn)此功能，滿足該條件的

整數的個數通過所編制的函數返回。最后調用函數writeDat()把結果輸出到文件out.dat中。

注意：部分源程序已給出。

請勿改動主函數main。和寫函數writeDat。的內容。

jsValue(inta[10][9])

{intLj,k=O;

inthun,ten,data;

for(I=100;I<=999;I-H-)

{j=10;

while(j*j<=I)

{if(I==j*j)

{hun=I/1OO;data=I-hun*100;

ten=data/l0;data=data-ten*10;

ifl(hun==ten||hun=data11tcn=data)

{bb[k]=I;k++;}

}

j++;}}

returnk;

)

題目25：下列程序的功能是：尋找并輸出11至999之間的數m,它滿足m,m2和m3均為回文

數。所謂回文數是指其各位數字左右對稱的整數，例如121,676,94249等。滿足上述條件

的數如m=lI,m2=121,m3=1331皆為回文數。請編制函數intsvalue(longm)實現(xiàn)此功能，如果

是回文數，則函數返回1,反之則返回0。最后把結果輸出到文件out.dat中。

注意：部分源程序已給出。

請勿改動主函數main。的內容。

intjsValue(longn)

{intI,strl,half;

charxy[20];

ltoa(n,xy,10);

strl=strlen(xy);

half=strl/2;

for(I=0;I<half;I-H-)

if(xy[I]!=xy[—strl])break;

if(I>=half)return1;

elsereturn0;

)

題目26:已知在文件in.dat中存有若干個(個數v200)四位數字的正整數，函數readdat()讀取

這若干個正整數并存入數組XX中。請編制函數calvalue(),其功能要求：1、求出這文件中

共有多少個正整數totnum；2、求這些數右移1位后，產生的新數是偶數的數的個數totcnt,

以及滿足此條件的這些數(右移前的值)的算術平均值totpjz,最后調用函數writedat()把所

求的結果輸出到文件out.dat中。

注意：部分源程序已給出。

請勿改動主函數main。、讀數據函數readdat()和輸出數據函數writedat。的內容。

voidCalValue(void)

{intI,data;

for(I=0;I<MAXNUM;I++)

{if(!xx[I])break;

if(xx[I]>0)totNum-H-；

data=xx[I]?l;

if(data%2=0){totCnt-H-;totPjz+=xx[I];}

)

totPjz/=totCnt;

題H27：已知數據文件IN.DAT中存有300個四位數，并已調用讀函數ReadDat。把這些數存

入數組a中，請編制一函數jsvalue(),其功能是：求出千位數上的數減百位數減卜位數上的

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

滿足此條件的四位數平均值pjz2,最后調用寫函數writeDat()把結果輸出到OUT.DAT文件。

例如：9123,9-1-2-3>0,則該數滿足條件計算平均值pjzl,且個數cnt=cnt+l。

9812,9-8-1-2<0,則該數不滿足條件計算平均值pjz2.

注意：部分源程序已給出。

程序中已定義數組：a[300],已定義變量：ent

請勿改動主函數main。、讀函數ReadDat。和寫函數writeDat()的內容。

voidjsValue()

{intI,thou,hun,ten,data,j;

for(I=0;I<300;I-H-)

{thou=a[I]/l000;hun=a[I]%l000/100;

ten=a[I]%100/10;data=a[I]%10;

if(thou-hun-ten-data>0){b[cnt]=a[I];cnt++;)

)

fbr(I=O;I<cnt-1;I++)

fbr(j=I+l;j<cnt;j++)

ifi[b[I]>bU])

{data=b[I];b[I]=b[j];b[j]=data;}

)

題FI28：已知數據文件IN.DAT中存有200個四位數，并已調用讀函數readDat()把這些數存

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

十位數ab(新十位數的十位數字是原四位數的千位數字,新十位數的個位數字是原四位數的

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

原四位數的個位數字，新十位數的個位數字是原四位數的百位數字)，如果新組成的兩個十位

數ab-cd>=0且ab-cd<=10且兩個數均是奇數，同時兩個新數的十位數字均不為零，則將滿足此

條件的四位數按從大到小的順序存入數組b中，并要計算滿足上述條件的四位數的個數ent。

最后main()函數調用寫函數writeDat()把結果ent以及數組b中符合條件的四位數輸出到

OUT.DAT文件中。

注意：部分源程序存在文件PROG1.C文件中。

程序中已定義數組:a[200],b[200],已定義變量:ent

請勿改動數據文件IN.DAT中的任何數據、主函數main。、讀函數readDat()和寫函數

writeDat。的內容。

voidjsVal()

{intI,thou,hun,ten,data,j;

intab,cd;

fbr(I=0;K200;I-H-)

{thou=a[I]/1000;hun=a[I]%l000/100;

ten=a[I]%100/10;data=a[I]%l0;

ab=10*thou+ten;cd=10*data+hun;

if((ab-cd)>=0&&(ab-cd)<=l0&&ab%2=1&&cd%2==l&&ab!=0&&cd!=0)

{b[cnt]=a[I];cnt++;}

)

for(I=0;I<cnt-l

fbr(j=I+l;j<cntg++)

if(b[I]<bU])

{data=b[I];b[I]=b[j];b[j]=data;}

題目29：已知數據文件IN.DAT中存有200個四位數，并已調用讀函數readDat。把這些數存

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

十位數ab(新十位數的十位數字是原四位數的下位數字,新十位數的個位數字是原四位數的

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

原四位數的個位數字，新十位數的個位數字是原四位數的百位數字)，如果新組成的兩個十位

數ab?cd>=10且ab?cdv=20且兩個數均是偶數,同時兩個新數的十位數字均不為零，則將滿足此

條件的四位數按從大到小的順序存入數組b中，并要計算滿足上述條件的四位數的個數

ento最后main()函數調用寫函數writeDat()把結果ent以及數組b中符合條件的四位數輸出

到OUT.DAT文件中。

注意：部分源程序存在文件PROG1.C文件中。

程序中已定義數組:a[200],b[200],已定義變量:ent

請勿改動數據文件IN.DAT中的任何數據、主函數main()>讀函數readDat()和寫函數

writeDat()的內容。

voidjsVal()

{intI,thou,hun,ten,data,j;

intab,cd;

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

{thou=a[I]/1000;hun=a[I]%l000/100;

ten=a[I]%100/10;data=a[I]%10;

ab=10*thou+ten;cd=l0*data+hun;

if((ab-cd)>=0&&(ab-cd)<=10&&ab%2=l&&cd%2==l&&ab!=0&&cd!=0)

{b[cnt]=a[I];cnt++;}

}

fbr(I=O;I<ciit-1;1++)

fbr(j=I+l;j<cnt;j++)

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

{data=b[I];b[I]=b[j];bfj]=data;}

題目30：已知數據文件IN.DAT中存有200個四位數，并已調用讀函數readDat。把這些數存

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

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

些四位數按從小到大的順序存入數組b中。并要計算滿足上述條件的四位數的個數ent。

最后main。函數調用寫函數writeDat()把結果ent以及數組b中符合條件的四位數輸出到

OUT.DAT文件中。

注意：部分源程序存在文件PROG1.C文件中。

程序中已定義數組:a[200],b[200],已定義變量:ent

請勿改動數據文件IN.DAT中的任何數據、主函數main。、讀函數readDat。和寫函數

writeDat。的內容。

voidjsVal()

{intI,j,flag=O;

fbr(I=0;I<MAX-5;I++)

{for(j=I+l;j<=I+5;j++)

{if(a[I]<aU])

flag=l;

elseflag=0;

if(a[I]%2!=0)

flag=0;

if(flag=0)

break;}

if(flag==l){b[cnt]=a[I];cnt-H-;}

}

fbr(I=O;I<cnt-1;1++)

fbr(j=l+l;j<cnty++)

ifi[b[I]>bU])

{flag=b[l];b[I]=bU];bU]=flag;}

)

題目31：已知在文件IN.DAT中存有100個產品銷售記錄，每個產品銷售記錄由產品代碼

dm(字符型4位)，產品名稱me(字符型10位)，單價dj(整型)，數量si(整型)，金額je(長整型)

四部分組成。其中：金額=單價*數量計算得出。函數ReadDatO是讀取這100個銷售記錄并存

入結構數組sell中。請編制函數SortDat(),其功能要求：按產品代碼從大到小進行排列，若

產品代碼相同，則按金額從大到小進行排列，最終排列結果仍存入結構數組sell中，最后調

用函數WriteDat。把結果輸出到文件OUT6.DAT中。

注意：部分源程序存放在PROG1.C中。

請勿改動主函數main()、讀數據函數ReadDat。和輸出數據函數WriteDat()的內容。

voidSortDat()

{intI,j;

PROxy;

for(I=0；I<99;I++)

fbr(j=I+1;j<1

if(sell[I].je<sell[j].je)

{xy=sell[I];sell[I]=sell[j];sell[j]=xy;}

elseif(sell[I].je=sell[j].je)

if(strcmp(sell[I].dm,sell[j].dm)<O)

{xy=sell[I];sell[I]=sell[j];sell[j]=xy;}

題目32：已知在文件IN.DAT中存有100個產品銷售記錄，每個產品銷售記錄由產品代碼

dm(字符型4位)，產品名稱me(字符型10位)，單價dj(整型)，數量si(整型)，金額je(長整型)

四部分組成。其中：金額=單價*數量計算得出。函數ReadDat()是讀取這100個銷售記錄并存

入結構數組sell中。請編制函數SortDat(),其功能要求：按產品名稱從大到小進行排列，若

產品名稱相同，則按金額從小到大進行排列.最終排列結果仍存入結構數組sell中，最后調

用函數WriteDat。把結果輸出到文件OUT7.DAT中。

注意：部分源程序存放在PROG1.C中。

請勿改動主函數main()>讀數據函數ReadDat()和輸出數據函數WriteDat()的內容。

voidSortDat()

{intI,j；

PROxy;

for(I=0;I<MAX-l;I++)

for(j=I+l；j<MAX;j++)

if(strcmp(sell[I].mc,sell[j].mc)<0)

{xy=sell[I];sell[I]=sell[j];sell[j]=xy;}

elseif(strcmp(sell[I].mc,sell[j].mc)==0)

if(sell[I].je>sell[j].je)

{xy=sell[I];sell[I]=sell[j];sell[j]=xy;}

題目33：請編制函數ReadDat()實現(xiàn)從文件IN.DAT中讀取1000個十進制整數到數組xx中；

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

ave2以及所有奇數的方差totfc的值，最后調用函數WriteDat()把結果輸出到OUT.DAT文件

中。計算方差的公式如下：totfb=l/NZ(xx[i]-avel)2

設N為奇數的個數，xx[i]為奇數，avel為奇數的平均值。

原始數據文件存放的格式是：每行存放10個數，并用逗號隔開。(每個數均大于0且小于

等于2000)

注意：部分源程序已給出。

請勿改動主函數main。和輸出數據函數writeDat。的內容。

voidCompute(void)

{intI,yy[MAX];

fbr(I=0;I<1000;I++)

if(xx[I]%2){odd-H-；avel+=xx[I];}

clse{even+4-；ave2+=xx[I];yy[even-l]=xx[I];}

avel/=odd;

ave2/=even;

fbr(I=O;I<even;H-+)

totfc+=(yy[I]-ave2)*(yy[I]-ave2)/even;

}

題目34：下列程序的功能是：選取出100以上1000以內所有個位數字與十位數字之和被10除

所得余數恰是百位數字的素數(如293)。計算并輸出上述這些素數的個數CNT以及這些素

數值的和SUM。請編寫函數COUNTvakie()實現(xiàn)程序要求，最后調用函數WRITEDAT()

把結果CNT和SUM輸出到文件OUT.DAT中.

注意：部分源程序已給出。

請勿改動主函數main()和函數readwriteDAT()的內容。

類型：素數。

voidcountValue()

{intI,j,half,hun,ten,data;

for(I=101；I<1000;I++)

{hun=I/100;

ten=I%100/10;

data=I%10;

if(hun=(ten+data)%10)

{half^I/2;

fbr(j=2;j<half;j++)

if(I%j=O)break;

if(j>=half)

{cnt++;sum+=I;}}}

}

題目35：某級數的前兩項A1=1,A2=1,以后各項具有如卜關系：An=An-2+2An-l.

下列程序的功能是：要求依次對于整數M=100/000和10000求出對應的n值，使其滿足：

Sn<M且Sn+1>=M,這里Sn=Al+A2+...+An,

并依次把n值存入數組單元b[O],b[l]和b[2]中，請編制jsvakie()函數來實現(xiàn)此功能，最后調

用函數writeDat()把數組b口中的值輸出到out.dat文件中。

注意：部分源程序存在文件PROG1.C文件中。

請勿改動主函數main()和寫函數writeDat()的內容。

voidjsvalue()

{intal=l,a2=1,n=l,an;

intsum0,sum;

sum0=al+a2;

while(l)

{an=al+a2*2;

sum=sum0+an;

al=a2;a2=an;n++;

if(sum0<100&&sum>100)b[0]=n;

if(sum0<1000&&sum>1000)b[l]=n；

if(sumO<l0000&&sum>10000){b[2]=n;break;}

sum0=sum;

題目36：函數ReadDat。實現(xiàn)從文件ENGIN中讀取一篇英文文章，存入到字符串數組xx中：

請編制函數encryptCharO,按給定的替代關系對數組xx中的所有字符進行替代，仍存入數

組xx的對應的位置上，最后調用函數WriteDat。把結果xx輸出到文件PS6.DAT中。

替代關系：f(p)=p*llmod256(p是數組中某一個字符的ASCH值，f(p)是計算后新字符

的ASCII值)，如果計算后f(p)值小于等于32或出p)對應的字符是數字0至9,則該字符不變，

否則將f(p)所對應的字符進行替代。

注意：部分源程序已給出。原始數據文件存放的格式是：每行的寬度均小于80個字符.

請勿改動主:函數main。、讀數據函數RcadDat。和輸出數據函數WriteDat。的內容。

voidencryptCharO

{inti;

char*p￡

fbr(I=O;I<maxline;I++)

{pf^xx[I];

while(*pf!=0)

l%256>=,0,&&*pf*ll%256<=,9,)||*pf*l1%256<=32)

{pfi-+;continuc;}

*pf=*pf*l1%256;

pg;}}

}

題目37：函數ReadDat()實現(xiàn)從文件ENGIN中讀取一篇英文文章，存入到字符串數組xx中；

請編制函數encryptCharO,按給定的替代關系對數組xx中的所有字符進行替代，仍存入數

組xx的對應的位置上，最后調用函數WriteDat()把